3 Ayrı sütunda en büyük değerleri alıp içinden en büyük değeri

[kelkitli]

Değerli Dostlar Selamlar,

Sheets("Sayfa1").Range("F22").Value = WorksheetFunction.Max(Sheets("Sayfa2").Range("W:W")) + 1

Sheets("Sayfa1").Range("F22").Value = WorksheetFunction.Max(Sheets("Sayfa3").Range("W:W")) + 1

Sheets("Sayfa1").Range("F22").Value = WorksheetFunction.Max(Sheets("Sayfa4").Range("W:W")) + 1

Yukardaki kodlarda:
Sheets("Sayfa1").Range("F22") değeri 3 ayrı sayfada aranarak bulunan en büyük değerlerin en büğüğü olması gerekiyor.

 

[Orion1]

Dim deg As Double
For i = 2 To 4
    If WorksheetFunction.Max(Sheets("Sayfa" & i).Range("W:W")) + 1 > deg Then
        deg = WorksheetFunction.Max(Sheets("Sayfa" & i).Range("W:W")) + 1
    End If
Next
Sheets("Sayfa1").Range("F22").Value = deg
Sheets("Sayfa1").Range("F22").NumberFormat = "#,##0.00"

 

[kelkitli]

Sayın Evren Hocam,
Teşekkürlerimi iletiyorum. Yalnız ben 3 sayfadan kontrol sağlıyacağız demiştim 2 tane sayfa var. Yanlışlıkmı var yoksa böyle çalışırmı?

 

[kelkitli]

Evren Hocam şöyle bir durum söz konusu:
Ben sayfaları ardışık yazdım ama aslen ardışık değiller. Sayfa2, Kayıt,
Tutanaklı vs. isimlerdeler. Birde bu sayfa ismini kullanan farklı makrolar varlar. Eğer bu şekilde makroyu kullanacaksam diğer makrolarıda hep yeniden uyarlamam gerekecek.

 

[Orion1]

Sayın Evren Hocam,
Teşekkürlerimi iletiyorum. Yalnız ben 3 sayfadan kontrol sağlıyacağız demiştim 2 tane sayfa var. Yanlışlıkmı var yoksa böyle çalışırmı?

2 tane sayfa değil 3 tane sayfa var.
sayfa2,sayfa3 ve sayfa4

 

[Orion1]

Evren Hocam şöyle bir durum söz konusu:
Ben sayfaları ardışık yazdım ama aslen ardışık değiller. Sayfa2, Kayıt,
Tutanaklı vs. isimlerdeler. Birde bu sayfa ismini kullanan farklı makrolar varlar. Eğer bu şekilde makroyu kullanacaksam diğer makrolarıda hep yeniden uyarlamam gerekecek.

Kendi sayfa isimlerinize göre uyarlayınız.

Dim deg As Double
deg = WorksheetFunction.Max(Sheets("Sayfa2").Range("W:W")) + 1
If WorksheetFunction.Max(Sheets("Sayfa3").Range("W:W")) + 1 > deg Then
    deg = WorksheetFunction.Max(Sheets("Sayfa3").Range("W:W")) + 1
End If
If WorksheetFunction.Max(Sheets("Sayfa4").Range("W:W")) + 1 > deg Then
    deg = WorksheetFunction.Max(Sheets("Sayfa4").Range("W:W")) + 1
End If
Sheets("Sayfa1").Range("F22").Value = deg
Sheets("Sayfa1").Range("F22").NumberFormat = "#,##0.00"

 

[kelkitli]

Sayın Hocam Allah daha ala etsin, ufkunuz o kadar genişki hayalimizi aşıyor vallahi. Ben bu tür bir çözüm beklemediğimden farklı sayfa isimleri vermekte mahsur görmemiştim. Ama eğer başka çözüm yoksa oldukça fazla makro olmasına rağmen değişiklikleri yaparım.

 

[Orion1]

Sayın Hocam Allah daha ala etsin, ufkunuz o kadar genişki hayalimizi aşıyor vallahi. Ben bu tür bir çözüm beklemediğimden farklı sayfa isimleri vermekte mahsur görmemiştim. Ama eğer başka çözüm yoksa oldukça fazla makro olmasına rağmen değişiklikleri yaparım.

6 numaralı mesajda sorunuza cevap verdim..

 

[kelkitli]

Sağolun hocam hakkınızı helal edin hayali isim vermekle sizi zahmete soktum. Çok çok teşekkür ederim. Emeğinize sağlık.

 

[Orion1]

Sağolun hocam hakkınızı helal edin hayali isim vermekle sizi zahmete soktum. Çok çok teşekkür ederim. Emeğinize sağlık.

Sorunuzzu sorarken ne kadar çok açıklayıcı bilgi verirseniz sonuca o kadar çok doğru ve hızlı erişirsiniz.
Yoksa bizim kod yazmaktan bir sıkıntımız yok.Bütün problemler hep soruyu anlayamamaktan kaynaklanıyor.
İyi çalışmalar.