aralıktaki en son sayı

[Crazy Drake]

G7:K7 aralığında yazan en son sayıyı L7 hücresine nasıl yazdırabiliriz

anlatamadıysam diye örnek dosyada ekledim

 

[Crazy Drake]

bir sorum daha var "=MAK(G7:K7)" formülünü makroyla nasıl yazabiliriz.

buldum bunu WorksheetFunction.Max(Range("G7:K7"))

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkte sorunuzun cevabı bulunmaktadır. İncelermisiniz

Arama ve başvuru fonksiyon uygulamaları

 

[hımmmmmmmm]

L7 hücresine yazılacak

=EĞER(K7<>"";K7;EĞER(J7<>"";J7;EĞER(I7<>"";I7;EĞER(H7<>"";H7;EĞER(G7<>"";G7;"")))))

 

[Korhan Ayhan]

Merhaba,

Verdiğiniz çözümde sorgulanacak hücre aralığı 1000 adet olsaydı önerdiğiniz formülü nasıl yazacaktınız?

Sizin önerdiğiniz formül az sayıda hücre sorgulanmasında kullanılabilir. Fakat aralık büyürse işlevselliğini kaybeder.

L7 hücresine yazılacak

=EĞER(K7<>"";K7;EĞER(J7<>"";J7;EĞER(I7<>"";I7;EĞER(H7<>"";H7;EĞER(G7<>"";G7;"")))))

 

[Crazy Drake]

makro ile olması lazım. matbu bir formu doldurduğum bir sayfada yer alıyor.

sıradaki yazdırılacak kişiye geçmeden önce sayfa çok kalabalık olduğu için sayfadaki herşeyi diliyor.

 

[Korhan Ayhan]

Merhaba,

#2 nolu mesajınızda makrolu uygulamayı bulduğunuzu belirtmiştiniz. Sanırım sorununuz çözüldü.

 

[Crazy Drake]

2. mesajımda en yüksek değeri yazdırmayı sormuştum onu buldum ancak aralıktaki en son değeri yazdırmayı bulamadım hala

 

[Crazy Drake]

bu şekilde yaptım ancak en yüksek değeri bulmadaki gibi daha sade bir yolu varmıdır.

If Range("K7").Value <> Empty Then
Range("L7").Value = Range("K7").Value
ElseIf Range("J7").Value <> Empty Then Range("L7").Value = Range("J7").Value
ElseIf Range("I7").Value <> Empty Then Range("L7").Value = Range("I7").Value
ElseIf Range("H7").Value <> Empty Then Range("L7").Value = Range("H7").Value
ElseIf Range("G7").Value <> Empty Then Range("L7").Value = Range("G7").Value
End If

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki şekilde kullanabilirsiniz.

WorksheetFunction.Lookup(9.999999999E+307, Range("G7:J7"))

 

[Crazy Drake]

2. mesajımda en yüksek değeri yazdırmayı sormuştum onu buldum ancak aralıktaki en son değeri yazdırmayı bulamadım hala

aralıktaki en son değeri yazdırmayı bulamadım hala

 

[Korhan Ayhan]

Merhaba,

#10 nolu mesajımdaki kodu denediniz mi?

 

[Crazy Drake]

Merhaba,

Aşağıdaki şekilde kullanabilirsiniz.

WorksheetFunction.Lookup(9.999999999E+307, Range("G7:J7"))

kodda g7:j7 yazıyormuş benimde dikkatimden kaçmış g7:k7 yapınca düzeldi

çok teşekkürler