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 22-03-2013, 11:32   #1
Tornael
Altın Üye
 
Giriş: 30/06/2012
Şehir: istanbul
Mesaj: 112
Excel Vers. ve Dili:
2010 excel ingilizce
Varsayılan For Each döngüsü ile Vlookup döngüsü

Selamlar,

Ekteki örnekte basit bir for each döngüsü var. Bu döngüde değiştirilecek tek özellik, dikkat ederseniz her Vlookup formülünde aranacak hücre "A1" olarak belirlenmiş. Aranacak hücreyide ardışık yapabilir miyiz?
Aranacak hücre örn.
=VLOOKUP(A1,Sheet2!A:A;1,0)
=VLOOKUP(A4,Sheet2!A:A;1,0)
=VLOOKUP(A7,Sheet2!A:A,1,0)
...
...
...
Gibi.
Eklenmiş Dosyalar
Dosya Türü: xlsm Örnek Dosya.xlsm (18.3 KB, 19 Görüntülenme)
Tornael Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-03-2013, 13:09   #2
asi_kral
Özel Üye
 
asi_kral kullanıcısının avatarı
 
Giriş: 22/02/2012
Şehir: İstanbul /
Mesaj: 2,761
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Merhaba
Bu makro ile ne gibi işlem yapmak istiyorsunuz.
__________________
Dosyalarınızı UPLOAD sitelerine yükleyip link ile ekleyebilirsiniz.
asi_kral Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-03-2013, 13:56   #3
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 7,052
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Macro1()
    Columns(2).Clear
    For i = 1 To [a65536].End(3).Row
    If Cells(i, 1) <> "" Then
         Cells(i, 2).Formula = "=VLOOKUP(" & """" & Cells(i, 1) & """" & ",Sheet2!A:A,1,0)"
    End If
    Next
End Sub
__________________
Yolda Yürüme Kuralları







hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-03-2013, 11:05   #4
Tornael
Altın Üye
 
Giriş: 30/06/2012
Şehir: istanbul
Mesaj: 112
Excel Vers. ve Dili:
2010 excel ingilizce
Varsayılan Örnek

Arkadaşlar ilginiz için teşekkürler. Eksik anlattım. Ekteki excelde "A" kolonunun "C" kolonu gibi olmasını rica ediyorum. (Bu makro yalnızca "A" kolonu için olacak.)
Eklenmiş Dosyalar
Dosya Türü: xlsm Örnek Dosya.xlsm (19.4 KB, 15 Görüntülenme)
Tornael Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2013, 16:57   #5
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 7,052
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Böyle deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Macro2()
    Columns(2).Clear
    For i = 3 To 156 Step 3
         [B1] = "Istanbul"
         Cells(i, 2).Formula = "=VLOOKUP(" & Cells(i - 2, 1).Address(False, False) & ",Sheet2!A:A,1,0)"
    Next
End Sub
__________________
Yolda Yürüme Kuralları







hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-03-2013, 15:53   #6
Tornael
Altın Üye
 
Giriş: 30/06/2012
Şehir: istanbul
Mesaj: 112
Excel Vers. ve Dili:
2010 excel ingilizce
Thumbs up Tebrikler...

Tam istediğim gibiydi Hamitcan Bey ellerinize sağlık.
Tornael Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 15:39   #7
Mehmet.tanis
 
Giriş: 14/11/2017
Şehir: istanbul
Mesaj: 1
Excel Vers. ve Dili:
vba
Varsayılan

MErhaba arkadaslar ;

Benzer bir donguyede benim ihtiyacim var..
Tek excelde 400 tane sheetim var ve bu sheetlerin hepsinin adi birbirinden farkli. Birde source1 ve source2 sheetlerim var. Bu 400 tane farkli isimli sheetin icerisinde ilk kolonda 20 satirlik bir baslik var ve karsilarinda gun gun sayisal degerleri olan bilgiler var.. HErgun source1 ve source2 sheetlerindeki bilgileri son gun olacak sekilde kendim ekliyor olacam.. Makro gidip bu 400 tanelik her bir sheetin icerisindeki 20 satirlik basliklara ait son gunluk sayisal degeri source1 ve source 2 sheetlerinden alarak VLOOKUP usuluyle getirip karsisina yapistiracak..
Aslinda bunu tek tek VLOOKUP uzerinden yapabiliyoruz ancak bana dongu olarak otomatik yapacak bir dongu lazim.. YArdimci olabilecek varmi ?
Yani
A sheetindeki satirlarin karsisina son gunluk veriyi getirip yapistiracak
B sheetindeki satirlarin karsisina son gunluk veriyi getirip yapistiracak
C sheetindeki satirlarin karsisina son gunluk veriyi getirip yapistiracak
D sheetindeki satirlarin karsisina son gunluk veriyi getirip yapistiracak
.
.
.
.
.
.

Z sheetindeki satirlarin karsisina son gunluk veriyi getirip yapistiracak
Mehmet.tanis Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 22:56   #8
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,229
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Alıntı:
Mehmet.tanis tarafından gönderildi Mesajı Görüntüle
MErhaba arkadaslar ;

Benzer bir donguyede benim ihtiyacim var..
Tek excelde 400 tane sheetim var ve bu sheetlerin hepsinin adi birbirinden farkli. Birde source1 ve source2 sheetlerim var. Bu 400 tane farkli isimli sheetin icerisinde ilk kolonda 20 satirlik bir baslik var ve karsilarinda gun gun sayisal degerleri olan bilgiler var.. HErgun source1 ve source2 sheetlerindeki bilgileri son gun olacak sekilde kendim ekliyor olacam.. Makro gidip bu 400 tanelik her bir sheetin icerisindeki 20 satirlik basliklara ait son gunluk sayisal degeri source1 ve source 2 sheetlerinden alarak VLOOKUP usuluyle getirip karsisina yapistiracak..
Aslinda bunu tek tek VLOOKUP uzerinden yapabiliyoruz ancak bana dongu olarak otomatik yapacak bir dongu lazim.. YArdimci olabilecek varmi ?
................
Merhaba,
foruma hoşgeldiniz.

Bence sorunuzu bir örnek belge üzerinden sormanızda yarar var.

Örnek belgenin;
-- gerçek belgeyle aynı yapıda olmasına (sayfa/satır/sütun yapısı, veri başlangıç satırı gibi),
-- gerçek verileri temsil edebilecek nitelikte veriler içermesine (tarih/sayı/metin gibi veri türü önemli)
-- farklı durumlar/seçenekler varsa, bunların tümünü içermesine,
-- olması gereken sonuçları, olması gereken konumlarına elle yazarak, bunları nasıl bulduğunuzu kısaca açıklamaya,
-- varsa belgede kullanılan userform ve makroların dosya içerisinde olmasına
özen gösteriniz.

Örnek belge yükleme yöntemine ilişkin açıklama cevabımın altındaki İMZA bölümünde var.
.
__________________
.
☾✭ İ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
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 23:34


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- 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 Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden