yapıcı
Gold Üye
- Katılım
- 30 Ağu 2023
- Mesajlar
- 75
- Aldığı beğeni
- 8
- Excel V
- Office 2021 TR
- Gold Bitiş
- 24 Ekim 2026
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.
