Hücre dolu ise göstersin Label

[morphey]

Merhaba ;

Elimdeki veriyi userformda göster diyince

Sheets("4915 KAK").Select
Label44.Caption = Sheets("4915 KAK").Range("BD89")

düğmeye basıyorum gösteriyor ancak böyle değilde hücrede bilgi var ise göstersin istiyorum.
İlgili satırı userformdan kaydediyorum. son hücre otomatik doluyor işte ben o ilgili satır sonundaki hücreyi göstermek istiyorum.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[Murat OSMA]

Elinizdeki veriyi UserForm'da göster deyince ????? :dusun:

Deneyinz..

if sheets("4915 KAK").Range("BD89").value <> "" then
Label44.Caption = Sheets("4915 KAK").Range("BD89").value
end if

 

[programer]

örnek bir dosya ekleyebilirmisiniz

 

[Murat OSMA]

Dosya ekleyecek olan sizsiniz, ben değilim...

Yine de buyrun...

 

[Murat OSMA]

Bir diğer örnek;

 

[programer]

Dosya ekleyecek olan sizsiniz, ben değilim...

Yine de buyrun...

Murat bey ben sizden değil morphey 'den örnek bir dosya eklemesini istemiştim...

 

[morphey]

Murat Hocam Programer üstadım bana demiş olsa gerek dosya ekleyin diye
Hocam gerçekten çok özverilisiniz yinede eklemişsiniz çok teşekkürler.
Ancak Murat hocam şöyle şimdi

Kayıtlı en son satırdaki isim soyisim yazılı ise o satırın sonundaki hücreyi örneğin "e10" görmek istiyorum.
ama sonraki kayıtı doldurduğum zaman bu sefer "e11" görmek istiyorum.

İnşallah anlatabildim ve İnşallah örnek eklemeden sorun çözülür.
Teşekkürler.

 

[programer]

Aşağıdaki gibi denermisiniz. Bu "E" Sütunundaki en son dolu hücreyi gösterir

Label44.Caption = Sheets("4915 KAK").Range("E65536").End(xlUp)

 

[Murat OSMA]

Afedersiniz Sn. programer arıştırdım...
Güldüm kendime kızdım... :hiho:


Şu satır kafa karıştırıcı ama Sn. programer cevap vermiş...

Kayıtlı en son satırdaki isim soyisim yazılı ise o satırın sonundaki hücreyi örneğin "e10" görmek istiyorum.

İyi günler...

 

[programer]

Kızmayın murat bey bende bazen karıştırıyorum hem iş hem burda yardımcı olmak derken yaşıyoruz böyle şeyleri Dediğim gibi bir örnek çalışma eklense daha hızlı ve daha sağlıklı cevap verilebilir.

 

[Murat OSMA]

%100 haklısınız. Benim de en çok üzerinde durduğum konudur..

Kolaylık dilerim...

 

[morphey]

Hocam ben ilgili satırı doldurunca e hücresine otomtaik veriler geliyor örneğin
86 satırı dolduruyorum e86 hücresi otomatik doluyor işte ben göster diyince bu hücreyi göstersin diyorum

Ancak
eğer 87. satırı dolduruyorsam bu sefer e87 deki hücreyi göstersin diyorum.
Yani en alttaki dolu olan hücre gözüksün anlayın nolur

Programer üstadım denedim ancak boş hiç bir şey göstermiyor hatada vermiyor öyle duruyor.
İlginize tekrar teşekkürler

 

[Murat OSMA]

Dosyanızı ekleyin demiş miydim ?

Yapmak istediğinizi anlıyoruz merak etmeyin.

Sn.programer, E sütunu için örnek verdi aslında ama, ben de ilk mesajınızdaki BD sütunu için vereyim;

Private Sub CommandButton1_Click()
    Label44.Caption = Sheets("4915 KAK").Range("BD65536").End(3).Value
End Sub

Form üzerindeki butonu tıkladığınızda, "4915 KAK" sayfasındaki BD sütununun en son dolu hücresini Label44'te gösterir...

 

[morphey]

Hocam sizin yaptığınız oluyor herhalde de sanırım sorun bende şimdi
bu BD hücresinde formül var şöyle

=DZ30&DAMGA(10)&EA30&DAMGA(10)&EB30&DAMGA(10)&EF30&DAMGA(10)&EC30&DAMGA(10)&ED30&DAMGA(10)&EE30&DAMGA(10)

şimdi bu yazılanlar duruma göre doluyor boşsa boş gözüküyor herhalde sizin yaptığınız oluyor ancak bu formül olduğu için dolu sanıyor excel

Ben hemen bir örnek yolluyum.

 

[Murat OSMA]

Ah o dosyayı bir görseydik !!! Açıp içine bir baksaydık...

 

[programer]

Sayın morphey örnek dosyayı inceleyin. Formul olduğu için a sütunundaki en son dolu hücrenin e sütunundaki karşılığını yazıyor kendinize göre uyarlayınız

 

[morphey]

Dosya ekte hocam

 

[programer]

"B" sütunundaki en son dolu hücrenin karşılığını yazıyor label1'e

Private Sub UserForm_Initialize()
Label1.Caption = [B65536].End(xlUp).Offset(0, 54).Value
End Sub

 

[Murat OSMA]

Çözüldü mü acaba ? :dusun: :dusun:

Döngü ile alternatif:

Private Sub CommandButton1_Click()
    Dim i As Integer
        For i = 1 To Range("BD65536").End(3).Row
            If Cells(i, "BD") <> "" Then
                Label1.Caption = Cells(i, "BD")
            End If
        Next i
    i = Empty
End Sub

 

[morphey]

Sayın morphey örnek dosyayı inceleyin. Formul olduğu için a sütunundaki en son dolu hücrenin e sütunundaki karşılığını yazıyor kendinize göre uyarlayınız

Hocam son satırı gösteriyor ancak ek yapınca yahut silince hiç bir şey gösterimyor ki ?

Hocam olmasa bile olmuş kadar makbule geçti valla çok sağolun.