Zbigniew Bereta sinol gdańsk
Temat: usuwanie danych z kórek w wielu arkuszach
Witam,proszę o pomocne makro do usuwania zawartości z takiego samego zakresu komórek w wielu arkuszach (nazwanych od 1 do 150).
Zbigniew Bereta sinol gdańsk
Marzanna
Szulta
właściciel, Usługi
Informatyczne
SZULTASET
Zbigniew Bereta sinol gdańsk
Oskar
Shon
Dodatki do Office
www.VBATools.pl
Sub kjk()
Dim z%
For z = 1 To ActiveWorkbook.Worksheets.Count
If Sheets(z).Name <= 150 Then _
Sheets(z).Range("a1:a150").Clear
Next
End Sub
Damian
Zurawski
Data Engineer w
Grupie Żywiec
Zbigniew Bereta sinol gdańsk
Oskar
Shon
Dodatki do Office
www.VBATools.pl
Sheets(z).Range("B11:M19").Clear
If replace(Sheets(z).Name, "Arkusz","") <= 150 Then _
Zbigniew Bereta sinol gdańsk
Damian
Zurawski
Data Engineer w
Grupie Żywiec
Artur
D.
Solution Architect,
Atos IT Services Sp.
z o.o.
If Sheets(z).Name <= 150 Then> Sheets(z).Range("b1:m19").Clear
Zbigniew Bereta sinol gdańsk
Krzysztof Żurek kontroler jakości
Oskar
Shon
Dodatki do Office
www.VBATools.pl
Krzysztof Żurek kontroler jakości
Następna dyskusja: