Kod yazımı yardımı hakkında

[direnist]

Merhaba;
Aşağıdaki metnin excel uygulamam için vba kodunu nasıl yazılır. Yardımlarınız için teşekkürler.

Eğer sayfa 1 deki O sütunundaki maksimum sayı sayfa 2 deki b1 hücresine eşit ise

 

[ozgretmen]

Merhaba;
Aşağıdaki metnin excel uygulamam için vba kodunu nasıl yazılır. Yardımlarınız için teşekkürler.

Eğer sayfa 1 deki O sütunundaki maksimum sayı sayfa 2 deki b1 hücresine eşit ise

Sub eger()
If WorksheetFunction.Large(Sheets("Sayfa1").Range("O1:O65536"), 1) = Sheets("Sayfa2").Range("B1").Value Then
MsgBox " Eşit gerçekten" ' Buraya kendi kodlarınızı yazınız...
Else
MsgBox " Eşit değil" ' Buraya kendi kodlarınızı yazınız...
End If
End Sub

 

[direnist]

Teşekkür ederim. buradaki large terimi en büyük sayıyımı temsil etmekte acaba?

 

[ozgretmen]

Teşekkür ederim. buradaki large terimi en büyük sayıyımı temsil etmekte acaba?

Large fonksiyonu ile O sütunundaki en büyük 1. değeri alıyoruz.Oradaki 1 e dikkat ermişsinizdir.

 

[direnist]

Çok sıkıcı olmak istemiyorum ama öğrenmek amaçlı sormak istediğim bi şey daha var.
"Large" yerine neden formül yazarkende en büyük değeri bulmakta kullandığımız "Max." komutunu kullanmadık?

 

[ozgretmen]

Çok sıkıcı olmak istemiyorum ama öğrenmek amaçlı sormak istediğim bi şey daha var.
"Large" yerine neden formül yazarkende en büyük değeri bulmakta kullandığımız "Max." komutunu kullanmadık?

Tabi ki onuda kullanabilirisiniz...