Düşeyara formul güncellemesi

[adige18]

Merhaba benim sorunum bilgi excell sayfam var bir çok excell sayfasından veri çektiriyorum düşeyara formülü ile office 2010 kullanıyorum bilgi excell sayfasını açtığımda ver çektirdiğim sayfalara yeni veriler eklediğimde onları güncellemiyor otomatik olarak normalde veri çektirdiğim excell sayfalarını açtığımda yine güncelliyordu onuda yapmıyor
Seçenekler + formüller + çalışma kitabı hesaplamasıda otomatik işaretli
yardımcı olursanız sevinirim tşk.

 

[hlojan]

Vba ile yapabilirsiniz. Örnek dosya ekleyin

 

[adige18]

merhaba

Dosya ekleyemiyorum siz

=DÜŞEYARA(B2;'Y:\[BÖLÜM LİSTELERİ.xlsx]BÖLÜM LİSTESİ'!$A$2:$C$1212;3;0)

siz yukarıdaki formülü vba kodunu yazarsanız ben uyarlatım
tşk.

 

[hlojan]

Dim conn As Object, rs As Object
Set conn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
conn.Open ("Provider=microsoft.ace.oledb.12.0;data source=C:\BÖLÜM LİSTELERİ.xlsx;extended properties=""excel 12.0;hdr=yes"";")
rs.Open "select * from [BÖLÜM LİSTESİ$] where "sütun Adı" like '" & RANGE("B2").Text & "%';", conn, 1, 1

ado karmasık örnek eklemen sağlıklı olur


Upload sitesi kullan

 

[adige18]

http://www.dosya.tc/server4/s7csf6/DENEME.xlsx.html

İLGİN İÇİN TŞK

 

[numan şamil]

Merhaba
Her iki dosyada aynı klasörde olacak
Kodları kendi dosyana uyarlarsın.
Uzunyaylalı hemşerim dosyanız anlaşılır değil.

Sub VERİLERİ_AKTAR()
    Dim Dosya_Yolu As String, Asıl_Dosya As Workbook, Kaynak_Dosya As Workbook
    Application.ScreenUpdating = False
    Set Asıl_Dosya = ThisWorkbook
    kafkas = Asıl_Dosya
    Dosya_Yolu = ThisWorkbook.Path & "\"
    Set Kaynak_Dosya = Workbooks.Open(Dosya_Yolu & "BÖLÜM LİSTELERİ.xlsx", False, False)
     kartali = Kaynak_Dosya
     Kaynak_Dosya.Activate
  kafkas.Range("F3") = WorksheetFunction.VLookup(kafkas.Range("B2"), kartali.Sheets("BÖLÜM LİSTESİ").Range("A1:A1000"), 6, 0)
    Kaynak_Dosya.Close True
    Set Kaynak_Dosya = Nothing
    Set Asıl_Dosya = Nothing
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[adige18]

MERHABA GÖNDERDİĞİNİZ OLMADI MALESEF YENİ BİR ÖRNEK EKLİCEM

DENEME-1 SEKMESİNDEKİ ÖRNEKTE B1 HÜCRESİNE KART NUMARASINI YAZICAM B2 HÜCRESİNE MAAŞINI ÇEKECEK B2 FORMULDEKİ DÜŞEY ARA FORMULDE YAZAN YERDEN

DENEME-2 SEKMESİNDE AYNI EXDEL SAYFASINDA BAŞKA SEKMEDEN VERİ ALIYOR

İSTENİLEN HÜCREYE VERİ ÇELTİRMEYİ ÖĞRENİRSEM DİĞER HÜCRELEREDE UYGULARIM.

http://s6.dosya.tc/server3/8g6cke/DENEME-2.xlsx.html

TŞK.

 

[numan şamil]

MERHABA GÖNDERDİĞİNİZ OLMADI MALESEF YENİ BİR ÖRNEK EKLİCEM

DENEME-1 SEKMESİNDEKİ ÖRNEKTE B1 HÜCRESİNE KART NUMARASINI YAZICAM B2 HÜCRESİNE MAAŞINI ÇEKECEK B2 FORMULDEKİ DÜŞEY ARA FORMULDE YAZAN YERDEN

DENEME-2 SEKMESİNDE AYNI EXDEL SAYFASINDA BAŞKA SEKMEDEN VERİ ALIYOR

İSTENİLEN HÜCREYE VERİ ÇELTİRMEYİ ÖĞRENİRSEM DİĞER HÜCRELEREDE UYGULARIM.

http://s6.dosya.tc/server3/8g6cke/DENEME-2.xlsx.html

TŞK.

Merhaba
Büyük harflerle yazmak sanırım forum kurallarına aykırı. Lütfen küçük harflerle yazınız
aynı kitapta veri sayfasından deneme 2 sayfasına veri çekmeyi (yazdığınız
formüle göre) sağlayacak kodları bir modüle kopyalayıp bir düğmeye atayarak dener misiniz
(Düğme deneme 2 sayfasında olacak)

Sub numan()
    Dim s1 As Worksheet
    Set s1 = Sheets("VERİ")
    Application.ScreenUpdating = False
    Range("B2").ClearContents
  Range("B2") = WorksheetFunction.VLookup(Range("B1"), s1.Range("A2:B5"), 2, 0)
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Başka kitaptan veri çekmek içinde
veri çekilecek ve verinin aktarılacağı dosyaları her ikisini de bir klasör
içine atıp zipleyip ne nereye gelecekse manuel girip gerekli açıklamayı yaparak yüklerseniz umarım arkadaşlar yardımcı olacaktır

 

[adige18]

Merhaba

http://s6.dosya.tc/server3/jzfem3/DENEME.rar.html

3 Excell sayfası attım deneme olana veri çektireceğiz B2 hücreye kart no yazdığımda direk düşeyara da olduğu gibi verileri otomatik çekmeli düğme vs. eklemeden kart no yazdığımda direk verileri getirmeli

deneme excel sayfasını açtığımda verileri otomatik güncellemeli

yardımcı olursanız sevinirim tşk.

 

[numan şamil]

Merhaba

http://s6.dosya.tc/server3/jzfem3/DENEME.rar.html

3 Excell sayfası attım deneme olana veri çektireceğiz B2 hücreye kart no yazdığımda direk düşeyara da olduğu gibi verileri otomatik çekmeli düğme vs. eklemeden kart no yazdığımda direk verileri getirmeli

deneme excel sayfasını açtığımda verileri otomatik güncellemeli

yardımcı olursanız sevinirim tşk.

Denermisiniz
offis 7 için modül 1 deki kodlarda
.xls yerine xlsx olarak değiştirilecektir

http://s6.dosya.tc/server3/ac9vpx/DENEME1.rar.html

 

[numan şamil]

Merhaba
ThisWorkbook sayfasında kodlar eklendi.

http://s6.dosya.tc/server3/sqvzy5/DENEME1.rar&79106343
linkte dosya güncellendi.