Merhabalar,
Daha öncesinde yapmış ve çalıştırmıştım ama bu sefer olmuyor. Hata veriyor. Kod aşağıdaki gibidir. Konu hakkında yardımcı olacak varsa sevinirim.
Sub prnclean()
Dim s As Worksheet
Dim aralik1 As Integer
aralik1 = Array(8, 13, 18, 23, 28, 33, 38, 43, 48, 53, 58) ==> Kodu çalıştırdığımda "Type mismatch" hatası veriyor.
Set s = Sheets("PRINT")
s.Select
End Sub
Daha öncesinde yapmış ve çalıştırmıştım ama bu sefer olmuyor. Hata veriyor. Kod aşağıdaki gibidir. Konu hakkında yardımcı olacak varsa sevinirim.
Sub prnclean()
Dim s As Worksheet
Dim aralik1 As Integer
aralik1 = Array(8, 13, 18, 23, 28, 33, 38, 43, 48, 53, 58) ==> Kodu çalıştırdığımda "Type mismatch" hatası veriyor.
Set s = Sheets("PRINT")
s.Select
End Sub