Soru 16

16. sorumuzla devam edelim. Bu sorunun zorluk derecesi 5/10'dur.

Aşağıdaki gibi bir tablomuz var. Bu tabloda şehirler ve ilçeleri yer alıyor.

Yeşil renkli alana bir şehir ismi yazınca, o şehre ait ilçeleri yan hücre içinde aralarında virgül olacak şekilde getireceğiz.

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

---

CEVAP

Range("F2").Clear

sonsatir = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To sonsatir

If Cells(i, 1) = Range("E2") Then
Range("F2") = Range("F2") & "," & Cells(i, 2)
End If

Next i

Range("F2") = Mid(Range("F2"), 2, Len(Range("F2")))