Değerli Dostlar Selamlar,
Aşağıda yazılı makro ile Sayfa1 C3,C4,C6,C7,C8,C9,C10 hücrelerden bir satır olarak Sayfa2 son satıra veri aktarıyorum. Ancak ben TextBox1, TextBox2,ComboBox1, TextBox3, TextBox4, TextBox5, TextBox6 daki bigilerden bir satır oluşturarak kaydetmek istiyorum. Nasıl yaparım.
Sub Aktar()
On Error Resume Next
Application.ScreenUpdating = False
Set S1 = Sayfa1
Set S2 = Sayfa3
S1.Select
Range("C3,C4,C6,C7,C8,C9,C10").Copy
S2.Select
Son_Satır = Range("B65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("B65536").End(3).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
Application.CutCopyMode = False
S1.Select
Set S1 = Nothing
Set S2 = Nothing
MsgBox "ZİMMET KAYDI TAMAMLANDI"
End Sub
Aşağıda yazılı makro ile Sayfa1 C3,C4,C6,C7,C8,C9,C10 hücrelerden bir satır olarak Sayfa2 son satıra veri aktarıyorum. Ancak ben TextBox1, TextBox2,ComboBox1, TextBox3, TextBox4, TextBox5, TextBox6 daki bigilerden bir satır oluşturarak kaydetmek istiyorum. Nasıl yaparım.
Sub Aktar()
On Error Resume Next
Application.ScreenUpdating = False
Set S1 = Sayfa1
Set S2 = Sayfa3
S1.Select
Range("C3,C4,C6,C7,C8,C9,C10").Copy
S2.Select
Son_Satır = Range("B65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("B65536").End(3).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
Application.CutCopyMode = False
S1.Select
Set S1 = Nothing
Set S2 = Nothing
MsgBox "ZİMMET KAYDI TAMAMLANDI"
End Sub