command button koşula bağlı çalışması

[bilal aydın]

merhaba;

Private Sub CommandButton1_Click()

Range("f2").ClearContents
Range("f2") = "USD"
For Each e In Worksheets("sheet1").Range("B3:B100")
If Not Worksheets("Dolphinland_Data").Range(e.Address).HasFormula Then Worksheets("Dolphinland_Data").Range(e.Address) = e.Value / Range("e2")
Next
End Sub

Böyle bir USD ve TRY diye 2 ayrı command button ve makrom var. Q2 hücresine =F2 formülü attım.Yapmak istediğim USD command buttona basınca q2 hücresinde usd yazıyor ise makroyu çalıştırmasın,TRY yazıyorsa çalıştırsın.TRY command buttonuna basınca q2 hücresinde TRY yazıyor ise çalıştırmasın,USD yazıyor ise çalıştırsın.Döngüsel olarak ilk Q2 hücresine baksın istiyorum.

 

[Ömer]

Merhaba,

Kodların başına aşağıdaki şartı ekleyiniz.

If Range("Q2") = "USD" Then Exit Sub

Q2 hücresi USD olursa çalışmaz. Aynı şekilde diğer makronuza da USD yerine TRY yazarsınız.

 

[bilal aydın]

Merhaba,

Kodların başına aşağıdaki şartı ekleyiniz.

If Range("Q2") = "USD" Then Exit Sub

Q2 hücresi USD olursa çalışmaz. Aynı şekilde diğer makronuza da USD yerine TRY yazarsınız.

çok teşekkür ederim.