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 09-12-2013, 16:40   #1
tete58
 
Giriş: 18/06/2010
Şehir: sivas
Mesaj: 72
Excel Vers. ve Dili:
office2003
Varsayılan Userform İle Değişken Sayfalardaki Verileri Silme

Arkadaşlar ekli dosyada bir tablo hazırladım her birim için farklı bir sayfa var ve buraya birimlerde bulunan malzemeleri kaydediyorum combobox ile seçtiğim birime ait bilgiler listboxta görünüyor buraya kadar bir sıkıntı yok ben listboxta görünen bu verileri için sil ve değiştir butonu hazırladım lakin ilgili kodları bulamadım çünkü veri sabit bir sayfada değil örneğin combobox ile a sayfasını seçtiğimde orada olan bilgiler listboxta görünüyor ve ben bu veriler üzerinde silme ve değiştirme işlemi yapmak istiyorum bu işlemi listbox üzerinde sağ click ile yapmak mümkün olursa süper olur ama olmazsada önemli değil zaten butonlar mevcut ilginiz için şimdiden çok teşekkür ederim
Eklenmiş Dosyalar
Dosya Türü: rar ÖRNEK DOSYA.rar (24.3 KB, 32 Görüntülenme)
tete58 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-12-2013, 20:23   #2
tete58
 
Giriş: 18/06/2010
Şehir: sivas
Mesaj: 72
Excel Vers. ve Dili:
office2003
Varsayılan

Yardım edecek kimse yokmu arkadaşlar
tete58 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-12-2013, 09:49   #3
tete58
 
Giriş: 18/06/2010
Şehir: sivas
Mesaj: 72
Excel Vers. ve Dili:
office2003
Varsayılan

Güncel diyelim bari
tete58 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-12-2013, 11:01   #4
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,113
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton3_Click()
silinecek = ListBox1.ListIndex + 1
onay = MsgBox("seçili olan kayıt silinsin mi?", vbYesNo, "ONAY")
If onay = vbNo Then Exit Sub
ActiveSheet.Range("A" & silinecek).EntireRow.Delete

End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-12-2013, 11:52   #5
tete58
 
Giriş: 18/06/2010
Şehir: sivas
Mesaj: 72
Excel Vers. ve Dili:
office2003
Varsayılan

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton3_Click()
silinecek = ListBox1.ListIndex + 1
onay = MsgBox("seçili olan kayıt silinsin mi?", vbYesNo, "ONAY")
If onay = vbNo Then Exit Sub
ActiveSheet.Range("A" & silinecek).EntireRow.Delete

End Sub
hocam teşekkür ederim eline sağlık lakin bu kod satırı olduğu gibi siliyor yani sıra numarası 1-2-3 olan verilerden 2 olanı sildiğimde kalanlar 1-3 gösteriyor verileri sildiğimiz zaman sıralı bir şekilde kalmasını sağlayamazmıyız son olarak birde değiştir komutlarına ihtiyacım var yardımınız için çok teşekkür ederim
tete58 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-12-2013, 20:10   #6
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,113
Excel Vers. ve Dili:
Excel 2013
Varsayılan

O halde sil butonunun kodlarını şunlarla değiştirin:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton3_Click()
Dim sh As Worksheet, ss As Integer
Set sh = ActiveSheet
On Error Resume Next
Application.ScreenUpdating = False
silinecek = ListBox1.ListIndex + 1
onay = MsgBox("seçili olan kayıt silinsin mi?", vbYesNo, "ONAY")
If onay = vbNo Then Exit Sub
sh.Rows(silinecek).Delete
Application.ScreenUpdating = True
'yeniden sıralama
ss = sh.Range("B:F").Find("*", , , , xlByRows, xlPrevious).Row
If ss < 2 Then Exit Sub
For i = 1 To ss - 1
sh.Range("A" & i + 1).Value = i
Next i
End Sub
Listbox1_click olayına şu kodları yazın:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub ListBox1_Click()
For i = 1 To 5
Controls("TextBox" & i).Value = ListBox1.Column(i)
Next i
End Sub
Değiştir butonunun kodlarını da şöyle yazın:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton4_Click()
Dim sh As Worksheet
Set sh = ActiveSheet
SATIR = ListBox1.ListIndex + 1
For i = 1 To 5
sh.Cells(SATIR, i + 1).Value = Controls("TextBox" & i).Value
Next i
End Sub
Benden bu kadar.
Eksik yada hata varsa diğer arkadaşların katkıları beni de sevindirir.
Kolay gelsin.
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-12-2013, 08:24   #7
tete58
 
Giriş: 18/06/2010
Şehir: sivas
Mesaj: 72
Excel Vers. ve Dili:
office2003
Varsayılan

hocam çok teşekkür ederim eline sağlık
tete58 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2013, 17:47   #8
teknik
 
Giriş: 24/01/2005
Mesaj: 252
Varsayılan

[/code]
Değiştir butonunun kodlarını da şöyle yazın:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton4_Click()
Dim sh As Worksheet
Set sh = ActiveSheet
SATIR = ListBox1.ListIndex + 1
For i = 1 To 5
sh.Cells(SATIR, i + 1).Value = Controls("TextBox" & i).Value
Next i
End Sub
Benden bu kadar.
Eksik yada hata varsa diğer arkadaşların katkıları beni de sevindirir.
Kolay gelsin.[/quote]

Hocam eline sağlık fakat değiştir butonu çalışmıyor.
sizin dediğiniz tüm kodları ekledim bir tek değiştir butonu hiçbir işlem yapmıyor.
dosyanın son hali ekte bir kontrol ederseniz sevinirim.
Eklenmiş Dosyalar
Dosya Türü: xls ÖRNEK DOSYA.xls (90.0 KB, 9 Görüntülenme)
__________________
Excel 2002 Türkçe
teknik Ç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:53


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- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden