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 15-07-2017, 13:23   #1
sakoz
 
Giriş: 17/04/2007
Şehir: İzmir
Mesaj: 256
Excel Vers. ve Dili:
Office 2013 Türkçe
Varsayılan Kritere göre bilgileri getirtmek

Üstadlarım Merhabalar,

Öncelikle herkese iyi ve huzurlu çalışmalar dilerim.
Bir konuda yardımınıza ihtiyacım var.

Şimdi ekteki dosya orjinal işlem yapacağımız dosya.
Yapmak istediğimiz ;
FIYATLAMA sayfasındaki PARCA KODU yazan kısma herhangi bir parça kodu yazdığımızda , SIRKULER sayfasından kodu bulup PARCA ADI , KDV HARIC FIYAT , KDV DAHIL FIYAT, GENEL INDIRIM ORANI bilgilerinin gelmesini istiyoruz.
Bunun için bir makroya ihtiyacımız var.
Yardımcı olursanız çok sevinirim.
Şimdiden teşekkürler...


http://www.dosya.tc/server9/xgtvt2/SABLON.xlsx.html
__________________
Kılıcı eşsiz bir maharetle kullanan Türk eli, mağlup ettiği insanların yarasını sarmakta da o kadar ustadır. [B](Lord Byron)[/B]
sakoz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-07-2017, 14:02   #2
dellerlim
Altın Üye
 
Giriş: 24/02/2012
Şehir: kırşehir
Mesaj: 214
Excel Vers. ve Dili:
office 2007 türkçe
Varsayılan

Merhaba.
100 bin satır verinin olması çalışmayı çok yavaşlatacaktır sanırım.
dellerlim Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-07-2017, 14:08   #3
dellerlim
Altın Üye
 
Giriş: 24/02/2012
Şehir: kırşehir
Mesaj: 214
Excel Vers. ve Dili:
office 2007 türkçe
Varsayılan

Bu kodlar isteğinizi yerine getirebilir umarım.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub dene()
Application.ScreenUpdating = False
Set sf = ThisWorkbook.Worksheets("FIYATLAMA")
Set ss = ThisWorkbook.Worksheets("SIRKULER")
For i = 2 To 100433
For k = 10 To sf.Range("b65536").End(xlUp).Row
If sf.Cells(k, 2) = ss.Cells(i, 1) Then
sf.Cells(k, 3) = ss.Cells(i, 3)
sf.Cells(k, 4) = ss.Cells(i, 4)
sf.Cells(k, 5) = ss.Cells(i, 6)
sf.Cells(k, 6) = ss.Cells(i, 7)
End If
Next k
Next i
Application.ScreenUpdating = True
End Sub
dellerlim Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-07-2017, 14:25   #4
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,433
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Dosyanız linktedir.

DOSYAYI İNDİR

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, sh As Worksheet
If Intersect(Target, Range("B10:B" & Cells(Rows.Count, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
Range("C" & Target.Row & ":F" & Target.Row).ClearContents
'If Target.Value = "" Then Exit Sub
Set sh = Sheets("SIRKULER")
Set k = sh.Range("A2:A" & sh.Cells(Rows.Count, "A").End(xlUp).Row) _
        .Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Target.Offset(0, 1).Value = k.Offset(0, 2).Value
    Target.Offset(0, 2).Value = k.Offset(0, 3).Value
    Target.Offset(0, 3).Value = k.Offset(0, 5).Value
    Target.Offset(0, 4).Value = k.Offset(0, 6).Value
End If
End Sub
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-07-2017, 18:40   #5
sakoz
 
Giriş: 17/04/2007
Şehir: İzmir
Mesaj: 256
Excel Vers. ve Dili:
Office 2013 Türkçe
Varsayılan

Arkadaşlar çok çok teşekkür ederim..Ellerinize sağlık sağolun
__________________
Kılıcı eşsiz bir maharetle kullanan Türk eli, mağlup ettiği insanların yarasını sarmakta da o kadar ustadır. [B](Lord Byron)[/B]
sakoz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 08:12   #6
sakoz
 
Giriş: 17/04/2007
Şehir: İzmir
Mesaj: 256
Excel Vers. ve Dili:
Office 2013 Türkçe
Varsayılan

Hocalarım peki birden fazla parça kodu kopyalandığında Runtime Error 13.Type mismatch hatası veriyor.

Bunu düzeltmenin bir yolunu bulabilir miyiz ?
Teşekkürler...
__________________
Kılıcı eşsiz bir maharetle kullanan Türk eli, mağlup ettiği insanların yarasını sarmakta da o kadar ustadır. [B](Lord Byron)[/B]
sakoz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 12:59   #7
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,433
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
sakoz tarafından gönderildi Mesajı Görüntüle
Hocalarım peki birden fazla parça kodu kopyalandığında Runtime Error 13.Type mismatch hatası veriyor.

Bunu düzeltmenin bir yolunu bulabilir miyiz ?
Teşekkürler...
Ben benim yazdığım kodda denedim.hata vermiyor.zaten vermesi içinde bir neden yok.siz başka bir kodu çalıştırıyorsunuz sanırım.Hata veren dosyayı hata veren satırıda ekleyip yollarmısınız?
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 13:27   #8
sakoz
 
Giriş: 17/04/2007
Şehir: İzmir
Mesaj: 256
Excel Vers. ve Dili:
Office 2013 Türkçe
Varsayılan

Evren hocam selamlar ,

Yok hocam kod çalışıyor. Benim anlatmaya çalıştığım FIYATLAMA sayfasında parça kodu kısmına aynı anda birden fazla parça kodu kopyalandığı zaman type mismatch hatası veriyor.

Genelde fiyatlamayı yapan arkadaşlarda aradıkları parça kodlarının hepsini birden yapıştırıyor

Dosyayıda ekliyorum hocam.İlginize teşekkür ederim...

http://www.dosya.tc/server9/dvdmup/SABLON59.rar.html
__________________
Kılıcı eşsiz bir maharetle kullanan Türk eli, mağlup ettiği insanların yarasını sarmakta da o kadar ustadır. [B](Lord Byron)[/B]
sakoz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 13:52   #9
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,433
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
sakoz tarafından gönderildi Mesajı Görüntüle
Evren hocam selamlar ,

Yok hocam kod çalışıyor. Benim anlatmaya çalıştığım FIYATLAMA sayfasında parça kodu kısmına aynı anda birden fazla parça kodu kopyalandığı zaman type mismatch hatası veriyor.

Genelde fiyatlamayı yapan arkadaşlarda aradıkları parça kodlarının hepsini birden yapıştırıyor

Dosyayıda ekliyorum hocam.İlginize teşekkür ederim...

http://www.dosya.tc/server9/dvdmup/SABLON59.rar.html
4 numaralı mesaja linklediğim dosyayı tekrar indiriniz.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 14:00   #10
sakoz
 
Giriş: 17/04/2007
Şehir: İzmir
Mesaj: 256
Excel Vers. ve Dili:
Office 2013 Türkçe
Varsayılan

Alıntı:
Orion1 tarafından gönderildi Mesajı Görüntüle
4 numaralı mesaja linklediğim dosyayı tekrar indiriniz.
Evren Hocam yemin ediyorum süpersiniz ellerinize , emeğinize sağlık sağolun
__________________
Kılıcı eşsiz bir maharetle kullanan Türk eli, mağlup ettiği insanların yarasını sarmakta da o kadar ustadır. [B](Lord Byron)[/B]
sakoz Ç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 02:50


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 - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden