Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 14-10-2017, 00:44   #21
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,249
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Listeye veriler "RowSource" ile alındığı için sıralamayı "HSP" sayfasından bağımsız, sadece listede sıralama
yapamazsınız.(sayfada sıralamanın sakıncası yoksa ona göre ekleme yaparız)
Ek dosyada "AddItem" ile yapmaya çalıştığım örnek bulunuyor, "listbox" da sıralama yapılabilir;
ancak listeden seçim yapıp çalıştırdığınız "silme", "düzenleme" butonlarındaki kodları (istenmeyen satırlarda işlem yapmaması için) değiştirmeniz, "Kaydet" butonuna "call UserForm__Initialize" eklemeniz gerekir.
Sıralamayı sağlayan kodlar "Module5" te
http://s5.dosya.tc/server5/kugwtj/DENE_5.zip.html
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-10-2017, 21:41   #22
vuranoğlu
Altın Üye
 
vuranoğlu kullanıcısının avatarı
 
Giriş: 18/04/2008
Şehir: eskişehir
Mesaj: 101
Excel Vers. ve Dili:
excel 2007 tr
Varsayılan

Merhaba
Vermiş olduğunuz bilgiler doğrultusunda saat tarih özelliğini anamenüye uyarladım ama hata veriyor.
http://s5.dosya.tc/server5/rri9yj/DENE_6.rar.html


Private Sub CommandButton3_Click()
İŞLEMGİRİŞEKRANI.Show
End Sub


Private Sub CommandButton4_Click()
ANAMENU.Show
End Sub

şeklinde yazmış olduğum kodlar sayfa geçişlerinde hata veriyor
vuranoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2017, 00:35   #23
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,249
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Alıntı:
vuranoğlu tarafından gönderildi Mesajı Görüntüle
Private Sub CommandButton4_Click()
ANAMENU.Show
End Sub

şeklinde yazmış olduğum kodlar sayfa geçişlerinde hata veriyor
Merhaba
http://s8.dosya.tc/server5/kjdy0v/DENE_7.zip.html
Örnek dosyanızda
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
"ANAMENU.Show"
"Ü" olmalı

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
"HESAPEKLEME.Show"
yerine
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
"HESAP_EKLEME.Show
olmalı
Form geçişlerinde; yeni form açarken açık formu kapatarak geçiş yapın
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton4_Click()
Unload Me
ANAMENÜ.Show
End Sub
formlardaki bütün kodları gözden geçirerek sadeleştirmelisiniz
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2017, 21:45   #24
vuranoğlu
Altın Üye
 
vuranoğlu kullanıcısının avatarı
 
Giriş: 18/04/2008
Şehir: eskişehir
Mesaj: 101
Excel Vers. ve Dili:
excel 2007 tr
Varsayılan

İyi akşamlar

İlginiz ve verdiğiniz bilgiler için teşekkürler. PLİNT

Sıralamayı hsp sayfası içinde yapmaya çalıştım kaydederken otomatik sıralıyor .
Uygulamada hata alma ihtimali varmıdır.
Eklenmiş Dosyalar
Dosya Türü: rar DENE 8.rar (797.0 KB, 4 Görüntülenme)
vuranoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2017, 22:16   #25
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,249
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Bir örnek dosyada buraya eklermisiniz?
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2017, 22:38   #26
vuranoğlu
Altın Üye
 
vuranoğlu kullanıcısının avatarı
 
Giriş: 18/04/2008
Şehir: eskişehir
Mesaj: 101
Excel Vers. ve Dili:
excel 2007 tr
Varsayılan

Özür dilerim.Alışkanlık
http://s6.dosya.tc/server11/4etyml/DENE_8.rar.html
vuranoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2017, 23:10   #27
vuranoğlu
Altın Üye
 
vuranoğlu kullanıcısının avatarı
 
Giriş: 18/04/2008
Şehir: eskişehir
Mesaj: 101
Excel Vers. ve Dili:
excel 2007 tr
Varsayılan

Rapor sayfasına aldığımız verilerin toplamların soluna "TOPLAM " yazdırmaya çalıştım olmadı
vuranoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-10-2017, 00:22   #28
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,249
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
"Rapor" formu/ "ComboBox1_Click" altında ilgili bölüme ek
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

'.....
.Range("B7:J" & x).Borders.Weight = xlThin
.Range("C" & x) = "TOPLAM"
End With
RAPOR.AddItem " ": RAPOR.AddItem
v = RAPOR.ListCount
'....
"Anamenü" formu
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton2_Click()
Unload Me
Sheets("HSP").Activate
HESAP_EKLEME.Show
End Sub 
Sıralama yaparken ve aşağıdaki kodda bulunan döngüde kontrol edilen "Hesap adı" "Textbox" u için.

"Hesap_ekleme" formu
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton5_Click()
Dim Sat, Son As Integer
For Sat = 2 To Cells(65536, "b").End(xlUp).Row
If Trim(Cells(Sat, "b")) = Trim(TextBox2) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP ADI KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
If Trim(Cells(Sat, "c")) = Trim(TextBox3) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP NO KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
Next
If TextBox2.Text <> "" Then
If TextBox3.Text = "" Or Len(Trim(TextBox3.Value)) <> 18 Then MsgBox "HESAP NO KONTROL EDİNİZ": Exit Sub
Son_Dolu_Satir = Sheets("HSP").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("HSP").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("HSP").Range("A:A")) + 1
    TextBox1.Value = Sheets("hsp").Range("a65536").End(xlUp).Value + 1
   'Sheets("HSP").Range("a" & Bos_Satir).Value = TextBox1.Text
    Sheets("HSP").Range("b" & Bos_Satir).Value = TextBox2.Text
    Sheets("HSP").Range("c" & Bos_Satir).Value = TextBox3.Text
    'Sheets("HSP").Range("E" & Bos_Satir).Value = TextBox4.Text
    'Sheets("HSP").Range("F" & Bos_Satir).Value = TextBox5.Text
     'Sheets("veri").Range("a" & Bos_Satir).Value = TextBox6.Text

    Else
    MsgBox "İsim Girmeniz Gerekiyor"
    End If
    TextBox2.Text = ""
    TextBox3.Text = ""
    
End Sub 
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton7_Click()
 If HESAP_EKLEME.ListIndex >= 0 Then
        cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
        If cevap = vbYes Then
            Silinecek_Satir = HESAP_EKLEME.ListIndex + 2
   Sheets("HSP").Range("B" & Silinecek_Satir & ":Z" & Silinecek_Satir).Delete Shift:=xlUp
Sheets("HSP").Cells(Rows.Count, 1).End(3) = ""
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
        End If
    End If

End Sub 
Yine "Hesap_ekleme" formundan çıkışta; butonlara gidilecek sayfayı eklersiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton3_Click()
Unload Me
Sheets("....").activate
İŞLEMGİRİŞEKRANI.Show
End Sub 
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
Unload Me
Sheets("....").activate
PERSONELEKLEME.Show
End Sub 
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-10-2017, 20:41   #29
vuranoğlu
Altın Üye
 
vuranoğlu kullanıcısının avatarı
 
Giriş: 18/04/2008
Şehir: eskişehir
Mesaj: 101
Excel Vers. ve Dili:
excel 2007 tr
Varsayılan

Merhaba
HSP sayfasında kaydet makrosu çalıştırldığında
"HESAP NO KONTROL EDİNİZ" mesajı alınıyor.
http://s6.dosya.tc/server11/bgk1qp/DENE_8_2.rar.html
vuranoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-10-2017, 22:21   #30
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,249
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton5_Click()
Dim Sat, Son As Integer
For Sat = 2 To Cells(65536, "b").End(xlUp).Row
If Trim(Cells(Sat, "b")) = Trim(TextBox2) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP ADI KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
If Trim(Cells(Sat, "c")) = Trim(TextBox3) Then _
MsgBox "GİRMİŞ OLDUĞUNUZ HESAP NO KAYITLARDA BULUNMAKTADIR", vbInformation: Exit Sub
Next
If TextBox2.Text <> "" Then
If TextBox3.Text = "" Or Len(Trim(TextBox3.Value)) <> 18 Then MsgBox "HESAP NO KONTROL EDİNİZ": Exit Sub
Son_Dolu_Satir = Sheets("HSP").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("HSP").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("HSP").Range("A:A")) + 1
    TextBox1.Value = Sheets("hsp").Range("a65536").End(xlUp).Value + 1
   'Sheets("HSP").Range("a" & Bos_Satir).Value = TextBox1.Text
    Sheets("HSP").Range("b" & Bos_Satir).Value = TextBox2.Text
    Sheets("HSP").Range("c" & Bos_Satir).Value = TextBox3.Text
    'Sheets("HSP").Range("E" & Bos_Satir).Value = TextBox4.Text
    'Sheets("HSP").Range("F" & Bos_Satir).Value = TextBox5.Text
     'Sheets("veri").Range("a" & Bos_Satir).Value = TextBox6.Text

    Else
    MsgBox "İsim Girmeniz Gerekiyor"
    End If
    TextBox2.Text = ""
    TextBox3.Text = ""
    
End Sub  
"CommandButton5_Click" altında bulunan "Textbox3" ün boş ve 18 basamaklı değerden, eksik, fazla veri girilmesini engelleyen bölümü silin.
PLİNT Ç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 13:14


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden