Msgbox`la Yazdiginiz Araligi Secmek

[mustafaine1]

Bir cok calismamizda range`in secili olmasina ihtiyacimiz vardir ve bircogunda manuel olarak degismesi gereken bir range olabilir, boyle durumlar icin msgbox ile range`i secsek nasil olur ;

Sub Aralik_Al()
	Dim aralik As Range
	On Error Resume Next
	Set aralik = Application.InputBox(prompt:="Araligi Yaziniz",Type:=8)
	If aralik Is Nothing Then
		MsgBox "Islem Tamamlandi.."
	Else
		aralik.Select
	End If
End Sub

 

[security]

Bir cok calismamizda range`in secili olmasina ihtiyacimiz vardir ve bircogunda manuel olarak degismesi gereken bir range olabilir, boyle durumlar icin msgbox ile range`i secsek nasil olur ;

Sub Aralik_Al()
    Dim aralik As Range
    On Error Resume Next
    Set aralik = Application.InputBox(prompt:="Araligi Yaziniz",Type:=8)
    If aralik Is Nothing Then
        MsgBox "Islem Tamamlandi.."
    Else
        aralik.Select
    End If
End Sub

Sub Aralik_Al()
    Dim aralik As Range
    On Error Resume Next
    Set aralik = Application.InputBox(prompt:="İSTEDİĞİNİZ ARALIGI YAZINIZ", Type:=8)
    If aralik Is Nothing Then
    Else
    aralik.Select
     MsgBox "İŞLEM TAMAMLANDI", , "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    End If
End Sub

Sn: mustafaine
Bu Şekilde Olması Lazım Değilmi? Sizin Kodunuzda İptal Tuşuna Basınca Mesaj Kutusu Çıkıyor.Oysa Tamam Tuşuna Basınca Çıkması Gerekmezmi?
Tşk...

 

[mustafaine1]

tabiiki oyle yapmak istersek oda yapilabilir sonucta onemli olan burada range`i secebilmek ve sadece fikir olustursun diye acilmis bir konu, oradaki durumun onemi yok..

 

[security]

tabiiki oyle yapmak istersek oda yapilabilir sonucta onemli olan burada range`i secebilmek ve sadece fikir olustursun diye acilmis bir konu, oradaki durumun onemi yok..

Sn: mustafaine amacım Açtıgınız Konuyu Kötülemek Değil Sadece Kodda Gördügüm Eksikligi Belirtmek İstedim. Acemi Arkadaşlar düşünecek Hücreyi Seçiyoruz Ve Tamam Diyoruz Fakat Buradaki Mesaj Niye Çıkmıyor...
Umarım Yanlış Anlamamışsınızdır. Tekrar Tşk...

Sub Aralik_Al()
Dim aralik As Range
On Error Resume Next
Set aralik = Application.InputBox(prompt:="İSTEDİĞİNİZ ARALIGI YAZINIZ", Type:=8)
If aralik Is Nothing Then
Else
aralik.Select
MsgBox "İŞLEM TAMAMLANDI", , "www.excel.web.tr"
End If
End Sub

 

[mustafaine1]

Sizin gibi dusunmemistim security, haklisiniz; tesekkurler edit icin; koaly gelsin..