[Çö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 11: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 13: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: 26 Oca 2011 22:22
Konum: Ön Muhasebe elemanı
Meslek: Muhasebe
Yaş: 32
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir



Cevap: Listviewe veri alma

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

Ekte bulunan dosyayı inceleyiniz. Konunun listview ile alakası nedir?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
ozan.ilgun@boun.edu.tr

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



Cevap: Listviewe veri alma

İleti#3)  Oktay CALISKAN » 07 May 2014 11: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: 26 Oca 2011 22:22
Konum: Ön Muhasebe elemanı
Meslek: Muhasebe
Yaş: 32
İ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 13: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: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14330
 
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 13:32

Teşekkür ederim vaktinizi ayırdığınız için.
Oktay CALISKAN
Yeni Başlamış
 
Adı Soyadı:oktay çalışkan
Kayıt: 26 Oca 2011 22:22
Konum: Ön Muhasebe elemanı
Meslek: Muhasebe
Yaş: 32
İ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 13:40

Rica ederim, iyi günler. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14330
 
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