bu fonksiyonu kodla nasıl yazarız?

[gelibolu]

Aşağıdaki fonksiyonu kod olarak yazabilir miyiz? (

​

bütün B sütunu için geçerli olmalı

=EĞER(EĞERSAY(E$1:E4;E4)=1;MAK(B$1:B3)+1;"")

 

[Orion1]

Aşağıdaki kod işinizi görecektir.

deg = IIf(WorksheetFunction.CountIf(Range("E1:E4"), _
Range("E4")) = 1, WorksheetFunction.Max(Range("B1:B3")) + 1, "")
MsgBox deg

 

[gelibolu]

İlginize teşekkür ederim.Ancak yapamadım.Merak ettiğim bir konuda bazen kodlar sayfaya bazende module kopyalanıyor. fark nedir?
dosya ektedir.yardım ederseniz sevinirim.

 

[Orion1]

İlginize teşekkür ederim.Ancak yapamadım.Merak ettiğim bir konuda bazen kodlar sayfaya bazende module kopyalanıyor. fark nedir?
dosya ektedir.yardım ederseniz sevinirim.

Kodlarımız bir prosedür içine yerleştirilir.
Prosedürler sub ile başlar end sub ile biter.
Kodlar bunun içine yazılır.
Buradaki test prosedürün adıdır.
Kod aşağıdadır.

Sub test()
Dim deg As Double
deg = IIf(WorksheetFunction.CountIf(Range("E1:E4"), _
Range("E4")) = 1, WorksheetFunction.Max(Range("B1:B3")) + 1, "")
MsgBox deg
End Sub

 

[gelibolu]

​

Çalışmadı msgbox 3 değerini veriyor ben mi hata yapıyorum?
dosyayı yeniden gönderdim.

 

[Orion1]

Çalışmadı msgbox 3 değerini veriyor ben mi hata yapıyorum?
dosyayı yeniden gönderdim.

Çalışıyor.
Evet 3 değeri olmalı.Ben denedim.
İsterseniz bir fonksiyonlada ayni şeyi deneyebilirisiniz.
Kodda yazdığımn aralıları ve hücreyi aynisini yazın çalışma sayfasına ve durumu görürn.

 

[gelibolu]

Sayın orion benim görmek istediğim plaka tekil ise numara ver değilse boş bırak.1 den başla çoğalarak git. Yani tekil arızalı araç sayısını görmek.​

bunun içinde e sütununu komple taramak.Msgboxda bir değer almaya gerek yok.

 

[gelibolu]

Son bir gayret rica etsem...

 

[gelibolu]

Yok mu yardım edebilecek bir arkadaş?