Satır renklendirme

[beyaz34]

Asağıdakı Makroyu kullanarak A1den a65000 kadar renklendiriyor.
Ama A4den A65000 renklendirmek istiyorum (Range("A1").Select) ayarlrını degistirdim bir sey
elde edemedim yardımlarınızı bekliyorum sayğılar....................
++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Makro1()

' Makro1 Makro
' Makro zerige tarafından 24.10.2005 tarihinde kaydedildi.
'

'
Sheets("RENK").Select
Range("A1:AC2").Select
Selection.Copy
Sheets("xxxxxx").Select
Columns("A:AC").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 

[Necdet]

Merhaba,

Verdiğiniz kodlar bir sayfadan diğer sayfaya kopyalam yapıyor.
Siz ne istiyorsanız örnek dosya ile sorunuzu destekleyin, yardımcı olacak çok arkadaş çıkacaktır.

 

[beyaz34]

Asağıdakı Makroyu kullanarak A1den a65000 kadar renklendiriyor.
Ama A4den A65000 renklendirmek istiyorum (Range("A1").Select) ayarlrını degistirdim bir sey
elde edemedim yardımlarınızı bekliyorum sayğılar....................

 

[parametre]

Merhaba,

Verdiğiniz kodlar bir sayfadan diğer sayfaya kopyalam yapıyor.
Siz ne istiyorsanız örnek dosya ile sorunuzu destekleyin, yardımcı olacak çok arkadaş çıkacaktır.

sayın beyaz verilen cevabı iyi okuyun yada farklı kod veriyorsunuz size yardımcı olabilmemiz için konuyu acık sekilde ve dogru kodları vermeniz yeterli olacaktır size yardımcı olunacaktır ama kolaylastırın yeterki iyi çalısmalar

 

[parametre]

burada guzel bir ornek mevcut çalısmanızı desteklerdiye dusunuyorum
http://www.excel.web.tr/f133/renkli-zemin-ve-font-ozelliklerine-gore-uygulamalar-t17627.html
http://www.excel.web.tr/f133/ktf-renkli-hucreleri-toplama-ve-sayma-t34042.html
http://www.excel.web.tr/f122/hucre-bicimi-ve-font-bilgisi-ktf-t68218.html

iyi çalısmalar

 

[beyaz34]

Asağıdakı Makroyu kullanarak Sayfa 3'den Sayfa1'ri renklendiriyorum, A1den a65000 kadar renklendiriyor.

Ama Sayfa 1'ri A4den A65000 renklendirmek istiyorum (Range("A1").Select) ayarlrını degistirdim bir sey
elde edemedim yardımlarınızı bekliyorum sayğılar....................
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
Sheets("Sayfa3").Select
Range("A1:Q2").Select
Selection.Copy
Sheets("Sayfa1").Select
Columns("A:Q").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+--+-+-+
ilkide hatalı dosyayı koymusum özürdilerim.

 

[AKTAY27]

bu kodları dene
'---------------------------------------
Sub renklendir()

Range("A1:Q2").Select
Selection.Copy
Sheets("Sayfa1").Select
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A5").Select
End Sub
'---------------------------

 

[beyaz34]

AKTAY27 Kardeşime tesekkür ederim .