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")))
=METİNBİRLEŞTİR(“,”;DOĞRU;EĞER(A:A=E2;B:B;””))
Private Sub CommandButton1_Click()
Dim son As Integer, x As Integer, f As String
Application.ScreenUpdating = False
[F2].Clear
son = Range(“A” & Rows.Count).End(xlUp).Row
For x = 2 To son
If Cells(x, 1) = Range(“E2”) Then
If [F2] = Empty Then
f = Cells(x, 2)
[F2] = f
Else
f = [F2] & “,” & Cells(x, 2)
[F2] = f
End If
End If
Next x
son = Empty: x = Empty: f = vbNullString
Application.ScreenUpdating = True
End Sub
Cells(2, 6) = “”
son_satir = Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row
For satir = 2 To son_satir
If Sayfa1.Cells(satir, 1) = Cells(2, 5) Then
If Cells(2, 6) = “” Then
Cells(2, 6) = Cells(satir, 2)
Else
Cells(2, 6) = Cells(2, 6) & “,” & Cells(satir, 2)
End If
End If
Next
Private Sub CommandButton1_Click()
range(“f2”).Clear
sonsatir = Cells(Rows.Count, “a”).End(xlUp).Row
For i = 2 To sonsatir
If Cells(i, 1) = range(“e2”) And range(“f2”) = “” Then
ilce = Cells(i, 2)
range(“f2”) = ilce
ElseIf Cells(i, 1) = range(“e2”) And range(“f2”) “” Then
ilce = Cells(i, 2)
range(“f2”) = range(“f2”) & “,” & ilce
Else
End If
Next i
End Sub
Merhaba,
=TEXTJOIN(“,”;TRUE;OFFSET($A$1;MATCH(E2;A2:A971;0);1;COUNTIF(A2:A971;E2);1))
Private Sub CommandButton1_Click()
x = Range(“e2”)
xadet = Application.WorksheetFunction.CountIf(Range(“a2:a971”), x)
sondolusatir = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
a = 0
Range(“f2”) = “”
For i = 2 To sondolusatir
If Range(“a” & i) = x And a = 0 Then
a = a + 1
Range(“f2”) = Range(“b” & i)
ElseIf Range(“a” & i) = x Then
Range(“f2”) = Range(“f2”) & “,” & Range(“b” & i)
End If
If a = x Then
Exit For
End If
Next i
End Sub