düşeyara formülü hk.

[kadirdiloglu]

Selam

Yapmak istediğim şey a dosyasından b dosyasına düşeyara formülü ile içi boş ama renkli hücreyi taşımak istiyorum.yani sadece rengi taşıyabilir miyim?

 

[Korhan Ayhan]

Formülle renk taşıyamazsınız. Makro kullanmanız gerekir.

 

[kadirdiloglu]

Örnek makro var mı

 

[Korhan Ayhan]

Ornek dosyalarinizi paylasim sitelerine yukleyip link verirseniz yardim almaniz kolaylasir.

 

[kadirdiloglu]

http://s3.dosya.tc/server5/0f4oy5/dene.zip.html

yukarıdaki örnekte olduğu gibi düşeyara yaptığımda renkli hücreyi boş getiriyor benim istediğim rengide taşıması

teşekkürler

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Bicimiyle_Aktar()
    Range("J6:M" & Rows.Count).ClearFormats
    For X = 6 To Cells(Rows.Count, "J").End(3).Row
        If Cells(X, "J") <> "" Then
            Set Bul = Range("B:B").Find(Cells(X, "J"), , , xlWhole)
            If Not Bul Is Nothing Then
                Bul.Resize(, 4).Copy Cells(X, "J")
            End If
        End If
    Next

    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

Çalışmanızı açın.
ALT+F11 tuşlarına basıp kod editörünü açın.
INSERT menüsünden Module seçeneğini seçin.
Sağ tarafta açılan beyaz pencereye verdiğim kodu uygulayın.

Son olarak kodun içinde herhangi bir satırı seçip F5 tuşuna basarak kodu çalıştırın.

 

[kadirdiloglu]

Aşağıdaki kodu deneyiniz.

Sub Bicimiyle_Aktar()
    Range("J6:M" & Rows.Count).ClearFormats
    For X = 6 To Cells(Rows.Count, "J").End(3).Row
        If Cells(X, "J") <> "" Then
            Set Bul = Range("B:B").Find(Cells(X, "J"), , , xlWhole)
            If Not Bul Is Nothing Then
                Bul.Resize(, 4).Copy Cells(X, "J")
            End If
        End If
    Next

    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

Çalışmanızı açın.
ALT+F11 tuşlarına basıp kod editörünü açın.
INSERT menüsünden Module seçeneğini seçin.
Sağ tarafta açılan beyaz pencereye verdiğim kodu uygulayın.

Son olarak kodun içinde herhangi bir satırı seçip F5 tuşuna basarak kodu çalıştırın.

öncelikle teşekkürler , bu şekilde yaptığımızda formülü kaldırıyor ve de hücre rengini değiştirmek istediğimde aynı değişikliği diğer hücrede yapmıyor.

 

[Korhan Ayhan]

Elbette güncel çalışan bir kodlama değildir.

Biçim veya değer değiştirdiğinizde kodu yeniden çalıştırmanız gerekecektir.