İki Sayfa Arası Veri Transferi.

[AhmetGuven]

Merhaba,

Yapmak istediğim sayfa1 F sütunundaki bilgileri Sayfa4 (Deneme) sayfasının sayfa1 D sütunundaki adreslerine kopyalamak.
Bir iki makro çalışması yaptım fakat iş biraz uzadı gibi.
Yardımlarınız için Şimdiden Teşekkürler.

Sub Click1()
Application.ScreenUpdating = False
Dim answer As Integer
answer = MsgBox("Doğru Tarihe İşlem Yaptığınıza Emin misin?", vbYesNo + vbQuestion, "İşlem Hakkında!")
If answer = vbYes Then
'---1--- BAŞLA
Sheets("Deneme").Select
Range("A1").Select
On Error Resume Next
Range(Worksheets("Sayfa1").Range("D3").Text).Selec t
Worksheets("Sayfa1").Range("F3").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Sayfa1").Select
Application.CutCopyMode = False
On Error GoTo 0
'---1--- SON
'---2--- BAŞLA
Sheets("Deneme").Select
Range("A1").Select
On Error Resume Next
Range(Worksheets("Sayfa1").Range("D4").Text).Selec t
Worksheets("Sayfa1").Range("F4").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Sayfa1").Select
Application.CutCopyMode = False
On Error GoTo 0
'---2--- SON
'---3--- BAŞLA
Sheets("Deneme").Select
Range("A1").Select
On Error Resume Next
Range(Worksheets("Sayfa1").Range("D5").Text).Selec t
Worksheets("Sayfa1").Range("F5").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Sayfa1").Select
Application.CutCopyMode = False
On Error GoTo 0
'---3--- SON
'---4--- BAŞLA
Sheets("Deneme").Select
Range("A1").Select
On Error Resume Next
Range(Worksheets("Sayfa1").Range("D6").Text).Selec t
Worksheets("Sayfa1").Range("F6").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Sayfa1").Select
Application.CutCopyMode = False
On Error GoTo 0
'---4--- SON
'---5--- BAŞLA
Sheets("Deneme").Select
Range("A1").Select
On Error Resume Next
Range(Worksheets("Sayfa1").Range("D7").Text).Selec t
Worksheets("Sayfa1").Range("F7").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Sayfa1").Select
Application.CutCopyMode = False
On Error GoTo 0
'---5--- SON
MsgBox "..::.. EVET Butonuna Basıldı - İşlem Yapıldı. ..::..", vbInformation, "Bilgi !"
Else
MsgBox "..::.. HAYIR Butonuna Basıldı - İşlenmedi. ..::..", vbInformation, "Bilgi !"
End If
Application.ScreenUpdating = True
End Sub

 

[u.L.a.s]

Sen sanırım makro ile yapmak istiyorsun. makro ile yapacak arkadaşlar yine örnek makro kodlarını yollasın fakat basit şekilde aşağıdaki formüllede bunu yapabilirsin

bunu vlookup ile yapabilirsin.
Eğer Sayfa1 deki adreslerle sayfa 2 deki adresler birebir aynı ise

Deneme sayfasında D sütunu içinde ilk adres satırının olduğu noktada F hücresine aşağıdaki formülü yazarsan istediğin sonuç olur.

=VLOOKUP(D1;Sayfa1!D:F;3;FALSE)

 

[AhmetGuven]

Sen sanırım makro ile yapmak istiyorsun. makro ile yapacak arkadaşlar yine örnek makro kodlarını yollasın fakat basit şekilde aşağıdaki formüllede bunu yapabilirsin

bunu vlookup ile yapabilirsin.
Eğer Sayfa1 deki adreslerle sayfa 2 deki adresler birebir aynı ise

Deneme sayfasında D sütunu içinde ilk adres satırının olduğu noktada F hücresine aşağıdaki formülü yazarsan istediğin sonuç olur.

=VLOOKUP(D1;Sayfa1!D:F;3;FALSE)

Merhaba,
Sayfa1 ile Deneme sayfasındaki adresler birbiriyle aynı değiller. tarih ve güne göre seçiliyor. Düşeyara formülü işlem sonucuna ulaştırmıyor.

 

[YUSUF44]

Deneme sayfasının E3 hücresinde aşağıdaki formülü kullanıp sağa ve aşağı doğru kopyalayınız:

=EĞERHATA(DÜŞEYARA(ADRES(SATIR();SÜTUN();1;1);Sayfa1!$D$2:$F$7;3;0);"")

 

[efsane0803]

Merhaba ,
Excel de firmalardan aldığım ürünlerin kodları ve tutarları olacak çekilde bir tablo yaptım. Satışları aylara göre tuttuğum ayrı bir çalışma sayfalarıda açtım. İstediğim mesela ocak ayında 6006 kodunu yazdığımda sistemin kodun karşısındaki birim fiyatını otomatik sayfaya atması , bu konuda yardımcı olabilir misiniz .teşekkürler.

 

[YUSUF44]

Merhaba ,
Excel de firmalardan aldığım ürünlerin kodları ve tutarları olacak çekilde bir tablo yaptım. Satışları aylara göre tuttuğum ayrı bir çalışma sayfalarıda açtım. İstediğim mesela ocak ayında 6006 kodunu yazdığımda sistemin kodun karşısındaki birim fiyatını otomatik sayfaya atması , bu konuda yardımcı olabilir misiniz .teşekkürler.

DÜŞEYARA formülüyle yapabilirsiniz.