Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-04-2017, 15:01   #1
Solaq
 
Giriş: 05/04/2017
Şehir: Ankara
Mesaj: 5
Excel Vers. ve Dili:
Türkçe
Exclamation vba eğer boşsa uyarı yazısı çıkar kaydetme

arkadaşlar çok yeniyim ve aşağıdaki formüle istenilen textbox'a veri girilmediği zaman kaydetmemeli ve uyarı vermeli bunu aşağıdaki formüle nasıl uygularım.




Private Sub KAYDET_Click()
RowCount = Worksheets("CARİ LİSTE").Range("A1").CurrentRegion.Rows.Count
Range("B1").Value = TextBox1.Value
Range("B2").Value = TextBox2.Value
Range("B3").Value = ComboBox2.Value
Range("B4").Value = ComboBox1.Value
Range("B5").Value = TextBox5.Value
Range("B6").Value = TextBox6.Value
Range("B7").Value = TextBox7.Value
Range("B8").Value = TextBox8.Value
ActiveWindow.SmallScroll Down:=-30
Range("B1:B8").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R60000C1"
Selection.End(xlUp).Select
ActiveWindow.SmallScroll Down:=-9
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=-15
Application.CutCopyMode = False
Unload Me

End Sub
Solaq Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2017, 15:35   #2
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 92
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

selam şu aşağıda tırnak içindeki elseif yazan blogu text box ya da combobox larına göre çoğalt,


Private Sub KAYDET_Click()

On Error GoTo sonsatir

'"""""""""""""""""""""""""""""""""""""""""""""" """
If Empty = TextBox1 Then
MsgBox "TextBox1 değer girilmedi."
GoTo sonsatir

ElseIf Empty = TextBox2 Then
MsgBox "TextBox2 değer girilmedi."
GoTo sonsatir

ElseIf Empty = TextBox3 Then
MsgBox "TextBox3 değer girilmedi."
GoTo sonsatir

End IF
'""""""""""""""""""""""""""""""""""""""""""""""""" "
RowCount = Worksheets("CARİ LİSTE").Range("A1").CurrentRegion.Rows.Count
Range("B1").Value = TextBox1.Value
Range("B2").Value = TextBox2.Value
Range("B3").Value = ComboBox2.Value
Range("B4").Value = ComboBox1.Value
Range("B5").Value = TextBox5.Value
Range("B6").Value = TextBox6.Value
Range("B7").Value = TextBox7.Value
Range("B8").Value = TextBox8.Value
ActiveWindow.SmallScroll Down:=-30
Range("B1:B8").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R60000C1"
Selection.End(xlUp).Select
ActiveWindow.SmallScroll Down:=-9
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=-15
Application.CutCopyMode = False
Unload Me


Exit Sub
sonsatir:
End Sub

Bu mesaj en son " 19-04-2017 " tarihinde saat 15:42 itibariyle hoguz2 tarafından düzenlenmiştir....
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2017, 16:16   #3
Solaq
 
Giriş: 05/04/2017
Şehir: Ankara
Mesaj: 5
Excel Vers. ve Dili:
Türkçe
Varsayılan

Bahsettiğinizi yaptım uyarıyı veriyor fakat tamam dediğimde tabloyu tamamen kapatıyor.

İşlemleri tamamlarsam tüm bilgileri girerek kaydedersem veya kapat dersem kapatması gerek, uyarıdan sonra çıkan tablonun veri girmeye devam edilmesi için kalması için ne yapabilirim.

İlginiz için teşekkürler
Solaq Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2017, 18:30   #4
numan şamil
Destek Ekibi
 
Giriş: 27/01/2011
Şehir: çorum
Mesaj: 1,009
Excel Vers. ve Dili:
Ofis 2010 Türkçe
Varsayılan

Merhaba
Dener misiniz?
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub KAYDET_Click()
If Empty = TextBox1 Then
MsgBox "TextBox1 değer girilmediği için işleminiz iptal edildi.", vbCritical
Exit Sub
   End If
If Empty = TextBox2 Then
MsgBox "TextBox2 değer girilmediği için işleminiz iptal edildi.", vbCritical
Exit Sub
   End If
If Empty = TextBox3 Then
MsgBox "TextBox3 değer girilmediği için işleminiz iptal edildi.", vbCritical
Exit Sub
   End If
RowCount = Worksheets("CARİ LİSTE").Range("A1").CurrentRegion.Rows.Count
Range("B1").Value = TextBox1.Value
Range("B2").Value = TextBox2.Value
Range("B3").Value = ComboBox2.Value
Range("B4").Value = ComboBox1.Value
Range("B5").Value = TextBox5.Value
Range("B6").Value = TextBox6.Value
Range("B7").Value = TextBox7.Value
Range("B8").Value = TextBox8.Value
ActiveWindow.SmallScroll Down:=-30
Range("B1:B8").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R60000C1"
Selection.End(xlUp).Select
ActiveWindow.SmallScroll Down:=-9
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=-15
Application.CutCopyMode = False
Unload Me

End Sub
numan şamil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 10:56   #5
Solaq
 
Giriş: 05/04/2017
Şehir: Ankara
Mesaj: 5
Excel Vers. ve Dili:
Türkçe
Varsayılan

konu çözüldü çok teşekkür ederim

diğer bir konu ise combobox ta seçim yapılmamışsa olmalı fakat combobox ta otomatik herhangi biri seçilmiş olarak geliyor.

Ben ise hiçbir seçim yapılmamış olarak gelsin boş geçerse de uyarı versin istiyorum.
Solaq Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 12:43   #6
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 92
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

Alıntı:
Solaq tarafından gönderildi Mesajı Görüntüle
konu çözüldü çok teşekkür ederim

diğer bir konu ise combobox ta seçim yapılmamışsa olmalı fakat combobox ta otomatik herhangi biri seçilmiş olarak geliyor.

Ben ise hiçbir seçim yapılmamış olarak gelsin boş geçerse de uyarı versin istiyorum.
yeni konu acarsan forum ve forumlardan yararlanacak kisiler icin daha iyi olur... yeni konu ile sor lütfen.
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-04-2017, 16:10   #7
Solaq
 
Giriş: 05/04/2017
Şehir: Ankara
Mesaj: 5
Excel Vers. ve Dili:
Türkçe
Thumbs up

tamamdır teşekkürler
Solaq Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 02:25


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Kobi Danışmanlık - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu OSGB - Lingerie - Dyeing Machine - Çorlu Temizlik- Didim Çatı İnşaat- Çorlu Ambar- Hava Çekimi- Hazır Site- SEO- Çorlu Estetik
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden