[Çözüldü] Değişken Aralıktaki satırlara veri ekleme

[muhittinemmi]

Kod: Tümünü seç

Private Sub CommandButton2_Click()
Dim emmi As Long, Say As Byte
emmi = Range("a45").End(3).Row + 1
Cells(emmi, "A") = ComboBox1.List
Cells(emmi, "C") = TextBox1.Text
Cells(emmi, "D") = TextBox2.Text
     Unload Me
End Sub

Bu kod ile butona her tıklandığında sırası ile a sutununun 1. satırından başlayıp 45. satırına kadar veri ekleniyor.

Veri eklemeyi 5.satırdan başlatıp (örnek 50.satır dolu ise satır sayısı farklı olabilir) dolu satıra denk gelince veri eklemeyi durdurup satır ekle uyarısı verdirilebilirmi.

veya

Durdurulacak satırı belirlemek adına a sutununda ilgili satıra eklemeyidurdur yazsak belirtilen kelimeye gelindiğinde eklemeyi durdurabilirmiyiz.

[Tarkan VURAL]

Merhaba,

Kod: Tümünü seç

Private Sub CommandButton2_Click()
Dim emmi As Long, Say As Byte
emmi = Range("a45").End(3).Row + 1
if cells(emmi,"a").value<>"" then 
msgbox "Satır ekleyin. "
exit sub
end if 
Cells(emmi, "A") = ComboBox1.List
Cells(emmi, "C") = TextBox1.Text
Cells(emmi, "D") = TextBox2.Text
     Unload Me
End Sub

[muhittinemmi]

Merhaba
Örnek olarak A5 ten başlatıp a6, a7......... ekleyip dolu satır a denk geldiğinde araya boş satır eklemek için satır ekle uyarısı vermedi

direk En son dolu satırdan sonra eklemeye devam ediyor.

[muhittinemmi]

Merhaba,

Kod: Tümünü seç

Private Sub CommandButton2_Click()
Dim emmi As Long, Say As Byte
emmi = Range("a45").End(3).Row + 1
if cells(emmi,"a").value<>"" then 
msgbox "Satır ekleyin. "
exit sub
end if 
Cells(emmi, "A") = ComboBox1.List
Cells(emmi, "C") = TextBox1.Text
Cells(emmi, "D") = TextBox2.Text
     Unload Me
End Sub

Diğer mesajda düzenleme yapamadığım için ekliyorum

normalde a 46 da yazı var silinmesini istemiyoruz. bir alt satıra veri eklenmesinide istemiyoruz
A45 e kadar veri ekleyip tekrar veri eklemek istediğimizde satır ekle uyarısı veriyor buraya kadar iyi, bunun üzerine boş satır satır eklediğim zaman a46 bir satırdaha eklenince a47... gibi değişken oluyor.
a45te sınırladığımız için veri ekleyince satır ekle uyarısı veriyor eklenen boş satıra veri ekleyebilmek için nasıl bir değişiklik yapmak gerekir.

[muhittinemmi]

Kod: Tümünü seç

Private Sub CommandButton2_Click()
Dim emmi As Long, Say As Byte
emmi = Range("a45").End(3).Row + 1
if cells(emmi,"a").value<>"" then 
msgbox "Satır ekleyin. "
exit sub
end if 
Cells(emmi, "A") = ComboBox1.List
Cells(emmi, "C") = TextBox1.Text
Cells(emmi, "D") = TextBox2.Text
     Unload Me
End Sub

Benimgibi enteresan soru soranlara örnek olması açısından bulmuş olduğum çözüm yöntemini açıklıyorum.

H1 Hücresine ="A"&SATIR(A45)-1 formülünü ekledim. Böylelikle satır ekledikçe değişen a45 in kaçıncı satırda olduğunu öğrenmiş oldum.

Sabit değer olarak girilen emmi = Range("a45").End(3).Row + 1 satırını Dinamik olarak eklemek için emmi = Range(Range("H1").Value).End(3).Row + 1 olarak değiştirince problem çözülmüş oldu.