Sınırlandırma

[yi.94]

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 her activecelli seçip butona bastığımda H sütununda o verinin altına yazıyor 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

 

[Asri]

Aşağıdaki kod, seçilen sayıları H5 ile H12 arasına aktarır.
H12 kadar tüm hücreler dolduğunda, H1 den itibaren üzerine yazarak H12 kadar devam eder.

Döngü sürekli tekrarlanır.

Public sirasi As Integer
Sub aktar()
  Dim STR As Long
 
  satirh = Range("H" & Rows.Count).End(xlUp).Row
  If satirh < 5 Then
     satirh = 5
     sirasi = 4
  End If
  If satirh > 12 Then satirh = 5
  
  sirasi = sirasi + 1
  If sirasi > 12 Then sirasi = 5
  If sirasi > satirh Then sirasi = satirh + 1
  If sirasi < satirh And satirh <> 12 Then sirasi = satirh + 1
  
  Cells(sirasi, "H") = Cells(ActiveCell.Row, "C")
  Cells(sirasi, "I") = Cells(ActiveCell.Row + 1, "C")
  
  'MsgBox "Seçilen hücre Araç 1'e aktarıldı", vbInformation, "Tamamlandı"
End Sub

 

[endüstrici1992]

Merhaba, kod çalışmadı satırh de hata veriyor nasıl düzeltilerbilir? ayrıcada sadece c sütunundan deil c d e sütunlarındanda veri aktarmak istiyorum kod nasıl olmalı?

 

[Asri]

Merhaba, kod çalışmadı satırh de hata veriyor nasıl düzeltilerbilir? ayrıcada sadece c sütunundan deil c d e sütunlarındanda veri aktarmak istiyorum kod nasıl olmalı?

Kod yazmak zaten zaman alan bir iş, birde bitmiş kodu farlı istekler için yeniden yazmak daha da zaman alıyor.

Madem c d e sütünları da var, neden ilk sorunuz da c diyor sunuz ki.


126