Hücre biçimini kopyalamak

[Erdal]

Merhabalar
Öncelikle hepinizin geçmiş kurban bayramı mübarek olsun.
Kullanıcı tanımlı fonksiyon yazarak;
- dolgu rengi
- yazı rengi
- font
- font büyüklüğü
- hücreye uygulanan kenarlıklar kopyalanabilirmi.
Örneğin =biçimikopyala(A1) dediğimizde A1 hücresinin yukarıdaki saydığım özellikleri kopyalanabilirmi.Teşekkürler iyi çalışmalar.

 

[girdap]

Merhaba,
Boş bir hücreye 10 yazdığımızı ve bunu A1 hücresinden C1 hücresine kopyaladığımızı düşünürsek aşağıdaki kodları oluşturmak gerekir.
Bundan faydalanarak geliştiriniz.

Saygılarımla

ActiveCell.FormulaR1C1 = "10"
Range("A1").Select
With Selection.Font
.Name = "Arial Tur"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
End Sub

 

[Erdal]

Öncelikle İlgi ve alakanız için teşekkür ederim sn. girdap
Benim amacım yukarıdada anlatmaya çalıştığım gibi kullanıcı tanımlı fonksiyon oluşturmak eğer bu işlemi fonksiyonlarla yapabilirsem yüküm bayağı azalacak.vba dan anlamadığım için sizin yazmış olduğunuz kodlara bir yorum getiremiyorum. Belkide siz benim istediğim şeyi yaptınız ama ben dediğim gibi anlamadığım için birşey diyemiyorum. Eğer daha açıklayıcı olabilirseniz çok memnun olurm.eşekkürler iyi çalışmalar

 

[Erdal]

merhaba
Acaba yardım edebilecek varmı?

 

[udentr2002]

arkadaşım belki istediğin gibi değil ama örnek bir şey yaptım düğmeye tıkladığında sana hangi hücrenin biçimin kopyalamanı istediğini soracak o hücrenin adını yazıyorsun (örnek:A2) sonra sana hangi hücreye kopyalamak istediğni soracak (örnek B5) yazdığında o hücrenin biçimini kopyalayacaktır

belki fikir verebilir.

 

[Erdal]

merhabalar
ALLAH (c.c.) senden razı olsun sn. udentr2002 istediğime çok yakın birşey olmuş.Tekrar teşekkür ederim.Arkadaşlar sn. udentr2002'nin örneğinde butonu kaldırıp bu işi kullanıcı tanımlı fonksiyona yaptırmak istiyorum. Acaba mümkünmüdür. Yardımlarınız için şimdiden teşekkürler

 

[Orion1]

merhabalar
ALLAH (c.c.) senden razı olsun sn. udentr2002 istediğime çok yakın birşey olmuş.Tekrar teşekkür ederim.Arkadaşlar sn. udentr2002'nin örneğinde butonu kaldırıp bu işi kullanıcı tanımlı fonksiyona yaptırmak istiyorum. Acaba mümkünmüdür. Yardımlarınız için şimdiden teşekkürler

Kullanıcı tanımlı fonksiyonla veya yerleşik fonksiyonla bu istediğiniz yapılamıyor.
Vba kodlarını kullanarak istediğiniz gerçekleştirebilirsiniz.

 

[Erdal]

ilginize teşekkür ederim sn. orion2
vba ile bunu yaparsak =eğer(a1=0;" ";a1 hücresinin biçimini kopyalanmas&#305 gibi bir işlem veya hücre biçiminin kopyalanmasını herhangi bir formül içinde kullanabilirmiyiz. Veya buna yakın birşey yapabilirmiyiz. Umarım anlatabilmişimdir
İyi çalışmalar

 

[Orion1]

Koşullu biçimlendirme kullanınınız.Sizin isteğinize o cevap verir sanırım.

 

[Erdal]

İlgi ve alakanıza Teşekkür ederim sn. orion2 saygılar

 

[Orion1]

İlgi ve alakanıza Teşekkür ederim sn. orion2 saygılar

Rica ederim.
İyi çalışmalar.

 

[HAKANP]

Arkadaşlar selamlar,

Ben kopyala yapıştır yaparken, hücre dolgu rengi hariç geri kalanı yapıştırmak istiyorum.

Bunu nasıl yaparız?