koşula göre listeyi yenileme

[modoste]

merhaba sayın hocalarım
ekli tablomda açıklama yaptım
kısaca ifade etmek istersem
B2 hücresinde yazılı bir metin var eğer C2 hücresinde "A" harfi var ise
B2 hücresindeki ifade altalta 2 defa yazılcak ve metnin sonuna "A" harfi eklenecek

B2den başlayan altalta devam eden veriler C2 de bulunan "A" harfine göre
E2 den itibaren altalta yeniden listelenecek.

 

[usubaykan]

Merhaba;

Aşağıdaki kodu denermisiniz.

Option Explicit
Sub Koşula_Göre_Listele()
Dim hücre As Range, Satır As Long
Range("E2:E" & Cells(Rows.Count, "E").End(3).Row).Interior.ColorIndex = xlNone
Range("E2:E" & Cells(Rows.Count, "E").End(3).Row).ClearContents
    For Each hücre In Range("B2:B" & Cells(Rows.Count, "B").End(3).Row)
        Satır = Cells(Rows.Count, "E").End(3).Row + 1
            If Cells(hücre.Row, "C") <> "" Then
                    Cells(Satır, "E") = hücre
                    Cells(Satır + 1, "E") = hücre & " " & Cells(hücre.Row, "C")
                    Cells(Satır, "E").Interior.ColorIndex = 6
                Else
                    Cells(Satır, "E") = hücre
            End If
    Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation, "Sn: " & Application.UserName
End Sub

 

[modoste]

formüllü çözümü gerekiyo sayın usa baykan teşekkür ederim çözüm için ama ben aradığı şeyi defalarca aynı sayfa içinde farklı yerlerde deneyeceğimden mutlaka formüllü çözüm lazım.

 

[modoste]

sayın hocalarım tekrar bakabilirmisiniz yardım istediğim konuya
ana özeti şu A1 hücresinde ali yazıyo B1 hücresine "A" yazdığım zaman
yanda biryerde mesela D hücresi diyelim D1 = "ali" D2 hücreside "ali" olacak

 

[modoste]

daha önce bir hocam istenilen kadar tekrar diye bir dosya başlığı altında sorumu yanıtlamıştı ona çevşirmeye çalışacam sorumu çözemezsem döncem yine foruma