- Katılım
- 25 Mart 2016
- Mesajlar
- 23
- Excel Vers. ve Dili
- Excel 2007 türkçe
Merhaba arkadaşlar benim elimde C sütununda seçtiğim activecell' i ve onun altındaki hücreyi komut butonuna bastığımda H satırına sırayla yan yana yazacak bir kod var ancak ben bunu sınırlandırmak istiyorum yani aktaracağım bu veriler H sütunun mesela sadece H5 ve H12 hücreleri arasında sınırlandırılsın bunun için kodun neresine nasıl bir şey eklemem gerekmektedir lütfen yardımcı olablilir misiniz?
Sub aktar()
Private Sub CommandButton1_Click()
Dim STR As Long
STR = Range("H" & Rows.Count).End(xlUp).Row + 1
If STR < 3 Then
STR = 3
End If
Cells(STR, "H") = Cells(ActiveCell.Row, "C")
Cells(STR, "I") = Cells(ActiveCell.Row + 1, "C")
MsgBox "Seçilen hücre Araç 1'e aktarıldı", vbInformation, "Tamamlandı"
End Sub
Sub aktar()
Private Sub CommandButton1_Click()
Dim STR As Long
STR = Range("H" & Rows.Count).End(xlUp).Row + 1
If STR < 3 Then
STR = 3
End If
Cells(STR, "H") = Cells(ActiveCell.Row, "C")
Cells(STR, "I") = Cells(ActiveCell.Row + 1, "C")
MsgBox "Seçilen hücre Araç 1'e aktarıldı", vbInformation, "Tamamlandı"
End Sub