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