comboboxtaki veriye göre textboxa yazı yazdırma sorunu

[kinikemrah]

Merhabalar. Bir tablom var ve bu tabloda sıra numarası vermek için şu kodu kullanıyorum;

Set Sayfa = Worksheets("YÜKBİLGİSİ")
satir = Sayfa.Cells(Rows.Count, 1) .End(xlUp).Offset(1, 0).Row 'Veritabanında ilk boş satırı bul
Sayfa.Cells(satir, 1).Value = "=IF(RC[1]="""","""",R[-1]C+1)" 'bu satırdaki son dolu hücreyi bul ona bir ekle ve yaz.

şu ana kadar bir çok formda kullandım bu kodu ve bir hata ile karşılaştırğımı hatırlamıyorum.

şimdi combboxtaki veri değişince ona karşılık gelen verileri getirmesi gerekiyor fakat rakam değil formul olduğu için yanlış verileri getiyor.

bu konuda yardımınızı bekliyorum örnek dosya linktedir ayrıca ekte.

İndir SorunORnegi

Dosyayı indir SorunORnegi

dosya.co

düğme 1 i çalıştırınca ıd değiştirdiğinizde
1 düzgün geliyor
2 ise 1inci veriyi gösteriyor
3 ise 1inci veriyi gösteriyor
4. ise 2ince veriyi gösteriyor
5. 3üncü veriyi
6. 4üncü veriyi gibi.

konu hakkında tecribesi olanların yardımlarını bekliyor ve şimdiden kendisine çok teşekkür ediyorum.

 

[Orion1]

Buyurn

Dim sayfa As Worksheet, satir As Long
Set sayfa = Sheets("YÜKBİLGİSİ")
satir = sayfa.Cells(Rows.Count, "A").End(xlUp).Row + 1
sayfa.Cells(satir, "A").Value = WorksheetFunction.Max(sayfa.Range("A2:" & "A" & satir - 1)) + 1

 

[kinikemrah]

Buyurn

Dim sayfa As Worksheet, satir As Long
Set sayfa = Sheets("YÜKBİLGİSİ")
satir = sayfa.Cells(Rows.Count, "A").End(xlUp).Row + 1
sayfa.Cells(satir, "A").Value = WorksheetFunction.Max(sayfa.Range("A2:" & "A" & satir - 1)) + 1

çok teşekkür ediyorum deneyip bilgi vereceğim.

 

[kinikemrah]

Buyurn

Dim sayfa As Worksheet, satir As Long
Set sayfa = Sheets("YÜKBİLGİSİ")
satir = sayfa.Cells(Rows.Count, "A").End(xlUp).Row + 1
sayfa.Cells(satir, "A").Value = WorksheetFunction.Max(sayfa.Range("A2:" & "A" & satir - 1)) + 1

Evren bey birde rica etsem farklı bir yöntem önerebilirsiniz düzenle ve sil butonlarını kodlayabilirmisiniz.

 

[Orion1]

Evren bey birde rica etsem farklı bir yöntem önerebilirsiniz düzenle ve sil butonlarını kodlayabilirmisiniz.

Bu yaptığım doğru sonucu verdimi.?

 

[kinikemrah]

Bu yaptığım doğru sonucu verdimi.?

evet tabiki de ve dolayısı ile kod şeklinde olmadığı için comboboxta düzgün çalışıyor.

 

[Orion1]

Yeni bir soru için yeni bir başlık açarsanız,ilgilenen arkadaşlar olacaktır.