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 kodu yazdım ama listede bulması gereken değerleri alt alta sıralaması gerekirken
aynı hücreye üstüste yazdırıyor nerede hata yapıyorum. Dosyada fifo_1 sayfasında butona bastığımda çalışıyor.
İlginiz için teşekkür ederim.
For y = 2 To Sheets("Fifo_1").Range("A2").End(xlDown).Row
For x = 2 To Sheets("AlisFaturalari").Range("D2").End(xlDown).Row
If Sheets("Fifo_1").Range("A" & y).Value = Sheets("AlisFaturalari").Range("D" & x).Value Then
Sheets("Fifo_1").Range("E" & y).Value = Sheets("AlisFaturalari").Range("D" & x).Value
Sheets("Fifo_1").Range("F" & y).Value = Sheets("AlisFaturalari").Range("F" & x).Value
End If
Next
Next
aynı hücreye üstüste yazdırıyor nerede hata yapıyorum. Dosyada fifo_1 sayfasında butona bastığımda çalışıyor.
İlginiz için teşekkür ederim.
For y = 2 To Sheets("Fifo_1").Range("A2").End(xlDown).Row
For x = 2 To Sheets("AlisFaturalari").Range("D2").End(xlDown).Row
If Sheets("Fifo_1").Range("A" & y).Value = Sheets("AlisFaturalari").Range("D" & x).Value Then
Sheets("Fifo_1").Range("E" & y).Value = Sheets("AlisFaturalari").Range("D" & x).Value
Sheets("Fifo_1").Range("F" & y).Value = Sheets("AlisFaturalari").Range("F" & 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.
