- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
Worksheets("PERSONEL").Select: Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:=vardiya1
Selection.AutoFilter Field:=5, Criteria1:="PB"
Range("A1").AutoFilter
Range("A1:F20").Select:
Selection.CurrentRegion.Copy
Workbooks.Add.SaveAs Filename:="aaa.xls"
Windows("aaa.xls").Activate: MsgBox "aktif" ' Program çalışınca bu mesaj kutusunu görüyorum!!!
Range("A1:F20").PasteSpecial Paste:=xlValues
' ActiveSheet.Paste Destination:=Worksheets("Sayfa1").Range("A1:F20")
Application.CutCopyMode = False
'ActiveSheet.Paste
vr = WorksheetFunction.CountA(Sheets(ActiveSheet.Name).[A1:A65536])
UserForm2.ListBox12.ColumnCount = 6
For i = 2 To vr
If Sheets(ActiveSheet.Name).Rows(i).Hidden = False Then
UserForm2.ListBox12.RowSource = "Sayfa1!A1:F" & i
End If
Next i
Unload UserForm1
UserForm2.Show
"Range Sınıfının PasteSpecial Yöntemi Başarısız" BU UYARIYI NEDEN ALIYORUM ACABA YA??? :? :?
Selection.AutoFilter Field:=1, Criteria1:=vardiya1
Selection.AutoFilter Field:=5, Criteria1:="PB"
Range("A1").AutoFilter
Range("A1:F20").Select:
Selection.CurrentRegion.Copy
Workbooks.Add.SaveAs Filename:="aaa.xls"
Windows("aaa.xls").Activate: MsgBox "aktif" ' Program çalışınca bu mesaj kutusunu görüyorum!!!
Range("A1:F20").PasteSpecial Paste:=xlValues
' ActiveSheet.Paste Destination:=Worksheets("Sayfa1").Range("A1:F20")
Application.CutCopyMode = False
'ActiveSheet.Paste
vr = WorksheetFunction.CountA(Sheets(ActiveSheet.Name).[A1:A65536])
UserForm2.ListBox12.ColumnCount = 6
For i = 2 To vr
If Sheets(ActiveSheet.Name).Rows(i).Hidden = False Then
UserForm2.ListBox12.RowSource = "Sayfa1!A1:F" & i
End If
Next i
Unload UserForm1
UserForm2.Show
"Range Sınıfının PasteSpecial Yöntemi Başarısız" BU UYARIYI NEDEN ALIYORUM ACABA YA??? :? :?