Soru 13

13. sorumuzla devam edelim.

Aşağıdaki gibi bir tablomuz var.

Girdimiz soldaki tablo. Bu tabloda bazı noktalar boş. Biz sağdaki tabloyu elde etmek istiyoruz. Boş değerleri almıyoruz.

Dosyayı buradan indirebilir, cevaplarınızı yorum olarak yazabilirsiniz.

---

CEVAP

Doğru çözümler için tebrik ederim. Orta'nın üzerinde bir zorlukta olan bu soruya, bu kadar doğru cevap gelmesi sevindirdi beni...

For i = 4 To 10
For y = 4 To 7
sonsatir = Cells(Rows.Count, "J").End(xlUp).Row + 1

If Cells(i, y) <> "" Then
Cells(sonsatir, 10) = Cells(i, 3)
Cells(sonsatir, 11) = Cells(3, y)
Cells(sonsatir, 12) = Cells(i, y)
End If

Next y
Next i