Ако правилно съм те разбрал, имаш антетка в първия ред на всеки лист, така ли?
всъщност не съобразих, ама и ти не беше казал... :-) ако е това пипни кода, който ти пуснах.
Редовете

MyRange = "1:" & LastRow

Трябва да станат

MyRange = "2:" & LastRow

Така няма да копира първия ред от всеки лист


Другото за проверката не го разбрах нещо... Трябва ако колона G в последния ред е 0 или празно, да не копира нищо от този лист, така ли? А с лист а какво става в този случай?
освен това, ако е ясно коя е последната колона ( примерно трябва да се копират само колони от A до G, може да се поправи, за да не копира целия ред) ще работи по-бързо, а и няма да те пита за clipboarda

Съдържаниет е скрито
Влезте за да го видите

Редактирано от Бypaн на 26.06.08 12:11.