Son Satırı istediğim yere yazmıyor

[ruhadam26]

Merhabalar; Üzerinde çalıştığım makrolu bir uygulamadan taslak olarak oluşturduğum yerlere form üzerinden giriş yaptığım verilerin yazıomasını istiyorum ama tablomun en altından başliyor. başlıkların hemen altından 2.satırdan başlamasını istiyorum. nasıl yapabilirim.Dosya ektedir.

 

[muygun]

Merhaba;
Yazılacak satır tespiti;

sonstr = s1.Range("A65536").End(xlUp).Row + 1

satırı ile A sütununda son dolu satırdan sonrası olarak tespit ediliyor.

siz bunu;

sonstr = s1.Range("B24").End(xlUp).Row + 1

şeklinde uygularsanız B sütunu 24. satıra kadar olan son dolu satırı baz alır.

İyi çalışmalar.

 

[ruhadam26]

Merhaba;
Yazılacak satır tespiti;

sonstr = s1.Range("A65536").End(xlUp).Row + 1

satırı ile A sütununda son dolu satırdan sonrası olarak tespit ediliyor.

siz bunu;

sonstr = s1.Range("B24").End(xlUp).Row + 1

şeklinde uygularsanız B sütunu 24. satıra kadar olan son dolu satırı baz alır.

İyi çalışmalar.

teşekkür ederim sorunumun bir kısmı çözüldü ama şimdi daha farklı bir sorun çıktı. Combobox1 de 3 farklı seçim yaptırıyorum yaptığım seçime göre 1.değeri seçersem sonstr b2-30 2.yi seçersem b32-55 3. yü seçersem b57-90 satır aralarına yazmasını istiyorum ama yapamadım yardımlarınızı bekliyorum.

 

[Ömer BARAN]

Merhaba.

Umarım yanlış anlamadım.

UserForm'daki KAYDET düğmesinin kodlarında aşağıda mavi renklendirdiğim satırların arasına kırmızı renklendirdiğim satırları ekleyerek deneyin.
.

[B][COLOR="blue"]Set s1 = ThisWorkbook.Worksheets("KABLO")[/COLOR][/B]

[COLOR="Red"]If ComboBox1.ListIndex = 0 And s1.Cells(2, 1) = "" Then sonstr = 2
If ComboBox1.ListIndex = 0 And s1.Cells(2, 1) <> "" Then sonstr = s1.Cells(1, 1).End(xlDown).Row + 1

If ComboBox1.ListIndex = 1 And s1.Cells(32, 1) = "" Then sonstr = 32
If ComboBox1.ListIndex = 1 And s1.Cells(32, 1) <> "" Then sonstr = s1.Cells(31, 1).End(xlDown).Row + 1

If ComboBox1.ListIndex = 2 And s1.Cells(57, 1) = "" Then sonstr = 57
If ComboBox1.ListIndex = 2 And s1.Cells(57, 1) <> "" Then sonstr = s1.Cells(56, 1).End(xlDown).Row + 1[/COLOR]

[B][COLOR="Blue"]s1.Cells(sonstr, 1) = ComboBox1[/COLOR][/B]

 

[muygun]

Merhaba;
Ömer bey çözüm üretmiş ama lternatif olsun.
İyi çalışmalar.

Set s1 = ThisWorkbook.Worksheets("KABLO")
If ComboBox1 = "FETİ GÜNDOĞAN" Then sonstr = s1.Range("B30").End(xlUp).Row + 1
If ComboBox1 = "FETİ GÜNDOĞAN" And sonstr < 2 Then sonstr = 2

If ComboBox1 = "OKAY KUŞÇU" Then sonstr = s1.Range("B55").End(xlUp).Row + 1
If ComboBox1 = "OKAY KUŞÇU" And sonstr < 32 Then sonstr = 32

If ComboBox1 = "ŞENOL AÇIKGÖZ" Then sonstr = s1.Range("B90").End(xlUp).Row + 1
If ComboBox1 = "ŞENOL AÇIKGÖZ" And sonstr < 57 Then sonstr = 57