Fark çıkanları başka sayfaya aktar

[alialtiner]

SAYFA1 de bulunan stok sayımında eksik veya fazla çıkan malzemeleri (sarı boyalı) SAYFA2 ye nasıl çekerim. hatta başka bir excel dosyasına çekebilirsem daha iyi olacak. elimde bir çok excel sayım dosyası var, bunların eksik ve fazlalarını tek dosyada toplayabilirmiyim.
şimdiden teşekkürler.

 

[bycakir]

hangi opsiyone gore taşımak istiyorsunuz sarı renk e göremi fark hucresine göremi

 

[alialtiner]

hangi opsiyone gore taşımak istiyorsunuz sarı renk e göremi fark hucresine göremi

fark hücresine göre.

 

[bycakir]

pardon yeni gördüm

denermisiniz?

Sub test()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("SAYFA2")
son = WorksheetFunction.Max(Cells(Rows.Count, "A").End(3).Row, 2)

For i = 2 To son
son1 = Application.WorksheetFunction.CountA(sh.Range("A:A")) + 1
If Cells(i, "E") = 0 Then

Else
Worksheets("SAYFA1").Rows(i).Copy
Worksheets("SAYFA2").Select
Worksheets("SAYFA2").Rows(son1).Select
Worksheets("SAYFA2").Paste
End If
Next i
End Sub

 

[Haluk]

Alternatif;

Sub Test()
'   Haluk - 16/02/2022
    Dim DB As Object, RS As Object
  
    Set daoDBEngine = CreateObject("DAO.DBEngine.120")
  
    Set DB = daoDBEngine.OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=Yes; IMEX=1;")
    Set RS = DB.OpenRecordset("Select * From [SAYFA1$] Where [fark] <> 0")
  
    Sheets("SAYFA2").Range("A1:H1") = Sheets("SAYFA1").Range("A1:H1").Value
    Sheets("SAYFA2").Range("A2").CopyFromRecordset RS
  
    DB.Close
    Set RS = Nothing
    Set DB = Nothing
    Set daoDBEngine = Nothing
End Sub

.

Ama, "Google Sheets" kullanırsanız, basit tek bir formülle tüm verileri çekebilirsiniz.




.