inputbox ( cancel)

[teknikyapı]

merhaba
inputbox ta cancel ile kodu nasıl sonlandırıyorduk ( yani inputbox u açtık bir değer girdik ama son anda vazgeçtik.Yani inputbox iptal.Kodların içinde çok karışık vaziyette olduğu için tam izah edemiyorum)
iyi çalışmalar

 

[ÖmerBey]

Diyelim ki inputbox ile aldığınız değer a olsun: a = inputbox... gibi
O zaman inputbox kodunun bir altına şu şekilde yazabiliriz:

If a = Empty Then Exit Sub

 

[teknikyapı]

Diyelim ki inputbox ile aldığınız değer a olsun: a = inputbox... gibi
O zaman inputbox kodunun bir altına şu şekilde yazabiliriz:

If a = Empty Then Exit Sub

sn mucit77

yapmak istediğim inputbox doluda olsa ( kullanıcı değer girse bile) silmeden
direk inputbox cancel e basarak kottan çıkmalı ( hani msgbox taki vbno , vbyes vb gibi)

 

[vardar07]

Alternatif olarak

Private Sub CommandButton1_Click()
Dim metin As String
metin = InputBox("Vardar07", "teknikyapı")
[COLOR="Blue"]Sheets("sayfa2").[a1][/COLOR] = metin '[COLOR="Red"] Metini yazdıracağınız yer[/COLOR]
End Sub

 

[teknikyapı]

çok teşekkür ederim Arkadaşlar
komutlar çalıştı

iyi çalışmalar

 

[ÖmerBey]

sn mucit77

yapmak istediğim inputbox doluda olsa ( kullanıcı değer girse bile) silmeden
direk inputbox cancel e basarak kottan çıkmalı ( hani msgbox taki vbno , vbyes vb gibi)

Tamam işte inputbox olayı da bu zaten, iptal tuşuna basıldığı anda onu boş olarak algılar.

 

[Korhan Ayhan]

Aşağıdaki kodu da kullanabilirsiniz.

Sub TEST()
    Onay = Application.InputBox("Lütfen şifrenizi giriniz.")
    If Onay = False Then
        MsgBox "Cancel tuşuna bastınız..."
    End If
End Sub

 

[teknikyapı]

sn Korhan Ayhan Bey

verdiğiniz örnek çok iyi geldi

iyi çalışmalar

 

[Hacı Bayram ÖZKAN]

Sayın Ömer abim, yine 2 nolu mesajınızdaki konu yine kendime uyarladım. Ama şurayı nasıl düzeltirim.

Sub VAKIFBANK() 'VAKIF
Dosya = "D:\Belgelerim\Banka\VAKIFBANK_KESİNTİ.xlsx"

SonSat = Cells(Rows.Count, "A").End(3).Row
'-----------------------------------------------------
'düzenleyen paraflarıda kaydedilecekse
'sonsat = Range("B:H").Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
'-----------------------------------------------------
Set aç = New Excel.Application
aç.Workbooks.Open Dosya
Set hz = aç.Workbooks(Dir(Dosya))
Set syf = hz.Sheets(1)

syf.Range("A11:E" & 65536) = Empty

Dim a
a = InputBox("ÖDEME TARİHİNİ GİRİNİZ", "LÜTFEN DİKKAT", Date + 2)
syf.Range("C4").Value = a

'If a = Empty Then Exit Sub ' bu sizin kod
'Burada Cancel deyince çıkış işlemi yapıyor, ancak üstte aç komuta ile (aç.Workbooks.Open Dosya) dosyayı açtığı için işlem yapmasada salt okunur oluyor, bu açılan dosya burada nasıl bir komutla kapatılır. Ben aşağıya kırmızı ile yazdım ama kapatmıyor.

If a = Empty Then
aç.Workbooks.Close Dosya
Exit Sub
End If

' diğer kodlarım.
"
"

Bakabilirsen sevinirim abiciğim...

 

[Erkan Akayay]

yol = "D:\Belgelerim\Banka\"
dosya = "VAKIFBANK_KESİNTİ.xlsx"
Workbooks.Open yol & dosya
a = InputBox("ÖDEME TARİHİNİ GİRİNİZ", "LÜTFEN DİKKAT", Date + 2)
If a = Empty Then
Workbooks(dosya).Close SaveChanges:=False
Exit Sub
End If

 

[Hacı Bayram ÖZKAN]

Sayın abim, kendi koduma uygulayamadım çalışmadı, galiba senin kodu uygulayamadım, dosyanın yolu bulunamadı diyor, oysa benim kodumda buluyor. Kodun tamamını ekliyorum. Zahmet olmaz ise bakar mısın? Saygılarımla...

Sub VAKIFBANK() 'VAKIF
Dosya = "D:\Belgelerim\Banka\VAKIFBANK_KESİNTİ.xlsx"

SonSat = Cells(Rows.Count, "A").End(3).Row
'-----------------------------------------------------
'düzenleyen paraflarıda kaydedilecekse
'sonsat = Range("B:H").Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
'-----------------------------------------------------
Set aç = New Excel.Application
aç.Workbooks.Open Dosya
Set hz = aç.Workbooks(Dir(Dosya))
Set syf = hz.Sheets(1)

syf.Range("A11:E" & 65536) = Empty

Dim a
a = InputBox("ÖDEME TARİHİNİ GİRİNİZ", "LÜTFEN DİKKAT", Date + 2)
syf.Range("C4").Value = a

'If a = Empty Then Exit Sub ' Bu kod cancel deyinci işlem yaptırmıyor. Çıkış işlemi yapıyor. iptal

For t = 2 To SonSat
syf.Range("A" & t + 9).Value = Range("C" & t).Value & " " & Range("D" & t).Value
Next

For i = 2 To SonSat
syf.Cells(i + 9, "B") = Right(Cells(i, "K"), 17)
Next i

syf.Range("C11:C" & SonSat + 9).Value = Range("G2:G" & SonSat).Value 'B T.C.
syf.Range("D11" & SonSat + 9).Value = Range("AD2:AD" & SonSat).Value 'ad TUTAR
syf.Range("E11:E" & SonSat + 9).Value = Range("K2:K" & SonSat).Value 'ad iban

hz.Close SaveChanges:=True
aç.Quit
Set aç = Nothing: Set hz = Nothing

MsgBox "Banka Listesi Oluşturuldu.." & vbCrLf & "Bankaya Göndermek İçin Kontrol Edin."

'Sonra

Workbooks.Open "D:\Belgelerim\Banka\VAKIFBANK_KESİNTİ.xlsx"

End Sub

Teşekkür ederim. Saygılarımla...