Veriye Göre İşlem yapma

[Çaycı Çırağı]

Merhabalar Excelde yeni sayılırım bir sorum vardı yardımcı olursanız sevinirim.

Elimde bir dosya var bu dosya içerisinde bir takım gıda ürünleri var, her geçen gün ürünler tek tek ekleniyor.

Benim yapmak istediğim olay şu
Örnek: Sayfa1'de YUDUM İLE BAŞLAYANLARI Sayfa2'ye atsın
Sayfa1'de PINAR İLE BAŞLAYANLARI Sayfa3'e atsın bunun formülü varmıdır acaba?

 

[savas_145]

Makro ile yapılabilir. Sadece formül ile de yapilabilir. Yanlızca listenizdeki veriler fazla ise zahmetli olur.
Yinede siz bir ornek dosya atin. Mutlaka ilgilenen olur

 

[Çaycı Çırağı]

İlginiz için teşekkürler
2083 Tane ürün bulunmakta makro bize sıkıntı yapabilir açıkçası formül ile daha mantıklı olur sanıırım dosya bakmak isteyen varsa örnek bir dosya gönderim sizlere.

 

[Emir Hüseyin Çoban]

. . .

İleti eklerinde örnek dosya yok.

. . .

 

[Çaycı Çırağı]

http://s6.dosya.tc/server6/91uch5/crosoft_Office_Excel_Calisma_Sayfasi__3_.xlsx.html

ÖRNEK DOSYA:

KNORR yzdığımda sayfa2 SANA yazdığımda 3 atabileyim

 

[savas_145]

dosyanızı inceledim ama tutarsız markalar var
ELIDOR-ELİDOR-ELD.KOP.DOKUL.ÇÖZÜM
KNOR-KNORR-'KNORR
CIFSUNLIGHT-CIF-SUNLIGHT
CLEAR-'CLEAR
TONY&GUY-TONYGUY
SANA-FSANA
80x40 CHEP PALET- CHEP PALET
gibi ve pek çok daha...
dolayısıyla ilk kelimelerini ayıklayıp marka çıkarmak zor oluyor.
bunların hepsi farklı ürünler mi bilmiyorum ama umarım makroyla halledebilen biri olur

 

[Çaycı Çırağı]

ELİDOR ismini bul değiştir ile ELIDOR yapıyorum sorun yok yeni yeni düzenlemeler yapıyorum benim için önemli olan şu ELIDOR ürünlerini Sayfa2'ye KNORR ürünlerini Sayfa3 atması arada kelime düzensizliklerine takılmayın lütfen o kısmı hallediyoruz yavaş yavaş...

Şimdiden teşekkürler formül olursa çok güzel olurdu

 

[savas_145]

O düzeltmeler yapılmadan düzgün çalışan formül yada makro oluşturmak zor olur.

 

[Çaycı Çırağı]

http://s6.dosya.tc/server6/oraslx/deneme.xlsx.html

buyrun BECEL ve SANA grup ürünlerini sadece bıraktım bunun üzerinden yardımcı olabilirmisini acabaa

 

[Çaycı Çırağı]

Arkadaşlar konu biraz acil yardımcı olursanız memnun olurum

TŞK şimdiden

 

[Erdem Akdemir]

Merhaba,

Bu işlem formülle'de olur ama çok zahmetli ve çalışması ağır olur.
En iyisi makro kullanmaktır.

Aşağıdaki makroyu kullanabilirsiniz. Sayfa1'in adını değiştirmeyin,Sayfa1 seçili iken makro çalışmayacaktır.

Sub test()
If ActiveSheet.Name <> "Sayfa1" Then

Cells.Clear
baslik = Array("KOD", "ÜRÜN İSMİ", "BARKOD", "KOLİ", "")

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

a = InputBox("Metin Giriniz", "Aranacak Metin")

sorgu = "select * from[sayfa1$] where [ÜRÜN İSMİ] like '%" & a & "%' "

Set rs = con.Execute(sorgu)
Range("a1").Resize(, 4) = baslik
Range("a2").CopyFromRecordset rs
Cells.EntireColumn.AutoFit
ActiveSheet.Name = a
End If

End Sub

 

[Çaycı Çırağı]

Çok teşekkür ederim işimi çok gördü Gerçekten ama keşkem sayfa isminide değiştirme gibi bir şansımız olsaydı çok iyi olurdu.

 

[Erdem Akdemir]

Çok teşekkür ederim işimi çok gördü Gerçekten ama keşkem sayfa isminide değiştirme gibi bir şansımız olsaydı çok iyi olurdu.

Sayfa ismini arama yaptığınız metine göre değiştiriyor.
Eğer Sayfa1'in ismini değiştireceksiniz. Kod'da sayfa1 gördüğünüz yerlere yeni ismini yazmanız yeterli olur.