veri_karşılaştırma

[enginerinc]

aynı tarih aralağında ,aynı kriter değerlerini bir sayfadan diğerine yazdırmak istiyorum..Yani 19/04/2012 tarihinde A4 hücresindeki değer 9 ise sayfa 2 de G4 hücresinde 9 yazması gerekiyor..

yardımlarınız için teşekkür ederim..

 

[asi_kral]

Sayfa2 boş nasıl olacak_?

 

[enginerinc]

tek sayfa üzerinde örnekleme yaptım.A satırını takip ederseniz fark edeceksiniz..sayfa 2 ye yazmadım..

 

[enginerinc]

sayfa 2 oluşturulmuş hali de ektedir..

 

[asi_kral]

Merhaba
Açıklamalarınızı bir daha okur musunuz_?
Hiç bilmeyen birine anlatıyorsunuz. Lütfen dosya üzerinde şu şekilde olduğundan buraya veri gelmeli yazın bizde ona göre düzeneleme yapalım G4 hücresine bu veri neden gelsin H4 hücresine gelsin nasıl ayırt edeceğiz bunu

 

[enginerinc]

yapmak istediğim sayfa 1'de 19/04/2012 tarihinin altındaki onhand değerinin yani
-9- un sayfa 2'deki satırda 19/04/2012 tarihine sütünda ise onhand değerinin
altına yazması.
Yani sayfa 1 deki tablodaki bazı bilgileri sayfa 2 de özetlemeye çalışıyorum.
İlgili tarih aralığında on hand değeri ne ise yada ne olacaksa,sayfa 2 'de o değeri yazdırmak istiyorum.

 

[asi_kral]

yapmak istediğim sayfa 1'de 19/04/2012 tarihinin altındaki onhand değerinin yani
-9- un sayfa 2'deki satırda 19/04/2012 tarihine sütünda ise onhand değerinin
altına yazması.
Yani sayfa 1 deki tablodaki bazı bilgileri sayfa 2 de özetlemeye çalışıyorum.
İlgili tarih aralığında on hand değeri ne ise yada ne olacaksa,sayfa 2 'de o değeri yazdırmak istiyorum.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub veri_getir_1967()
'Konu       :   Verileri Yerleştir
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As Long, _
a As Worksheet, b As Worksheet
Application.ScreenUpdating = False
Set a = Sheets("Sayfa1"): Set b = Sheets("Sayfa2")
asi = WorksheetFunction.Match(a.Range("A2"), b.Range("C:C"), 0)
kral = WorksheetFunction.Match(a.Range("A3"), b.Range("A3:P3"), 0)
b.Cells(asi, kral) = a.Range("A4")
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.