Hello,
The macro returns error method range of object _global failed. Asking for help - what's wrong?
Sub copy_nazwy_kolory()
Dim i As Integer, j As Long, wynik As Long, wiersz As Long, zakres As Variant
Dim kol As String
wiersz = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
zakres = Range("f1:f" & wiersz)
For i = 1 To UBound(zakres, 2)
For j = wiersz To wynik + 1 Step -1
If zakres(j, i) "" Then wynik = j: Exit For
Next j
Next i
kol = Worksheets("Nazwy+kolory").Range("T1").Value
Sheets("Nazwy+kolory").Select 'dodawanie zakresu
Range("f11:" & kol & wynik).Select ' zmiana zakresu kolumn do skopiowania
Selection.Copy
Sheets.Add 'dodawanie arkusza
ActiveSheet.Name = "nowy"
Sheets("nowy").Select
Range("A2").Select 'wklejanie
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Nazwy+kolory").Select
End Sub
The macro returns error method range of object _global failed. Asking for help - what's wrong?
Code: VB.net
Sub copy_nazwy_kolory()
Dim i As Integer, j As Long, wynik As Long, wiersz As Long, zakres As Variant
Dim kol As String
wiersz = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
zakres = Range("f1:f" & wiersz)
For i = 1 To UBound(zakres, 2)
For j = wiersz To wynik + 1 Step -1
If zakres(j, i) "" Then wynik = j: Exit For
Next j
Next i
kol = Worksheets("Nazwy+kolory").Range("T1").Value
Sheets("Nazwy+kolory").Select 'dodawanie zakresu
Range("f11:" & kol & wynik).Select ' zmiana zakresu kolumn do skopiowania
Selection.Copy
Sheets.Add 'dodawanie arkusza
ActiveSheet.Name = "nowy"
Sheets("nowy").Select
Range("A2").Select 'wklejanie
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Nazwy+kolory").Select
End Sub
Code: VB.net