renkli yazıları otomatik başka sayfadaki hücreye aktarmak.

[ismail-34]

herkese selam.

ben bir sayfada örneğin mavi yazılı hücreleri otomatik başka sayfadaki hücreye yazmasını istiyorum.varsa çözümü çok işime yarar.ekteki örnekte detay sayfasındaki c sütuundaki mavi yazıları hesap sayfasında b sütununa yazması gibi.

https://docs.google.com/spreadsheets/d/1ExVjISJw68pkY7uhPkqKZroe1cABqzm8/edit?usp=sharing&ouid=115545048913734527654&rtpof=true&sd=true

Herkese saygılar sevgiler..

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu deneyin.

Sub Test()
    Dim syfDetay As Worksheet
    Dim syfHesap As Worksheet
    Dim Bak As Range
    Dim Say As Long
    Set syfDetay = Worksheets("Detay")
    Set syfHesap = Worksheets("Hesap")
    For Each Bak In syfDetay.Range("C1:C" & syfDetay.Cells(Rows.Count, "C").End(xlUp).Row)
        If Not Bak.Font.ColorIndex = 1 Then
            Say = syfHesap.Cells(Rows.Count, "B").End(xlUp).Row + 1
            If syfHesap.Range("B1") = "" Then Say = 1
            syfHesap.Range("B" & Say) = Bak
        End If
    Next
End Sub

 

[ismail-34]

Merhaba.
Aşağıdaki kodu deneyin.

Sub Test()
    Dim syfDetay As Worksheet
    Dim syfHesap As Worksheet
    Dim Bak As Range
    Dim Say As Long
    Set syfDetay = Worksheets("Detay")
    Set syfHesap = Worksheets("Hesap")
    For Each Bak In syfDetay.Range("C1:C" & syfDetay.Cells(Rows.Count, "C").End(xlUp).Row)
        If Not Bak.Font.ColorIndex = 1 Then
            Say = syfHesap.Cells(Rows.Count, "B").End(xlUp).Row + 1
            If syfHesap.Range("B1") = "" Then Say = 1
            syfHesap.Range("B" & Say) = Bak
        End If
    Next
End Sub

çok güzel çalışıyor Değerli Muzaffer hocam elinize sağlık.
modül olarak butona koydum öyle çalıştı.otomatik her an çalışması için ne yapılması gerekiyor ?
birde eğer tabi zor değilse bulundukları satırın sırasıyla aynı sırada aktarılabilinirmi.misal detaydaki rengi değişen c4 deki hücre .hesap sayfasında b4 de gözüksün.

tabi bu halide çok işime yaradı çok çok teşekkür ederim Emeğinize sağlık.Sağlıcakla.