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-11-2017, 18:46   #1
taneryuksell
 
Giriş: 11/09/2011
Şehir: antalya
Mesaj: 81
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan CommandButton ile sırasıyla veri aktarma

Sevgili arkadaşlar herkese merhaba;

Ekte bir sipariş dosyam var. Bu dosyanın için de ÜRÜNLER ve SİPARİŞ isimli 2 adet sayfa. ÜRÜNLER sayfasında A ve B sütununda TextBoxlar ile filtreleme yapıyorum. (Bu arada belirtmem lazım TextBox2 filtreleme yapmıyor hatamı bilmiyorum) Ayrıca ÜRÜNLER sayfasında D sütununda D5.den itibaren bir hücre aktif olduğu zaman aktif hale gelen bir CommandButton koydum. Yapmaya çalıştığım ise ben filtrelemeyi daralttığım zaman bu aktif hücrenin yanında ki CommandButtonu çalıştırarak (Mesela D20 de CommandButton bastığım zaman bu satırı A.dan Dye kadar olan 4 sütunu Sipariş sayfasına aldırmak) sırasıyla SİPARİŞ sayfasında B 10 dan itibaren bunları seçtikçe altalta yazdırmak. Yardımcı olacak arkadaşımın Textbox2.ye bakmasınıda rica edeceğim.
Eklenmiş Dosyalar
Dosya Türü: xlsm SİPARİŞ.xlsm (41.4 KB, 6 Görüntülenme)
taneryuksell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 21:24   #2
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,672
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Dosya ekte.
.
Eklenmiş Dosyalar
Dosya Türü: xlsm SİPARİŞ.xlsm (39.0 KB, 11 Görüntülenme)
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 21:31   #3
taneryuksell
 
Giriş: 11/09/2011
Şehir: antalya
Mesaj: 81
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Ömer Baran Hocam muhteşemsin !!! Bu arada aramada yaptığım hatayı görmüş oldum.
taneryuksell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 21:51   #4
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,672
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

TextBox1 ve TextBox2'nin kodlarını aşağıdaki şekilde düzeltin isterseniz.

Kodlardaki Aranan değişkenine gerek yok aslında.

Filtreleme işlemi İÇERİR şeklinde yapılır.
Filtrelemenin, İLE BAŞLAR şeklinde olması için kırmızı kısmı silmeniz yeterli olur.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub TextBox1_Change()
Sheets("ÜRÜNLER").Range("A4:D4").AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Value & "*", _
        Operator:=xlAnd
If TextBox1 = "" Then ActiveSheet.Range("A4:D4").AutoFilter Field:=1
End Sub

Private Sub TextBox2_Change()
Sheets("ÜRÜNLER").Range("A4:D4").AutoFilter Field:=2, Criteria1:="=*" & TextBox2.Value & "*", _
        Operator:=xlAnd
If TextBox2 = "" Then ActiveSheet.Range("A4:D4").AutoFilter Field:=2
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 09:19   #5
taneryuksell
 
Giriş: 11/09/2011
Şehir: antalya
Mesaj: 81
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Tamamdır değiştiriyorum. Çok teşekkür ederim.
taneryuksell Ç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 05:31


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 - 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- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden