lion2577
Yeni Üye
- Katılım
- 17 Ağu 2021
- Mesajlar
- 298
- Aldığı beğeni
- 25
- Excel V
- Office 2021 TR
Konu Sahibi
Arkadaşlar merhaba; aşağıdaki 2 kod için yardım talep ediyoruz. Yardımcı olabilir misiniz lütfen. Şimdiden çok teşekkür ederiz.
1- Aşağıdaki kod ile yandaki sütundan veri alıyoruz. Bu alınan veriyi yine ayını sütunda fakat a sütunundaki dolu olan son satıra kadar yazmasını istiyoruz.
Kod:
If Sheets("Rapor").Cells(x, y) = "Ürün" Then
If Sheets("Rapor").Cells(x, y + 2) <> "" Then
Sheets("Liste").Range("j" & Sheets("Liste").Range("j" & Rows.Count).End(xlUp).Row + 1) = Sheets("Rapor").Cells(x, y + 2)
Else
Sheets("Liste").Range("j" & Sheets("Liste").Range("j" & Rows.Count).End(xlUp).Row + 1) = "-"
End If
End If
2- Aşağıdaki kod ile yandaki sütundan veri alıyoruz. Bu veri a/b şeklinde. / çizgisinden önceki veya sonraki veriyi yine ayını sütunda fakat a sütunundaki dolu olan son satıra kadar yazmasını istiyoruz.
Kod:
If Sheets("Rapor").Cells(x, y) = "Miktar/Adet" Then
If Sheets("Rapor").Cells(x, y + 2) <> "" Then
Sheets("Liste").Range("k & Sheets("Liste").Range("k" & Rows.Count).End(xlUp).Row + 1) = Sheets("Rapor").Cells(x, y + 2)
Else
Sheets("Liste").Range("k" & Sheets("Liste").Range("k" & Rows.Count).End(xlUp).Row + 1) = "-"
End If
End If
1- Aşağıdaki kod ile yandaki sütundan veri alıyoruz. Bu alınan veriyi yine ayını sütunda fakat a sütunundaki dolu olan son satıra kadar yazmasını istiyoruz.
Kod:
If Sheets("Rapor").Cells(x, y) = "Ürün" Then
If Sheets("Rapor").Cells(x, y + 2) <> "" Then
Sheets("Liste").Range("j" & Sheets("Liste").Range("j" & Rows.Count).End(xlUp).Row + 1) = Sheets("Rapor").Cells(x, y + 2)
Else
Sheets("Liste").Range("j" & Sheets("Liste").Range("j" & Rows.Count).End(xlUp).Row + 1) = "-"
End If
End If
2- Aşağıdaki kod ile yandaki sütundan veri alıyoruz. Bu veri a/b şeklinde. / çizgisinden önceki veya sonraki veriyi yine ayını sütunda fakat a sütunundaki dolu olan son satıra kadar yazmasını istiyoruz.
Kod:
If Sheets("Rapor").Cells(x, y) = "Miktar/Adet" Then
If Sheets("Rapor").Cells(x, y + 2) <> "" Then
Sheets("Liste").Range("k & Sheets("Liste").Range("k" & Rows.Count).End(xlUp).Row + 1) = Sheets("Rapor").Cells(x, y + 2)
Else
Sheets("Liste").Range("k" & Sheets("Liste").Range("k" & Rows.Count).End(xlUp).Row + 1) = "-"
End If
End If