aşağıdaki yazmaya çalıştığım ama yazamadığım makroda do157 hücresi dolu ise
Range("DJ157:GC157") arasındaki değerleri başka bir çalışma sayfasına yazacak
daha sonra bir alt satırda do158 hücresine bakacak dolu ise yine aynı işlemi bu kez aynı işlemi Range("DJ158:GC158") için yapacak ve her seferinde diğer çalışma kitabında sayfa de a8 hücresine kayıt yapıp bir satır ekleyecektir.
en son ise diğer çalışma kitabını save yapıp kapatacak.iyi çalışmalar.
Bunu yapmamın nedeni her seferinde 6 satır veriden bazen sadece 1 bazende 2 satır oluyor sadece dolu olan satırı göndermek istiyorum.
Sub gönder1()
Dim i As Range
For i = 1 To 6
i = Cells("DO157
O162")
If Range("DO157").Value = Not Empty Then
Range("DJ157:GC157").Select
Selection.Copy
Workbooks.Open Filename:="C:\VERİTABANLARI\VERİTABANI1.xls"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A8").Select
Selection.EntireRow.Insert
End If
Next i
End Sub
Range("DJ157:GC157") arasındaki değerleri başka bir çalışma sayfasına yazacak
daha sonra bir alt satırda do158 hücresine bakacak dolu ise yine aynı işlemi bu kez aynı işlemi Range("DJ158:GC158") için yapacak ve her seferinde diğer çalışma kitabında sayfa de a8 hücresine kayıt yapıp bir satır ekleyecektir.
en son ise diğer çalışma kitabını save yapıp kapatacak.iyi çalışmalar.
Bunu yapmamın nedeni her seferinde 6 satır veriden bazen sadece 1 bazende 2 satır oluyor sadece dolu olan satırı göndermek istiyorum.
Sub gönder1()
Dim i As Range
For i = 1 To 6
i = Cells("DO157
O162")If Range("DO157").Value = Not Empty Then
Range("DJ157:GC157").Select
Selection.Copy
Workbooks.Open Filename:="C:\VERİTABANLARI\VERİTABANI1.xls"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A8").Select
Selection.EntireRow.Insert
End If
Next i
End Sub