Private Sub CreateFile()
Dim iProductNo As Integer
Workbooks.Add
Set oActiveSheet = ActiveWorkbook.Sheets("Sheet1")
For j = 2 To 6000
If Sheets("Installbase").Cells(j, "AJ") = True Then
Sheets("Installbase").Cells(j, 6).Copy
oActiveSheet.Cells(6, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone
Sheets("Installbase").Cells(j, "AI").Copy
oActiveSheet.Cells(7, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone
Application.CutCopyMode = False
End If
Next
End Sub
Arkadaşlar sadece belli hücreleri yeni bir sayfaya kopyalamak istiyorum ama beceremedim. hata nerede acaba ? yada bunun gibi bişi nasıl olur?
NOT : HALLETTİM TEŞEKKÜRLER
Dim iProductNo As Integer
Workbooks.Add
Set oActiveSheet = ActiveWorkbook.Sheets("Sheet1")
For j = 2 To 6000
If Sheets("Installbase").Cells(j, "AJ") = True Then
Sheets("Installbase").Cells(j, 6).Copy
oActiveSheet.Cells(6, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone
Sheets("Installbase").Cells(j, "AI").Copy
oActiveSheet.Cells(7, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone
Application.CutCopyMode = False
End If
Next
End Sub
Arkadaşlar sadece belli hücreleri yeni bir sayfaya kopyalamak istiyorum ama beceremedim. hata nerede acaba ? yada bunun gibi bişi nasıl olur?
NOT : HALLETTİM TEŞEKKÜRLER
Son düzenleme: