- Katılım
- 30 Ağu 2023
- Mesajlar
- 114
- Aldığı beğeni
- 10
- Excel V
- Office 2021 TR
Konu Sahibi
Arkadaşlar merhaba bu koda veri alıyorum fakat bir ekleme yapıp iki tarih arasındaki
verileri almak istiyorum yardımcı olabilirseniz sevinirim.
Dosya ektedir. Başlangıç ve Bitiş Tarihleri Fifo_1 Sayfasındadır.
Verilerin alınacağı sayfa CekGirisListesi F sütunudur. (işlem tarihi)
'ÇEK GİRİŞLERİ HAREKETLERİ
sat = 1
For y = 2 To Sheets("Fifo_1").Range("A2").End(xlDown).Row
For x = 2 To Sheets("CekGirisListesi").Range("B2").End(xlDown).Row
If Sheets("Fifo_1").Range("A" & y).Value = Sheets("CekGirisListesi").Range("B" & x).Value Then
sat = sat + 1
Sheets("Fifo_1").Range("N" & sat).Value = Sheets("CekGirisListesi").Range("B" & x).Value
Sheets("Fifo_1").Range("O" & sat).Value = Sheets("CekGirisListesi").Range("K" & x).Value
End If
Next
Next
verileri almak istiyorum yardımcı olabilirseniz sevinirim.
Dosya ektedir. Başlangıç ve Bitiş Tarihleri Fifo_1 Sayfasındadır.
Verilerin alınacağı sayfa CekGirisListesi F sütunudur. (işlem tarihi)
'ÇEK GİRİŞLERİ HAREKETLERİ
sat = 1
For y = 2 To Sheets("Fifo_1").Range("A2").End(xlDown).Row
For x = 2 To Sheets("CekGirisListesi").Range("B2").End(xlDown).Row
If Sheets("Fifo_1").Range("A" & y).Value = Sheets("CekGirisListesi").Range("B" & x).Value Then
sat = sat + 1
Sheets("Fifo_1").Range("N" & sat).Value = Sheets("CekGirisListesi").Range("B" & x).Value
Sheets("Fifo_1").Range("O" & sat).Value = Sheets("CekGirisListesi").Range("K" & x).Value
End If
Next
Next
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
