If MsgBox hakkında...

[aliakgul]

Merhaba arkadaşlar,
If MsgBox("liste yazılsın mı?",vbYesNo, "yazma_onayı...") = vbNo Then Exit Sub
sayfa1.printout


Mesaja verilecek cevabın EVET olması durumunda sayfa1'in yazdırılacağı malumunuz...
Benim öğrenmek istediğim, bu mesaja HAYIR denmesi durumunda da bir iş atanabilir mi?
EVET denirse sayfa1 yazdırılacak, HAYIR denirse msgbox("yazdırma iptal.") mesajını versin...

Yada
If MsgBox("Sayfa seçilsin mi?",vbYesNo, "onay...") = vbNo Then Exit Sub
sayfa1.select
EVET denirse sayfa1 seçilsin, HAYIR denirse Sayfa2 seçilsin gibi...

 

[uzmanamele]

merhaba
If yerine "IIf (şart;doğru ise;yanlış ise)" şeklinde denermisiniz

 

[Ayhan Ercan]

Merhaba arkadaşlar,
If MsgBox("Sayfa seçilsin mi?",vbYesNo, "onay...") = vbNo Then Exit Sub
sayfa1.select
EVET denirse sayfa1 seçilsin, HAYIR denirse Sayfa2 seçilsin gibi...

Merhaba Sn aliakgul

Sn uzmanamelenin cevabından başka ;

If MsgBox("Sayfa seçilsin mi?", vbYesNo, "onay...") = vbYes Then
Sayfa1.Select
Else
Sayfa2.Select
End If

 

[uzmanamele]

merhaba
bu olabilir mi acaba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MsgBox("Sayfa seçilsin mi?", vbYesNo, "onay...") = vbNo Then GoTo 10
Sayfa2.Select
GoTo 20
10
Sayfa3.Select
20
End Sub

 

[aliakgul]

Sayın Uzmanamele teşekkür ederim. Olumlu sonuç aldım.
Ancak bu 'IIf msgbox' konusunda ir uygulama örneği verirmisin?
Sevgili Ayhan Ercan ilgin için teşekkürler ancak senin kodlarda cevap EVET olduğu takdirde devamındaki kodlar uygulamaya alınmaz...Yine de emeğine sağlık...

 

[parsley2]

IIF fonksiyonunu kullanmak için iki seçenekli durumlarda kullanılır. örnek:
Eğer A1 hücresinde 100 yazıyorsa B1 hücresine yüz Yazdır. a1 hücresi farklı bir rakamsa b1 hücresine yaşar yıldırım yazdır.
Range("b1") = IIf(Range("a1") = 100, "Yüz", "yaşar yıldırım")

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SAYFA_SEÇ()
    Dim SAYFAADI As String
    SAYFAADI = IIf(MsgBox("Sayfa seçilsin mi?", vbYesNo, "SAYFA SEÇİMİ") = vbYes, "Sayfa1", "Sayfa2")
    Sheets(SAYFAADI).Select
End Sub

 

[aliakgul]

Arkadaşlar teşekkür ederim ...

 

[parsley2]

Ali bey,
aynı yöntemi msgbox olarak şu şekilde de kullanabilirsiniz

a = IIf(Range("a1") = 100, "Yüz", "yaşar yıldırım")
MsgBox (a)

 

[Ayhan Ercan]

Merhaba Sn aliakgul

Sevgili Ayhan Ercan ilgin için teşekkürler ancak senin kodlarda cevap EVET olduğu takdirde devamındaki kodlar uygulamaya alınmaz

Anlayamadım?? Siz,

EVET denirse sayfa1 seçilsin, HAYIR denirse Sayfa2 seçilsin gibi...

diye istek belirtmişsiniz..

"Devamındaki kodlar uygulamaya alınmaz" ne demek anlayamadım, özür dilerim..

 

[aliakgul]

.................

 

[aliakgul]

Sevgili Ayhan Ercan,
Sanırım farklı kodları dikkate almışım, özür dilerim. Eşzamanlı olarak birden fazla çalışma üzerinde çalışıyordum. Senin kodları yanlış çalışmada değerlendirmişim.Kodların da bir parçasını dikkate almayınca işte böyle haksız bir yorum ortaya çıktı. Kusura bakma, hakkını helal et.
Arkadaşlar, bu konuyu aciliyetten ziyade, bilgi edinmek amacıyla sormuştum, katılan herkese teşekkür ederim...

 

[Ayhan Ercan]

Sevgili Ayhan Ercan,
Sanırım farklı kodları dikkate almışım, özür dilerim. Eşzamanlı olarak birden fazla çalışma üzerinde çalışıyordum. Senin kodları yanlış çalışmada değerlendirmişim.Kodların da bir parçasını dikkate almayınca işte böyle haksız bir yorum ortaya çıktı. Kusura bakma, hakkını helal et.
Arkadaşlar, bu konuyu aciliyetten ziyade, bilgi edinmek amacıyla sormuştum, katılan herkese teşekkür ederim...

Hakkım geçtiyse helal olsun önemli değil. Bende acaba sorunun içinde benim anlayamadığım bişeymi var diye sorunuzu oku oku (okuya okuya bir hal oldum ).
Neyse size iyi çalışmalar ....

 

[aliakgul]

Yo yo, tam tersi; cevabın içinde benim anlayamadığım bişey varmış. Eyvallah... İyi geceler, hayrlı kandiller...