Премини към съдържанието

erudita

Потребител
  • Публикации

    25
  • Регистрация

  • Последно онлайн

Харесвания

0 Неутрална репутация

Всичко за erudita

  • Титла
    Потребител
  1. скайп , имел нещо ...да ми дадеш предвид
  2. ' D14 change and K14 If Target.Address = "$D$14" Then If (Worksheets("Sheet1").Range("K14").Value = "À") Then col = "G" ElseIf (Worksheets("Sheet1").Range("K14").Value = "Á") Then col = "H" ElseIf (Worksheets("Sheet1").Range("K14").Value = "ÁÁ") Then col = "I" ElseIf (Worksheets("Sheet1").Range("K14").Value = "ÑÌÀ") Then col = "J" End If lr = 11 If Worksheets("Sheet2").Range("G65535").End(xlUp).Row > lr Then lr = Worksheets("Sheet2").Range("G65535").End(xlUp).Row ElseIf Worksheets("Sheet2").Range("H65535").End(xlUp).R
  3. Здравей, Кен! днес дано остане време да обобщя нещата , надявам се , че всичко ще е ОК. Лек ден от мен
  4. дава ми комплексна грешка ElseIf (Worksheets("Sheet1").Range("K14").Value = "ÑÌÀ ") Then col = "J" ...ако може например, когато една от четирите клетки в реда приеме съответната стойност, другите да се заключват , за да се преминава на долния ред за съжаление ме притискат да ставам, лек ден за сега и благодарности за всичко , Кен до скоро
  5. Кен , почти всичко е перфектно , но за съжаление има някои проблеми Има ли начин от лист 2, клетките под АБ, Б, ББ и СМА да приемат само една стойност. Идеята е, че когато се смени означението в клетка К14 от лист1 от АБ на Б напр. новата стойност се изписва на същия ред, а трябва да се премести на долния. Предвид когато се въведе АБ в клетка К14 и стойност в клетка D14 от лист 1,се попълва клетка G11 от лист 2, намираща се под клетка АБ със стойността на D14 от лист1. всичко дотук е ОК. когато обаче се промени K14 на СМА и съответно D14 ( и двете от лист1) в лист2 под клетка СМА се появ
  6. ok:)....с риск да досадя отбелязвам, че не ми сработва:' D14 change and K14 If Target.Address = "$D$14" Then If (Worksheets("Sheet1").Range("K14").Value = "A") Then col = "G" ElseIf (Worksheets("Sheet1").Range("K14").Value = "A") Then col = "H" ElseIf (Worksheets("Sheet1").Range("K14").Value = "AA") Then col = "I" ElseIf (Worksheets("Sheet1").Range("K14").Value = "NIA") Then col = "J" End If lr = 11 While Worksheets("Sheet2").Range(col & lr).Value <> "" lr = lr + 1 Wend If (lr > 34) And (lr < 62) Then lr = 62 E
  7. гледам и не вярвам на ушите си...Кен ти си бил мастор бре, първата част от връзките работи чудно, за което голяямо благодарско...другото дори и да не стане няма да промени мнението ми , че ги усещаш много. чаоче за сега
  8. и още....една клетка от лист 1, променя колона от лист 2 с текущата дата , друга клетка от лист 1 с текущ час....ако това има някакво значение, де няма да се налага, а ако СЕ започвам да уча XML, май беше шегувам се, разбира се разпечатвам страницата от лист 1 и двете от лист 2 , няма да съхранявам промените на файла и на другия ден пак отново започвам да попълвамвсъщност документите са екпедиционна бележка и дневен отчет, като за деня посочените колони ще са ми достатъчни
  9. ok:)пиша "100" в I7 от лист 1, B11 от лист2 става "100". Въвеждам нова стойност на I7, напр. "200", новата стойност се отразява вече в B12, като B11 си запазва "100" и т.н
  10. Здравейте след кратка пауза и в частност на КенПак обръщам внимание на проблемите си относно електранните таблици, макар че сигурно и Бил Гейтс не би могъл да помогне)..и все пак, относно писането на код за определен лист от Ексел: 1. в Лист1 има изградени връзки между някои клетки, така че активирането на кода не би следвало да ги променя 2.Ето и допълнителните връзки които кодът би следвало да създаде -всяка промяна на клетка I7 от лист 1, трябва да поменя ПОСЛЕДОВАТЕЛНО колоната от лист2 -B11 до B34 и B62 до B85 (колоната се прекъсва , защото таблицата има продължение на две страни
  11. Кен, всичко си дойде на място много съм ти благодарен и трябва да почерпя.....но преди това ше се наложи доста да поразвием кода с риск да стана досаден, по-късно ще уточня допълнителните промени, които ще се неободими.Чао за сега!
  12. здрасти Кен, но да знаеш, че аз не съм Барби...шегичка, разбира се една малка подробност , ползвам офис 2007, да не би затова да не става?
  13. разреших всички макроси , копи -пеист и пак не става.. мисля си за езиковите настройки- да му дам освен основен език за редактиране да е английски...незнам ...всъщност не съм се занимавал с ексел от 10 г., а сега изведнъж ми го изискват)сигурно програмата вижда, че съм аматьор и ме пренебрегва)) не ,ч е нещо но при теб този код работи ли?
  14. копирах го във визуал бейзика на лист 1 ((книга 1- лист1(code)). затварям визуал бейзик, въвеждам данни в А1 на лист 1, но А1 на Sheet2 си остава празна лошото е, че в лист1 се налага да се въвеждат данни в няколко клетки, които да влиаят по описания начин на колоните от sheet2.......май начинанието е обречено на неуспех и ще търся алтернативен вариант. благодаря на Кен за вниманието
  15. като копирам кода, активира ли се по някакъв начин не разбрах и проблем ли е, че съм на БГ?? иначе преименувах лист2 на sheet2, копирах кода във visual basic , затворих visual basic, върнах се на лист1, въведох цифри в А1, но А1 на sheet2 си остана празна
  • Разглеждащи това в момента   0 потребители

    Няма регистрирани потребители разглеждащи тази страница.

×
×
  • Добави ново...

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите Условия за ползване