• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İki farklı sayfadaki verileri karşılaştırma ve diğer sayfaya aktarma

1

1extatic

Katılım
28 Temmuz 2010
Mesajlar
7
Excel Vers. ve Dili
2010 TR
1.Sayım 2.Sayım ve Sonuç olmak üzere 3 sayfalık bir excel dosyam var.
1.sayım ve 2. sayım sayfalarındaki Stok Kodu nu karşılaştırıp aynı olanları
Aynı olanları sonuç sayfasına aktarmak için makro yazmaya çalıştım. Fakat beceremedim. Yardımcı olabilecek arkadaşlar varmı? Dosya ektedir.
 

Ekli dosyalar

Dosyanız ektedir.:cool:
Kod: 
Option Base 1
Private Sub btnListeGetir_Click()
Dim s1 As Worksheet, s2 As Worksheet, liste()
Dim sat1 As Long, sat2 As Long, sat3 As Long
Dim k As Range, i As Long, j As Byte
Set s1 = Sheets("1. Sayım Fark Raporu Fifo")
Set s2 = Sheets("2. Sayım Fark Raporu Fifo")
sat1 = s1.Cells(Rows.Count, "A").End(xlUp).Row
sat2 = s2.Cells(Rows.Count, "A").End(xlUp).Row
sat3 = 1
ReDim liste(1 To 4, 1 To sat1)
For i = 2 To sat2
    Set k = s2.Range("A2:A" & sat2).Find(s1.Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing And s1.Cells(i, "A").Value <> "" Then
        liste(1, sat3) = s1.Cells(i, "A").Value
        liste(2, sat3) = s1.Cells(i, "B").Value
        liste(3, sat3) = s1.Cells(i, "J").Value
        liste(4, sat3) = s1.Cells(k.Row, "H").Value
        sat3 = sat3 + 1
    End If
Next i
Sheets("Sonuç").Select
Range("A2:D" & Rows.Count).ClearContents
Application.ScreenUpdating = False
ReDim Preserve liste(1 To 4, 1 To sat3 - 1)
Range("A2").Resize(UBound(liste, 2), 4) = Application.Transpose(liste)
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName

End Sub
 

Ekli dosyalar

Çok teşkkür ederim. Uzun zamandır aradığım şeydi. Bunun için ayrıca küçük bir filtreleme yapabilirmiyiz?
Sadece Stok Kodu, Stok Adi, 1.sayımdaki fark miktarı ve 2. sayımdaki fark miktarı sütunlarını getirebilirmiyiz?
 
1extatic' Alıntı:
Çok teşkkür ederim. Uzun zamandır aradığım şeydi. Bunun için ayrıca küçük bir filtreleme yapabilirmiyiz?
Sadece Stok Kodu, Stok Adi, 1.sayımdaki fark miktarı ve 2. sayımdaki fark miktarı sütunlarını getirebilirmiyiz?
Genişletmek için tıkla ...
dosyayı güncelledim.
2 nolu mesajdan dosyanızı indirebilirsiniz.:cool:
 
Süpersin... Gerçekten bu işte uzmansın kendini bu kadar nasıl geliştirebildin. Özellikle bu VBA konularında merak ettim...
 
Sn. Orion1 bu kodlar 2003 versiyonunda çalışmıyormu, kodları bir türlü çalıştıramdım. Bilgilendirirseniz sevinirim.
 
2nci sayfadan veri almıyordu.Şimdi farkettim.
Bu durumu düzelttim.Dosyayı 2 nolu mesajda güncelledim.
Oradan indirebilrisiniz.:cool:
 
Sn. Orion1, İlginiz için teşekkürler, ancak ben hale bir fark göremedim.
 
Sn.Orion1, dataları ve kodları Ofice 2033 excel çalışma kitabına taşıdığımda sorun çözüldü. Dönüştürme yoluyla (ekli dosyanızı 2003 versiyonuna dönüştürdüğüm de makrolar çalışmamıştı. İlginiz için tekrar teşekkür ediyorum. İyi çalışmalar diliyorum. Saygılar
 
buna benzer birşey bende yapmak istedim ama olmadı beceremedim...
bende özet tabloda temmuz ve ağustos sayflarında yapmak istedim... benim istediğim ağustosta temmuzdan farklı koddan varsa... onun listesini çıkarsın... bana bu konda yardım lütfen
 
farklı olanları

nasıl sonuç sayfasına yazarım.

1 ve 2 sayfalarda farklı kayıtları 3. sayfaya yaz nasıl deriz.
tşk.
 
Kolay gelsin bir sorum olacak..
A B C olmak üzere üç sutunu kullanıyorum. A sütununda isimler , B sütununda isimlere karşı gelen değerler(sayısal) var. C sütununa karışık olarak isimler girildiğinde A sütunundaki isimler ile karşılaştırıp eğer isim varsa D sütununa isme karşılık gelen B sütunundaki değeri nasıl yazdırabilirim ?
?

A B C D
İsim Değer girilecek isim B'den gelecek değer
 
benimde bir sorum olacak iki ayrı çalışma sayfasında
stok isimleri var örneğin ( kaşık barcelona yemek ) diğerinde stok adı ( kaşık yemek barcelona ) gibi karışık ve yandaki sütunda değerleri var benim istediğim
aynı olanları yada benzer olanları bulup değerinide yanına getirtmek bununla alakalı yardımcı olabilirmisiniz
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst