Soru 16

441 defa okundu

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

Bunlar da ilginizi çekebilir

  1. Hilmi Uğuzay dedi ki:

    =METİNBİRLEŞTİR(“,”;DOĞRU;EĞER(A:A=E2;B:B;””))

  2. Mustafa dedi ki:

    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

  3. Alper Düryaz dedi ki:

    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

  4. Osman dedi ki:

    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

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.