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

UserForm TextBox CommandButton
ComboBox ListBox CheckBox
OptionButton İmage Label
Frame ToggleButton MultiPage
VBE Penceresi ScrollBar SpinButton
TreeView ListView ToolBar
StatusBar ProgressBar SpreadSheet
MsgBox
Kilitli
muhittinemmi
Mesajlar: 18
Kayıt: Cmt Haz 24, 2023 5:51 pm
Adınız: Muhittin
Soyadınız: Sancak

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

Mesaj gönderen 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.
Kullanıcı avatarı
Tarkan VURAL
Doğrulandı
Site Admin
Mesajlar: 59
Kayıt: Prş Haz 22, 2023 12:03 am
Lokasyon: İstanbul
Web Sitesi: http://www.tarkanvural.com.tr
Meslek: Yazılım ve Veri Tabanı Uzmanı
Adınız: Tarkan
Soyadınız: VURAL
İletişim:

Re: Değişken Aralıktaki satırlara veri ekleme

Mesaj gönderen 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
Konu Dışı
Logo Yazılım, Özel Yazılım, Entegrasyon işlemleri, Excel VBA kodlama, Raporlama, Eğitim.. gibi konulardaki destek ihtiyaçlarınız içinhelpdesk@evnyazilim.com.trile irtibata geçebilirsiniz.
muhittinemmi
Mesajlar: 18
Kayıt: Cmt Haz 24, 2023 5:51 pm
Adınız: Muhittin
Soyadınız: Sancak

Re: Değişken Aralıktaki satırlara veri ekleme

Mesaj gönderen 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
Mesajlar: 18
Kayıt: Cmt Haz 24, 2023 5:51 pm
Adınız: Muhittin
Soyadınız: Sancak

Re: Değişken Aralıktaki satırlara veri ekleme

Mesaj gönderen muhittinemmi »

Tarkan VURAL yazdı: Prş Tem 13, 2023 1:00 am 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
Mesajlar: 18
Kayıt: Cmt Haz 24, 2023 5:51 pm
Adınız: Muhittin
Soyadınız: Sancak

Re: Değişken Aralıktaki satırlara veri ekleme

Mesaj gönderen 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.
Kilitli
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj