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 17-02-2017, 14:24   #1
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 361
Excel Vers. ve Dili:
excel2013
Varsayılan iki sayfadanda aynı anda sil komudu

Arkadaşlar bir konuda takıldım malzeme tanımlama formunda sil butonuna bastığımda hem data_malzeme sayfasından hemde envarter sayfasından malzeme ismini silmek ve eğer mümkünse değiştirilmesi. Şimdiden teşekkür ederim.
AYNİYAT İÇİN son.xlsm
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 16:46   #2
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 361
Excel Vers. ve Dili:
excel2013
Varsayılan

konu gunceldir
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 16:58   #3
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 361
Excel Vers. ve Dili:
excel2013
Varsayılan

acabasöylediğim imkansız mı?
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 20:16   #4
vardar07
Destek Ekibi
 
vardar07 kullanıcısının avatarı
 
Giriş: 19/03/2008
Şehir: Kepez / ANTALYA
Mesaj: 2,154
Excel Vers. ve Dili:
Office 2007 Enterprise Türkçe
Varsayılan

Buyurun.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, c As Range, b, cc As Range, bb
Dim aranan
aranan = cbad2
Set s1 = Sheets("data_malzeme"): Set s2 = Sheets("envarter")
Set c = s1.Range("C:C").Find(aranan, LookIn:=xlValues)
Set cc = s2.Range("A:A").Find(aranan, LookIn:=xlValues)
If Not c Is Nothing Then
b = c.Row
Cells(b, 1).Select
s1.Range("A" & b & ":D" & b).Delete Shift:=xlUp
End If
If Not cc Is Nothing Then
bb = cc.Row
s2.Range("A" & bb & ":D" & bb).Delete Shift:=xlUp
End If
End Sub
__________________
Veren El Alan Elden EVLA'dır...

Örnek excel dosyanızı,açıklamalarını da yazarak; UPTERABİT.COM, DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

Özel mesajlarda sorulan sorulara cevap vermiyorum.
vardar07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-02-2017, 09:23   #5
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 361
Excel Vers. ve Dili:
excel2013
Varsayılan

Merhaba; ancak bakabildim çok güzel olmuş fakat ufak bir sıkıntı var data_malzeme sayfasında sıra no bozuluyor silme yapılınca.
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-02-2017, 10:34   #6
vardar07
Destek Ekibi
 
vardar07 kullanıcısının avatarı
 
Giriş: 19/03/2008
Şehir: Kepez / ANTALYA
Mesaj: 2,154
Excel Vers. ve Dili:
Office 2007 Enterprise Türkçe
Varsayılan

İlgili kodun altına End Sub dan öncesine ekleyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
son = s1.Range("A" & Rows.Count).End(3).Row
s1.Range("A2").Select
s1.Range("A2").FormulaR1C1 = "=MAX(R1C:R[-1]C)+1"
Selection.AutoFill Destination:=s1.Range("A2:A" & son), Type:=xlFillDefault
s1.Range("A2:A" & son).Value = s1.Range("A2:A" & son).Value
cbad2 = ""
txtsira = ""
txtad = ""
__________________
Veren El Alan Elden EVLA'dır...

Örnek excel dosyanızı,açıklamalarını da yazarak; UPTERABİT.COM, DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

Özel mesajlarda sorulan sorulara cevap vermiyorum.
vardar07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-02-2017, 12:29   #7
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 361
Excel Vers. ve Dili:
excel2013
Varsayılan

Dim son tanımlandıktan sonra harika oldu ellerinize sağlık çok teşekkür ederim.
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-02-2017, 14:32   #8
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 361
Excel Vers. ve Dili:
excel2013
Varsayılan

Üstadım yardımın için sana tekrar teşekkür ederim yalnız özel bir ricam olacak sizden uygun bir zamanınız olursa kodların ne anlama ve hangi amaçla kullanıldığını açıklaya bilirmisiniz acaba?
Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, c As Range, b, cc As Range, bb
Dim aranan
Dim son
aranan = cbad2
Set s1 = Sheets("data_malzeme"): Set s2 = Sheets("envarter")
Set c = s1.Range("C:C").Find(aranan, LookIn:=xlValues)
Set cc = s2.Range("A:A").Find(aranan, LookIn:=xlValues)
If Not c Is Nothing Then
b = c.Row
Cells(b, 1).Select
s1.Range("A" & b & ": D" & b).Delete Shift:=xlUp
End If
If Not cc Is Nothing Then
bb = cc.Row
s2.Range("A" & bb & ": D" & bb).Delete Shift:=xlUp
End If
son = s1.Range("A" & Rows.Count).End(3).Row
s1.Range("A2").Select
s1.Range("A2").FormulaR1C1 = "=MAX(R1C:R[-1]C)+1"
Selection.AutoFill Destination:=s1.Range("A2:A" & son), Type:=xlFillDefault
s1.Range("A2:A" & son).Value = s1.Range("A2:A" & son).Value
cbad2 = ""
txtsira = ""
txtad = ""
End Sub
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-02-2017, 14:54   #9
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,128
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click() 
'Prosedure adı 
Dim s1 As Worksheet, s2 As Worksheet, c As Range, b, cc As Range, bb
Dim aranan
Dim son
'Tanımlamalar yapılıyor
aranan = cbad2
'aranan olarak malzeme adı tanımlanıyor.
Set s1 = Sheets("data_malzeme"): Set s2 = Sheets("envarter")
'Sayfa isimleri s1 ve s2 olarak isimlendiriliyor. Kod uzun olmasın diye 
Set c = s1.Range("C:C").Find(aranan, LookIn:=xlValues)
'Data malzeme sayfasında arama yapılıyor
Set cc = s2.Range("A:A").Find(aranan, LookIn:=xlValues)
'Envanter sayfasında arama yapılıyor
If Not c Is Nothing Then
'Bulunan değer boş değilse diye şart koşuluyor. Boş ise hiç bir işlem yapma.
b = c.Row
'Data malzeme sayfasında bulunan değerin satır numarası alınıyor.
Cells(b, 1).Select
'A sütununda bulunan satır seçiliyor.
s1.Range("A" & b & ": D" & b).Delete Shift:=xlUp
'A sütunu ile D sütunu arasında bulunan satırın verileri siliniyor.
End If
'şart bitiyor.
If Not cc Is Nothing Then
bb = cc.Row
s2.Range("A" & bb & ": D" & bb).Delete Shift:=xlUp
End If
'Yukarıda yazılan işlem s2 için de aynı şekilde yapılıyor.
son = s1.Range("A" & Rows.Count).End(3).Row
's1 = Sheets("data_malzeme") sayfasında son dolu satır tespit ediliyor.
s1.Range("A2").Select
' A2 seçiliyor.
s1.Range("A2").FormulaR1C1 = "=MAX(R1C:R[-1]C)+1"
Selection.AutoFill Destination:=s1.Range("A2:A" & son), Type:=xlFillDefault
s1.Range("A2:A" & son).Value = s1.Range("A2:A" & son).Value
'Yukarıdaki kısımda numaralandırma yeniden yapılıyor.
cbad2 = ""
'Malzeme adının içi boşaltılıyor.
txtsira = ""
'Sıra no içerisi boşaltılıyor.
txtad = ""
'Malzeme kodunun içerisi boşaltılıyor.
End Sub
'Kod bitiriliyor.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 21-02-2017, 06:04   #10
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 361
Excel Vers. ve Dili:
excel2013
Varsayılan

Çok teşekkür ediyorum kolay gelsin.
yanginci34 Ç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 18:22


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 - Kozmetik Ürünler - Excel Eğitimi - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- 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 Kamera- Çorlu Fiber- Çorlu Araç Takip- Çorlu Su Arıtma-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden