Kosullu Bicimlendirlien satırı Aşağıya dogru bir seferde kopyalama

[xblue]

Merhaba kosullu biçimlendirme yaptığım bir satırı aşağıya dogru tum satırlara nasıl kopyalayabılırım

 

[İhsan Tank]

koşullu biçimlendirme seçtiğiniz alana göre çalışır.
örnek dosya eklerseniz yardımcı olmaya çalışırım

 

[xblue]

cok tesekuurler...

 

[İhsan Tank]

ne yapılacak bir zahmet onuda söyleyin

 

[xblue5]

ust satırdakı kosullu biçimlendirmeyi aşağıdaki satırlara kopyalamak istiyorum. Ancak tek tek kopyalama yaptıgımda oluyor kendı ıcınde en buyuk degerı aldıgından dolayı.

 

[xblue]

asagıya dogru tum satırla bır kerede kopyalama nasıl yapabılırım.

 

[xblue]

BU SEKILDE BU KOD YAZDIM SATIR UZADIKCA PC COK YAVASLIYOR

Rows("4:4").Select
Selection.Copy
Rows("5:5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("5:5").Select
Selection.Copy
Rows("6:6").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("6:6").Select
Selection.Copy
Rows("7:7").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("7:7").Select
Selection.Copy
Rows("8:8").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("8:8").Select
Selection.Copy
Rows("9:9").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("9:9").Select
Selection.Copy
Rows("10:10").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("10:10").Select
Selection.Copy
Rows("11:11").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("11:11").Select
Selection.Copy
Rows("12:12").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("12:12").Select
Selection.Copy
Rows("13:13").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("13:13").Select
Selection.Copy
Rows("14:14").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("14:14").Select
Selection.Copy
Rows("15:15").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("15:15").Select
Selection.Copy
Rows("16:16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("16:16").Select
Selection.Copy
Rows("17:17").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("17:17").Select
Selection.Copy
Rows("18:18").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("18:18").Select
Selection.Copy
Rows("19:19").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("19:19").Select
Selection.Copy
Rows("20:20").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("20:20").Select
Selection.Copy
Rows("21:21").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("21:21").Select
Selection.Copy
Rows("22:22").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("22:22").Select
Selection.Copy
Rows("23:23").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("23:23").Select
Selection.Copy
Rows("24:24").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

 

[silver_storm]

Koşullu biçimlendirme sekmesinden girdiğiniz formüllerde bulunan $ işaretlerini kaldırın ve biçim boyacısı ile aşağı doğru sürükleyin

 

[xblue]

$ ısaretı kaldırılmıyor. kaldırınca yenıden koyuyor sıstem

 

[silver_storm]

Sayın xblue ben sizin için ayarladım bundan sonra biçim boyacısı ile ayarlayabilirsiniz

 

[xblue]

sayın silver storm cok tskkurler elınıze saglık

 

[kenankurban]

Şöyle yapmanız gerekli. "$E$5" yerine "E$5" derseniz sorun olmaz.