değeri sayfalarda güncellemek

[cleanner]

üstadlar,
Gerekli açıklamalarımı dosyalar üzerinde yaptım. Bir değeri, diğer çalışma kitabının sayfa isimlerinde arayıp sayfa bulunduğunda ilgili değerlerin güncellenmesi konusunda yardımlarınızı rica ediyorum.

 

[asi_kral]

Merhaba
1 - hedef.xlsx dosya yolu neresidir. Ör. D:\aaa\
2 - Hangi dosyadaki veri güncellenecek.
3 - Eğer hedef dosyasından veriler alınacak ise. Sayfalarda başka fatura tarihi ve İrsaliye numarası olacak mı_?
4 - Eğer kaynak dosyasıdan veriler aktarılacak ise. hedef dosyasında olmayan bir sayfa verileri ne olacak_?

 

[cleanner]

selam

Merhaba
1 - hedef.xlsx dosya yolu neresidir. Ör. D:\aaa\
2 - Hangi dosyadaki veri güncellenecek.
3 - Eğer hedef dosyasından veriler alınacak ise. Sayfalarda başka fatura tarihi ve İrsaliye numarası olacak mı_?
4 - Eğer kaynak dosyasıdan veriler aktarılacak ise. hedef dosyasında olmayan bir sayfa verileri ne olacak_?

merhaba öncelikle yanıtınız için teşekkür ederim.

1- hedef dosya yolu değişken fakat her iki dosyada aynı klasör içinde olacak
2- kaynak dosyasındaki verilere göre "hedef" dosyasındaki veriler güncellenecek.
3- .
4- hedef dosyasında tüm sayfalar olacak problem yok, eğer olmayan bir veri varsa, kaynak dosyasında ilgili sayfa adı kırmızı olabilir.

örnek: "OK" butonuna tıklandığında kaynak dosyasının A2 hücresi hedef dosyasının sayfa isimlerinde aranacak, bulunduğunda, kaynak dosyasının B2 ve C2 hücreleri hedef dosyasının A2 ve B2 hücresine aktarılacak. Kaynak dosyasında kaç satır varsa bu işlem sırasıyla devam edecek.

teşekkürler.

 

[cleanner]

konuyla ilgili yardımcı olabilir misiniz acaba ?

 

[asi_kral]

merhaba öncelikle yanıtınız için teşekkür ederim.

1- hedef dosya yolu değişken fakat her iki dosyada aynı klasör içinde olacak
2- kaynak dosyasındaki verilere göre "hedef" dosyasındaki veriler güncellenecek.
3- .
4- hedef dosyasında tüm sayfalar olacak problem yok, eğer olmayan bir veri varsa, kaynak dosyasında ilgili sayfa adı kırmızı olabilir.

örnek: "OK" butonuna tıklandığında kaynak dosyasının A2 hücresi hedef dosyasının sayfa isimlerinde aranacak, bulunduğunda, kaynak dosyasının B2 ve C2 hücreleri hedef dosyasının A2 ve B2 hücresine aktarılacak. Kaynak dosyasında kaç satır varsa bu işlem sırasıyla devam edecek.

teşekkürler.

Merhaba
Sayfanın kod bölümüne kopyalayın ve sayfadaki butonu kullanarak kodu çalıştırın.

Option Explicit
Private Sub CommandButton1_Click()
Dim YL As String, KPL As Application, KTP As Workbook
Dim S1 As Worksheet, S2 As Worksheet, STR As Long
Application.ScreenUpdating = False
Set KPL = CreateObject("Excel.Application")
KPL.Visible = False
YL = ThisWorkbook.Path & "\"
Set S1 = ActiveWorkbook.ActiveSheet
Set KTP = KPL.Workbooks.Open(YL & "hedef.xlsx")
For STR = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row
Set S2 = KTP.Sheets(S1.Cells(STR, "A").Text)
S2.Range("A2") = S1.Cells(STR, "B")
S2.Range("B2") = S1.Cells(STR, "C")
Next
KTP.Save: KPL.Quit
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı"
End Sub

Not : Hedef dosyası ile kaynak dosyası aynı yerde olmalı
Önemli Not : Kaynak dosyasını kodu ekledikten sonra makro içerebilen dosya şeklinde kayıt yapmayı unutmayınız.

 

[cleanner]

Sayın asi_kral

Yardımınız çok makbule geçti. Gerçekten çok teşekkür ederim. Tam olarak istediğim buydu.
Mutlu günler ....

 

[asi_kral]

Sayın asi_kral

Yardımınız çok makbule geçti. Gerçekten çok teşekkür ederim. Tam olarak istediğim buydu.
Mutlu günler ....

Kolay Gelsin.