son satırı nasıl bulunur ve bulunduğu satırda işlem nasıl yapılır

[vural-305-10]

MERHABA
Son satırı bulmak istiyorum ve son satırı bulduktan sonra bir alt satıra inip ekleme yapmak istiyorum. Yardımcı olursanız sevinirim.
alttaki kodları araştırma yaparak buldum ama bir türlü çözemiyorum

Özel Alt CommandButton4_Click()
Dim maliyetoplamx As Double


BURADA OLMASI GEREKİYOR
EĞER BURASI BOŞ OLURSA DİREK EKLEME YAPTIĞIM ZAMAN SORUN YOK.

'yenisatir = yenisatir + 1
Sheets("maliyetgecici").Range("C" & yenisatir).Value = TextBox2.Value
Sheets("maliyetgecici").Range("D" & yenisatir).Value = TextBox3.Value
Sheets("maliyetgecici").Range("E" & yenisatir).Value = TextBox4.Value

maliyetoplamx = Application.WorksheetFunction.Sum(Sheets("maliyetgecici").Range("I2:I5000").Value)


TextBox1.Value = maliyetoplamx
listeyiyenile

------------------------------------------------------------------------------------


End Sub
Sub listeyiyenile()
ListBox1.ColumnCount = 7
ListBox1.ColumnHeads = True
ListBox1.RowSource = "maliyetgecici!A2:I" & yenisatir
ListBox1.ColumnWidths = "70,100,200,70,100,100,100,100,100"

End Sub
---------------------------------------------

YANDAKİ EKRAN (EXCEL SAYFASINDAKİ SATIŞ DETAYI ELE ALIYOR )
YUKARI TARAFTA EKRANDAN EKLE YAPTIĞIM ZAMAN ALTTAKİ MALİYET EKRANI GİDİYOR. ANCAK ALTTAKİ EKRANDA YEŞİL BUTONDA KULLANMAM GEREKİYOR
YUKARIDAKİ EKRANDA YAPTIKLARIMIN SON SATIRINI ALTTAKİ ALANDA GÖRMEM GEREKİYOR. DAHA SONRA
ÜRÜN ADI / MKT/ FİYATINI GİRİP EKLE YAPTIĞIMDA İLK BAŞLIK SUTUNU VEYA EKLEME YAPMIŞ OLDUĞUM SATIRIN ÜZERİNE GİDİP YAZIYOR
BEN BOŞ SATIRA EKLEME YAPMAK İSTİYORUM. VE FİYATLARINI TOPLAM SATIRDA GÖRMEK İSTİYORUM. O KADAR...

YANDAKİ EKRAN ( EXCEL SAYFASINDAKİ MALİYET GEÇİCİ SAYFASINI ELE ALIYOR )

YARDIMCI OLURSANIZ SEVİNİRİM...

 

[Korhan Ayhan]

Bir hatırlatma yapmakta fayda görüyorum..

Büyük Harf Kısıtlaması:
- Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için yazılarınızı kesinlikle büyük harf kullanarak yazmayınız.

Son satırı bulmak için genel olarak kullanılan teknik aşağıdaki gibidir..

Son_Satir = Sheets("Sayfa1").Range("A" & Rows.Count).End(3).Row + 1

Bu kod satırı Sayfa1 isimli sayfada A sütunundaki ilk boş satırın numarasını verecektir. Kodu kendi dosyanıza göre revize edersiniz.

 

[vural-305-10]

Bir hatırlatma yapmakta fayda görüyorum..
[/ALINTI]
Böyle düşünüldüğünü bilmiyordum . Kusura bakmayınız ...

 

[Korhan Ayhan]

Önceki mesajımda son satırı bulan kodu paylaştım. Onu da kendi dosyanıza göre uyarlarsınız..

 

[vural-305-10]

Acaba yanlış bir şey mi yapıyorum
Sıfırdan excel sayfası düzeni kodu
aşağıdaki kod dedim oluyor

Dim SonSat As Long

SonSat = Sheets("maliyetgecici").Range("A" & Rows.Count).End(xlUp).Row + 1
Hücreler(SonSat, "A").Seç



ama
kendi sayfamda aşağıdaki sayfamı yapıyorum
bir türlü olmuyor

Özel Alt CommandButton4_Click()
Dim maliyetoplamx As Double
Dim SonSat As Long

SonSat = Sheets("maliyetgecici").Range("A" & Rows.Count).End(xlUp).Row + 1
Hücreler(SonSat, "A").Seç


'yenisatir = yenisatir + 1
Sheets("maliyetgecici").Range("C" & yenisatir).Value = TextBox2.Value
Sheets("maliyetgecici").Range("D" & yenisatir).Value = TextBox3.Value
Sheets("maliyetgecici").Range("E" & yenisatir).Value = TextBox4.Value

maliyetoplamx = Application.WorksheetFunction.Sum(Sheets("maliyetgecici").Range("I2:I5000").Value)


TextBox1.Value = maliyetoplamx
listeyiyenile

Son Alt


Nerede acaba hata yapıyorum


1 den fazla satırda olabilir illa 3 satırdan başlanamaz
4 de olur 5 te hangi dolu olan verinin her zaman alt verisinden devam etmesi gerekiyor

 

[Korhan Ayhan]

Tanımlamanız SonSat olarak görünüyor.

Fakat veriyi hücreye yazdırırken aşağıdaki gibi kullanmışsınız.

Sheets("maliyetgecici").Range("C" & yenisatir).Value = TextBox2.Value

Kalın fontlu bölümleri eşitlemeniz gerekir.

 

[vural-305-10]

Sheets("maliyetgecici").Range("C").Value = TextBox2.Value

bu şekilde yapsam sorun kalkar mı?
sizin kadar çok fazla bilgim olmadığı için, uzun süredir bu alanda takılı kaldım
Burayı aşmam gerekiyor. Bana tam olarak kodu yazarsan sevinirim. Hocam

 

[Korhan Ayhan]

Linkleri incelemeniz bilgi düzeyinize fayda sağlayacaktır.

Gerekirse konuyla ilgili nette videolu anlatımları izleyerek görsel olarak bilgilerinizi geliştirebilirsiniz.

Veri Yönetimi Uygulamaları

Bu başlıkta, Veri kaydetme, değiştirme, silme gibi özellikleri içeren veri yönetimi uygulamalarını bulabilirsiniz.

www.excel.web.tr

Userform ve Nesnelere Yönelik uygulamalar

Bu başlıkta, userform ve nesnelerinin özelliklerini değiştirme, yeni özellikler ilave etme gibi nesneye yönelik uygulamaları bulabilirsiniz.

www.excel.web.tr