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 11-02-2012, 09:17   #11
Lanvin
 
Giriş: 10/04/2008
Şehir: İSTANBUL
Mesaj: 42
Excel Vers. ve Dili:
EXCEL 2007 / TR
Question

Alıntı:
Husgvarna tarafından gönderildi Mesajı Görüntüle
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
  Private Sub CommandButton2_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
R = MsgBox("Seçili Kayıt Sistemden Silinecek Devam mı?", vbYesNo)
If R = vbYes Then
If ListBox1.ListIndex = False Then MsgBox "Güncellenecek veri bulunamadı"
Kırmızı bölümü silin.
Biz bu programın sağ tarafındaki sıralanın altına yine aynı diyalog kutusu gibi arama yerleştirebilirmiyiz?

Şunun gibi;

Lanvin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-02-2012, 19:11   #12
Husgvarna
 
Giriş: 31/01/2010
Şehir: Gürün
Mesaj: 553
Excel Vers. ve Dili:
Excel 2003
Varsayılan

Alıntı:
Lanvin tarafından gönderildi Mesajı Görüntüle
Biz bu programın sağ tarafındaki sıralanın altına yine aynı diyalog kutusu gibi arama yerleştirebilirmiyiz?
Merhaba.
Elbette olur, ama tüm kodlarda değişiklik yapmanız gerekir. "SİL" ve "GÜNCELLE" butonları listenen ilgili sayfadaki veriler üzerinde istediklerinizi yanlış yapacaktır.
Husgvarna Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-02-2012, 02:20   #13
Lanvin
 
Giriş: 10/04/2008
Şehir: İSTANBUL
Mesaj: 42
Excel Vers. ve Dili:
EXCEL 2007 / TR
Varsayılan

hımm, teşekkür ederim.
çıkış yolu yok sanırım
Lanvin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-02-2012, 02:23   #14
Lanvin
 
Giriş: 10/04/2008
Şehir: İSTANBUL
Mesaj: 42
Excel Vers. ve Dili:
EXCEL 2007 / TR
Thumbs up

Alıntı:
Husgvarna tarafından gönderildi Mesajı Görüntüle
Merhaba.
Elbette olur, ama tüm kodlarda değişiklik yapmanız gerekir. "SİL" ve "GÜNCELLE" butonları listenen ilgili sayfadaki veriler üzerinde istediklerinizi yanlış yapacaktır.
ayrıca bu arada,

arkadaşlar giriş yaparken tab tab basarak ilerliyor 7. kutudan sonra başka yere gidiyor sıralı gitmiyor.

Ne yapabiliriz?

Bu arada her sorumuza yanıt ve çözümle döndüğünüz için ayrıca teşekkür ederim.
Lanvin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-02-2012, 04:40   #15
Skorpiyon
Misafir
 
Mesaj: n/a
Varsayılan

VBA'ya geçin. Form üzerinde boş bir yere fare ile sağ tuş yapın. "Tab Order" seçin ve imlecin hangi sıralamada gitmesini istiyorsanız, nesneleri o sıraya göre diziniz.
  Alıntı Yaparak Cevapla
Eski 13-02-2012, 10:43   #16
Husgvarna
 
Giriş: 31/01/2010
Şehir: Gürün
Mesaj: 553
Excel Vers. ve Dili:
Excel 2003
Varsayılan

Alıntı:
Lanvin tarafından gönderildi Mesajı Görüntüle
ayrıca bu arada,

arkadaşlar giriş yaparken tab tab basarak ilerliyor 7. kutudan sonra başka yere gidiyor sıralı gitmiyor.

Ne yapabiliriz?

Bu arada her sorumuza yanıt ve çözümle döndüğünüz için ayrıca teşekkür ederim.
"Userform/properties/Tabındex" den Textboxları sıralayabilirsiniz.
Sizin formda bulunan ("Textbox7" "tabındex=12")("Textbox8" "tabındex=23")
"Textbox8" "tabındex=13" "Textbox9" "tabındex=14" yaparsanız sıralı gider.
Ayrıca dosyanıza bir kaç ekleme yapmaya çalıştım inceleyiniz.
Eklenmiş Dosyalar
Dosya Türü: zip TEKNİK SERVİS ARIZA KAYIT PROGRAMI.zip (84.0 KB, 493 Görüntülenme)

Bu mesaj en son " 14-02-2012 " tarihinde saat 09:46 itibariyle Husgvarna tarafından düzenlenmiştir....
Husgvarna Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2012, 17:33   #17
Lanvin
 
Giriş: 10/04/2008
Şehir: İSTANBUL
Mesaj: 42
Excel Vers. ve Dili:
EXCEL 2007 / TR
Question

Alıntı:
Husgvarna tarafından gönderildi Mesajı Görüntüle
"Userform/properties/Tabındex" den Textboxları sıralayabilirsiniz.
Sizin formda bulunan ("Textbox7" "tabındex=12")("Textbox8" "tabındex=23")
"Textbox8" "tabındex=13" "Textbox9" "tabındex=14" yaparsanız sıralı gider.
Ayrıca dosyanıza bir kaç ekleme yapmaya çalıştım inceleyiniz.
Zipli dosyadaki programdan komple kodları sistemde çalışanın içerisine kopyaladım.

Açılışta ekteki hatayı verdi.

Dosyayı komple değiştirsek hata vermezmiydi?

Aydınlatırsanız sevinirim.
Eklenmiş Resimler
Dosya Türü: jpg HATA.jpg (90.3 KB, 77 Görüntülenme)
Lanvin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2012, 18:54   #18
Skorpiyon
Misafir
 
Mesaj: n/a
Varsayılan

Kopyalama yaptığınız dosyanın formunu açmaya çalışıyor sanırım. Butonu yeniden oluşturunuz.
  Alıntı Yaparak Cevapla
Eski 13-02-2012, 19:18   #19
Husgvarna
 
Giriş: 31/01/2010
Şehir: Gürün
Mesaj: 553
Excel Vers. ve Dili:
Excel 2003
Varsayılan

Alıntı:
Lanvin tarafından gönderildi Mesajı Görüntüle
Zipli dosyadaki programdan komple kodları sistemde çalışanın içerisine kopyaladım.

Açılışta ekteki hatayı verdi.

Dosyayı komple değiştirsek hata vermezmiydi?

Aydınlatırsanız sevinirim.
Hata vermezdi... Ancak "A" sütununda "Sıra No" olmalıdır.

Açılıştaki o hatanın nedeni sizin dosyanızda "Listbox" ; ekteki dosyada
"Listview" olmasıdır.
Arama yapabilmeniz için "Sıra No" ve "Listview" gerekliydi.

Ekli dosyada dikkatimi çekmemiş dosyanızın; "UserForm" kod sayfasında:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 Private Sub UserForm_Initialize()
 With UserForm1
     .Height = Application.Height
      .Width = Application.Width
 End With

'.......

'.......

End Sub
Kodları bulunuyor onun için "ThisWorkBook" ın kod sayfasındaki bulunan kodları
aşağıdaki gibi değiştirin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Workbook_Open()
Application.WindowState = xlMaximized
UserForm1.Show
End Sub
Yukarıdaki dosya değişti.

Bu mesaj en son " 14-02-2012 " tarihinde saat 09:47 itibariyle Husgvarna tarafından düzenlenmiştir....
Husgvarna Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2012, 19:21   #20
Husgvarna
 
Giriş: 31/01/2010
Şehir: Gürün
Mesaj: 553
Excel Vers. ve Dili:
Excel 2003
Varsayılan

Asıl dosyanızı yedekleyip deneyin.
Husgvarna Ç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 11:50


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- 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- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden