textbox yazılan hücreye aktarma şartlı

[netvolxxx]

merhaba şöyle bir şey yapmak istiyorum
userform da textbox1 yazdığım buton ile sayfada belirli hücreye yazdırma
textbox1 yazdığım c19 dan başlayarak 5 hücre ile artıp devam edicek
c19 c24 c29 c34 şeklinde

buton her bastığımda textbox alanını temizlicek boşaltcak

şöyle bir kod yazdım fakat istediğim gibi olmadı.
kod kısmında yardımlarınızı bekliyorum...

Dim hucrearti1 As Long, Say As Byte

hucrearti1 = Range("c487").End(3).Row + 5

Cells(hucrearti1, "c") = TextBox1.Text
end sub

 

[Korhan Ayhan]

Deneyiniz.

Sub Test()
     Dim X As Long

     If Range("C19") = "" Then
          X = 19
     Else
          X = Range("C487").End(3).Row + 5
     End If

     If X > 487 Then
          MsgBox "Tablo dolmuştur.", vbCritical
          Exit Sub
     End If

     Cells(X, "C") = TextBox1.Value
     TextBox1.Value = ""
End Sub

 

[netvolxxx]

Deneyiniz.

Sub Test()
     Dim X As Long

     If Range("C19") = "" Then
          X = 19
     Else
          X = Range("C487").End(3).Row + 5
     End If

     If X > 487 Then
          MsgBox "Tablo dolmuştur.", vbCritical
          Exit Sub
     End If

     Cells(X, "C") = TextBox1.Value
     TextBox1.Value = ""
End Sub

denedim korhan hocam da bi kere kayıt yapıyor sonra yapmıyor tablo dolmuştur uyarı veriyor

her textbox veri yazıp ekle dediğimde +5 şeklinde devam etmesi olayı...

 

[Korhan Ayhan]

Kod C487 hücresinden yukarı doğru boş hücre tespiti yapıyor. Aradaki hücreler gerçekten boş ise sorun olmaması gerekir.

 

[netvolxxx]

Kod C487 hücresinden yukarı doğru boş hücre tespiti yapıyor. Aradaki hücreler gerçekten boş ise sorun olmaması gerekir.

haklısınız hocam alt satırlarda bir şey kalmış fark ettim şimdi kod çalışıyor teşekürrr ederim çok....

 

[netvolxxx]

k

Kod C487 hücresinden yukarı doğru boş hücre tespiti yapıyor. Aradaki hücreler gerçekten boş ise sorun olmaması gerekir.

korhan hocam aryıca bi sorum olcak kod yapısını c alanında sadece istediğim hücrelere nasıl uyarlayabilirim örnek hücreler şunlar C19,C24,C29,C34,C39,C44,C49,C54,C59,C64,C69 bu hücrelere +5 olcak şekilde yazmış olduğunuz kod çalışıyor ben sadece bu hücrelere range bunlara kod yazdırmak istiyorum ve şöyle bir şey yapabilirmiyiz yada yazdırcağı alanı hücreye seçtirip yazdırsak oda olabilir.

 

[Korhan Ayhan]

Aşağıdaki yöntemlerle yapabilirsiniz.

1- Form açılmadan veriyi aktarmak istediğiniz hücreyi seçerseniz ve sonrasında formu açarsanız aktif hücreye veriyi aktarabilirsiniz.
2- Form üzerine bir ComboBox ekleyip hücre adreslerini burada listeledikten sonra seçim yaparak dilediğiniz hücreye veri aktarımı yapabilirsiniz.
3- Formun ShowModal özelliğini FALSE olarak ayarlarsanız form açıldığında excel sayfasına tıklayarak dilediğiniz hücreyi seçme şansınız olur. Bu şekilde dilediğiniz hücreye veri aktarımı yapabilirsiniz.

Bunların dışında farklı tekniklerde bulunabilir.. Siz kullanım amacına göre tercihlerinizi belirleyebilirsiniz.

 

[netvolxxx]

Aşağıdaki yöntemlerle yapabilirsiniz.

1- Form açılmadan veriyi aktarmak istediğiniz hücreyi seçerseniz ve sonrasında formu açarsanız aktif hücreye veriyi aktarabilirsiniz.
2- Form üzerine bir ComboBox ekleyip hücre adreslerini burada listeledikten sonra seçim yaparak dilediğiniz hücreye veri aktarımı yapabilirsiniz.
3- Formun ShowModal özelliğini FALSE olarak ayarlarsanız form açıldığında excel sayfasına tıklayarak dilediğiniz hücreyi seçme şansınız olur. Bu şekilde dilediğiniz hücreye veri aktarımı yapabilirsiniz.

Bunların dışında farklı tekniklerde bulunabilir.. Siz kullanım amacına göre tercihlerinizi belirleyebilirsiniz.

teşekürr ederim hocam yardımlarınız için....