Sayfa2 isminde diğer sekmeyi oluşturun. A1 hücresine isim, B1 hücresine numara yazın. Listenin başlık isimleri olacak bunlar.
Geliştirici/kod görüntüleden makroya geçin (alt + f11)
Sub listeyap
Sonsatir = cells(rows.count, "b").end(xlup).row
For i = 1 to Sonsatir
Sonsatir2 = sheets("Sayfa2").cells(rows.count, "a").end(xlup).row
If cells(i,10).value = 0 then
Sheets("sayfa2").cells(sonsatir2+1,1).value = sheets("Sayfa1").cells(i,3).value
Sheets("sayfa2").cells(sonsatir2+1,2).value = sheets("Sayfa1").cells(i,4).value
End if
Next i
End sub
Yukarıdaki play işaretine basarsanız işlem tamamlanır. Telefondan yazıyorum olmazsa yazın bilgisayardan bakayım.
0