Witam,
mam problem ze stworzeniem makra, które ma za zadanie kopiowanie danych z arkusza1 bez powtórzeń po zmiennej np."A1" i wprowadzanie do nowego arkusza z nadaniem mu nazwy zmiennej filtrowanej "A1".
Mam pewien kod programu, ale nie działa tak jak trzeba tzn. tworzy arkusz, ale nie nazywa go zmienną A1 oraz nie kopiuje danych z poprzedniego arkusza.
Może dodam tylko, że działam niestety na Excel2000.
Z góry dziękuję za pomoc.
Proszę pamiętać o używaniu znaczników code. - arnoldziq
Poprawiłem tytuł. - arnoldziq
mam problem ze stworzeniem makra, które ma za zadanie kopiowanie danych z arkusza1 bez powtórzeń po zmiennej np."A1" i wprowadzanie do nowego arkusza z nadaniem mu nazwy zmiennej filtrowanej "A1".
Mam pewien kod programu, ale nie działa tak jak trzeba tzn. tworzy arkusz, ale nie nazywa go zmienną A1 oraz nie kopiuje danych z poprzedniego arkusza.
Code:
Sub Filtrowanie()
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnStart As Range
Dim rnData As Range
Dim i As Long
Set wbBook = ThisWorkbook
Set wsSheet = wbBook.Worksheets("Prowizja")
With wsSheet
Set rnStart = .Range("A1")
Set rnData = .Range(.Range("A1"), .Cells(.Rows.Count, 3).End(xlUp))
End With
Application.ScreenUpdating = True
For i = 1 To 5
rnStart.AutoFilter Field:=1, Criteria1:= &ThisCust & i
rnData.SpecialCells(xlCellTypeVisible).Copy
Worksheets.Add before:=wsSheet
ActiveSheet.Name = &ThisCust & i
Range("A1").PasteSpecial xlPasteValues
Next i
rnStart.AutoFilter Field:=1
With Application
.CutCopyMode = False
.ScreenUpdating = False
End With
End Sub
Może dodam tylko, że działam niestety na Excel2000.
Z góry dziękuję za pomoc.
Proszę pamiętać o używaniu znaczników code. - arnoldziq
Poprawiłem tytuł. - arnoldziq