İyi günler
aşağıdaki makroda çalışma kitabı kendi sayfa3 üne değilde C:\data.xls isimli
dosyanın sayfa3 üne aktarması kodda neyi değişmem gerek.
heri iki sayfa3 te ki sütünlar satırlar hepsi aynıdır.
Saygılar
Sub Aktar()
If [b10] = "" Then Exit Sub
Application.ScreenUpdating = False
metin = [b10]
Sheets("Sayfa3").Select
With Range("D
")
.Find(Sheets("Sayfa2").Cells(3, 2).Value, , , xlWhole).Activate
sk = Range("IV" & ActiveCell.Row).End(1).Column + 1
If sk < 169 Then sk = 169
Cells(ActiveCell.Row, sk) = metin
Sheets("Sayfa2").Select
Range("B10:B14") = ""
End With
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub
aşağıdaki makroda çalışma kitabı kendi sayfa3 üne değilde C:\data.xls isimli
dosyanın sayfa3 üne aktarması kodda neyi değişmem gerek.
heri iki sayfa3 te ki sütünlar satırlar hepsi aynıdır.
Saygılar
Sub Aktar()
If [b10] = "" Then Exit Sub
Application.ScreenUpdating = False
metin = [b10]
Sheets("Sayfa3").Select
With Range("D
").Find(Sheets("Sayfa2").Cells(3, 2).Value, , , xlWhole).Activate
sk = Range("IV" & ActiveCell.Row).End(1).Column + 1
If sk < 169 Then sk = 169
Cells(ActiveCell.Row, sk) = metin
Sheets("Sayfa2").Select
Range("B10:B14") = ""
End With
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub