Merhaba arkadaşlar,
Sub aktar()
Private Sub CommandButton1_Click()
Dim STR As Long
STR = Range("I" & Rows.Count).End(xlUp).Row + 1
If STR < 3 Then
STR = 5
End If
Cells(STR, "I") = Cells(ActiveCell.Row, "C")
Cells(STR, "J") = Cells(ActiveCell.Row + 1, "C")
MsgBox "Seçilen hücre Araç 1'e aktarıldı", vbInformation, "Tamamlandı"
End Sub
Elimde bu kod var. Fakat sadece c sütunundaki activecell ve yanındaki hücreyi, I ve J sütunlarına yan yana ekliyor. Ben c, d ve e sütunlarını da eklemek istiyorum. Bir de verileri I5 ve I12 satırları arasına eklemek istiyorum. Kodu nasıl değiştirmem gerekir? Yardımcı olursanız çok sevinirim
Sub aktar()
Private Sub CommandButton1_Click()
Dim STR As Long
STR = Range("I" & Rows.Count).End(xlUp).Row + 1
If STR < 3 Then
STR = 5
End If
Cells(STR, "I") = Cells(ActiveCell.Row, "C")
Cells(STR, "J") = Cells(ActiveCell.Row + 1, "C")
MsgBox "Seçilen hücre Araç 1'e aktarıldı", vbInformation, "Tamamlandı"
End Sub
Elimde bu kod var. Fakat sadece c sütunundaki activecell ve yanındaki hücreyi, I ve J sütunlarına yan yana ekliyor. Ben c, d ve e sütunlarını da eklemek istiyorum. Bir de verileri I5 ve I12 satırları arasına eklemek istiyorum. Kodu nasıl değiştirmem gerekir? Yardımcı olursanız çok sevinirim