vba`da if komutu kullanimi

[mustafaine1]

Arkadaslar vba`da a1 hucresi ahmetse b1 bosluk olsun yoksa ahmet burda yazsin gibi bir formul nasil yazilir

 

[Korhan Ayhan]

Selamlar,

Aşağıdak kodu kullanabilirsiniz.

If Range("A1") = "Ahmet" Then
Range("B1") = Empty
Else
Range("C1") = "A1 hücresinde başka veri var."
End If

 

[mustafaine1]

Tesekkurler Korhan Ayhan; aslinda excel fonksiyonlarinin vba ornekleri olsaydi sitedeki sanirim vardir ben bulamiyorumdur; iyi olurdu..

 

[bedri41]

Makro kaydet tuşunu çalıştırarak, fonksiyonları normal yazıp vba daki karşılıklarına bakmayı denediniz mi ?

 

[mustafaine1]

evet ama biliyosunuz fonksiyonlarin isleyisindeki nuanslar cok egitici oluyor oyle bir calisma olmus olsa okumaktan zevk duyarim..

 

[Trilenium]

=ıf(a1="ahmet";" ";"ahmet yazmıyor") excel fonksıyonuda böyle olur

 

[Korhan Ayhan]

Selamlar,

Dersane bölümündeki fonksiyonlarla hazırlanmış örnekleri incelediniz mi? Bu bölümde zaten detaylı açıklamalar yapılmış. Bunları kavrarsanız makro ile fonksiyonları yazmak o kadarda zor olmaz sizin için.

http://www.excel.web.tr/forumdisplay.php?f=60

Size mantığını kavramanız açısından basit bir örnek veriyorum.

Sayfa üzerinde bir hücreye formül yazarken aşağıdaki şekilde yazıyorsunuz.

=ETOPLA(A1:A1000;B1;C1:C1000)

Bu formülün VBA karşılığı ise aşağıdaki şekildedir.

[COLOR=red]WorksheetFunction.[/COLOR]SumIf(Range("A1:A1000") , Range("B1") , Range("C1:C1000"))

Kod editöründe formül yazarken kırmızı renkli bölümü yazdığınızda size bir liste açılacaktır. Oradan dilediğiniz formülü seçip uygulayabilirsiniz. Burada ince detay formül isimlerinin ingilizce karşılıklarını bilmenizdedir. Eğer bilmiyorsanız bunlarda Dersane bölümünde bulunmaktadır.

 

[mustafaine1]

evet tabikii ama if gibi then else donguleriyle kalip degisiyor olabilir diyerek soyledim ilgisi icin herkese tesekkur ederim elinize saglik..