sondan 1. ve 2. değeri bulmak

[nunikmakarios]

Bir satırdaki sondan 1. ve ikinci değeri bulacak bir kod yazılı için yardım eder misiniz

 

[hamitcan]

Sub SonHucreler()
    SonHucre = Cells(1, Range("a1").End(xlToRight).Column)
    sondanbironcekihucre = Cells(1, Range("a1").End(xlToRight).Column - 1)
    MsgBox SonHucre
    MsgBox sondanbironcekihucre
End Sub

yada

Sub SonHucreler()
    SonHucre = Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)
    sondanbironcekihucre = Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column - 1)
    MsgBox SonHucre
    MsgBox sondanbironcekihucre
End Sub

 

[Korhan Ayhan]

Arada boş hücreler var mı?

 

[nunikmakarios]

Sub SonHucreler()
    SonHucre = Cells(1, Range("a1").End(xlToRight).Column)
    sondanbironcekihucre = Cells(1, Range("a1").End(xlToRight).Column - 1)
    MsgBox SonHucre
    MsgBox sondanbironcekihucre
End Sub

üSTADIM ARADA BOŞ HÜCRELER VAR, VE YATAY YANİ SATIRDA ARIYORUM

 

[nunikmakarios]

Arada boş hücreler var mı?

EVET VAR VE AYRICA DİKET DEĞİL YATAY ARIYORUM

 

[nunikmakarios]

Hatta hepsi boş olan satırlar da mevcut

 

[Korhan Ayhan]

Ben formülle çözüm önereceğim. Gerekiyorsa siz makro koduna çevirirsiniz.

DİZİ formülleridir.

A5:Z5 aralığında;

Son değer;

=IFERROR(OFFSET(A5;;LARGE(IF(A5:Z5<>"";COLUMN(A5:Z5));1)-1);"")

Sondan bir önceki değer;

=IFERROR(OFFSET(A5;;LARGE(IF(A5:Z5<>"";COLUMN(A5:Z5));2)-1);"")

 

[nunikmakarios]

=IFERROR(OFFSET(A5;;LARGE(IF(A5:Z5<>"";COLUMN(A5:Z5));1)-1);"")

teşekkür ederim ama #ad? hatası veriyor. satırım e66 acaba buna göre yazar mısınız

 

[nunikmakarios]

teşekkür ederim ama #ad? hatası veriyor. satırım e66 acaba buna göre yazar mısınız

"p" harfi emoji görünüyor

 

[nunikmakarios]

teşekkür ederim ama #ad? hatası veriyor. satırım e66 acaba buna göre yazar mısınız

formülleri türkçeye çevirdim ama 0 veriyor

 

[Korhan Ayhan]

DİZİ formül olarak uygulayıp deneyiniz.

 

[nunikmakarios]

DİZİ formül olarak uygulayıp deneyiniz.

denedim
0 veriyor

 

[Korhan Ayhan]

Uyguladığınız örnek dosyanızı paylaşırsanız inceleyebiliriz.

 

[nunikmakarios]

DİZİ formül olarak uygulayıp deneyiniz.

 

[nunikmakarios]

Sonuç kırmızı renkli sütunlardaki gibi olsun

 

[Korhan Ayhan]

Sorun çözüldü mü?

 

[nunikmakarios]

Sorun çözüldü mü?

hayır, en son örnek dosya gönderdim. Formülle olursa formül yoksa kod ile çözüm arıyorum

 

[Korhan Ayhan]

Bizleri hep yanlış yönlendiriyorsunuz.

Bir hücreye boş demeniz için içinde birşey yazmaması gerekir. Halbuki boş dediğiniz hücrelerde SIFIR yazıyor. Doğal olarak sizin yönlendirmenize göre sunduğumuz çözümler boşa gidiyor. Gereksiz zaman kaybı..

DİZİ formülleridir.

N3;

=IFERROR(OFFSET(A3;;LARGE(IF(A3:L3<>0;COLUMN(A3:L3));1)-1);0)

O3;

=IFERROR(OFFSET(A3;;LARGE(IF(A3:L3<>0;COLUMN(A3:L3));2)-1);0)

 

[nunikmakarios]

=IFERROR(OFFSET(A3;;LARGE(IF(A3:L3<>0;COLUMN(A3:L3));1)-1);0)

karışıklık için özrü dilerim. gönderdiğim dosyada çalıştı TEŞEKKÜR EDERİM