[Çözüldü]  Label'a Sütundaki Dolu Olan Son Satır Numarasını Alma

Programınızda alanları adlandırmada kullanacağınız etiket nesnesi.

Label'a Sütundaki Dolu Olan Son Satır Numarasını Alma

İleti#1)  Oktay CALISKAN » 07 May 2014 13:01

Merhaba ,

Excel sayfasında bulunan sıra numaralarını bir arttırarak labele almak istiyorum formda araştırdım tam olarak bulamadım bu konuda yardımcı olabilirmisiniz.

Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
En son Murat OSMA tarafından, 07 May 2014 15:40 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Sebep: Başlık değiştirildi...
Oktay CALISKAN
Yeni Başlamış
 
Adı Soyadı:oktay çalışkan
Kayıt: 27 Oca 2011 00:22
Konum: Ön Muhasebe elemanı
Meslek: Muhasebe
Yaş: 31
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir



Cevap: Listviewe veri alma

İleti#2)  Ozan İLGÜN » 07 May 2014 13:30

Ekte bulunan dosyayı inceleyiniz. Konunun listview ile alakası nedir?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2632
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Listviewe veri alma

İleti#3)  Oktay CALISKAN » 07 May 2014 13:36

Merhaba ,

İstediğim tam olarak bu değil exceldeki son sıra numarasını bulsun artı bir ekleyip labela yazsın. konunun listviewle alakası yok konu başlığını yanlış açmışım düzeltemedim.
Oktay CALISKAN
Yeni Başlamış
 
Adı Soyadı:oktay çalışkan
Kayıt: 27 Oca 2011 00:22
Konum: Ön Muhasebe elemanı
Meslek: Muhasebe
Yaş: 31
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir



Cevap: Label'a Sütundaki Dolu Olan Son Satır Numarasını Alma

İleti#4)  Murat OSMA » 07 May 2014 15:06

Bu kodlardan herhangi birini kullanabilirsiniz;
Kod: Tümünü seç
Private Sub UserForm_Initialize()
    Label2.Caption = Range("A1").End(4).Row + 1
    Label2
.Caption = Columns(1).End(4).Row + 1
    Label2
.Caption = Range("A65536").End(3).Row + 1
    Label2
.Caption = WorksheetFunction.CountA(Range("A:A")) + 1
    Label2
.Caption = Columns(1).SpecialCells(12).End(4).Row + 1
End Sub

İlaveten bu kodlar da kullanılabilir ama işlem gören son satır numarasına bakarlar. Örneğin; D30 hücresine veri girip silseniz bile o hücreyi son hücre olarak alır. Yani; son satır olarak 30. satır değerini verir. (+1 de 1 fazlasını)
Kod: Tümünü seç
Label2.Caption = ExecuteExcel4Macro("Get.Document(10)") + 1
Label2
.Caption = Cells.SpecialCells(11).Row + 1
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Label'a Sütundaki Dolu Olan Son Satır Numarasını Alma

İleti#5)  Oktay CALISKAN » 07 May 2014 15:32

Teşekkür ederim vaktinizi ayırdığınız için.
Oktay CALISKAN
Yeni Başlamış
 
Adı Soyadı:oktay çalışkan
Kayıt: 27 Oca 2011 00:22
Konum: Ön Muhasebe elemanı
Meslek: Muhasebe
Yaş: 31
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir



Cevap: Label'a Sütundaki Dolu Olan Son Satır Numarasını Alma

İleti#6)  Murat OSMA » 07 May 2014 15:40

Rica ederim, iyi günler. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Label

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe