formül oluşturma

[mynaxs]

Merhaba,

sayfa 1 de 1 den 30 a kadar satır ve sütunlara sayı yazdığımızda ve yazdığımız sayıları renklendirdiğimizde sayfa 2 ye renklendirmediğimiz sayıları nasıl aktarabiliriz.
formul yazabilecek bir hayırsever varmıdır ? :mutlu: Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Renklendirdiğiniz değerleri koşullu biçimlendirmeyle mi renklendiriyorsunuz yoksa elle manuel olarak mı?

Eğer elle yapıyorsanız aktarımı formül ile değil makro ile yapmamız gerekir.

.

 

[mynaxs]

Merhaba,

Renklendirdiğiniz değerleri koşullu biçimlendirmeyle mi renklendiriyorsunuz yoksa elle manuel olarak mı?

Eğer elle yapıyorsanız aktarımı formül ile değil makro ile yapmamız gerekir.

.

elle renklendirme yapıyoruz

 

[Ömer]

Bu şekilde deneyin.

Sub Aktar()
    
    Dim S1 As Worksheet, i As Long, sat As Long
    
    Set S1 = Sheets("Sayfa1")
    
    Application.ScreenUpdating = False
    Sheets("Sayfa2").Select
    
    sat = 2
    For i = 1 To S1.Cells(Rows.Count, "A").End(xlUp).Row
        If S1.Cells(i, "A").Interior.ColorIndex < 1 Then
            Cells(sat, "A") = S1.Cells(i, "A")
            sat = sat + 1
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.