Rows (2) hk.

[HACI46]

Arkadaşlar merhaba,
VBA da [ Sheets ("Kişiler"). Range ("A: A"). Rows (2) ] Bu formül ile Kişiler Sayfasında!"A:A" altına, 2. Satırına 1 boş satır atıyoruz. Lakin A2:A ya attığımız satır A:A nın Biçim formatlarını da atıyor.
A:A da sayfa başlıkları var, dolayısıyla Başlıklar Yazım formatları Büyük .Renkli ve dolgu rengi içeriyor.
Bu Biçim formatlarının A2:A ya Gelmesini istemiyorum. Bunun için (bu [ Sheets ("Kişiler"). Range ("A: A"). Rows (2) ] ) formül yerine nasıl bir formül yazmak gerekir, Yardımcı olabilir misiniz.
Herkese hayrlı Ramazanlar ve Akşamlar diler, Yarın ki Kadir Gecenizi Tebrik ederim. Selamlar.

 

[Korhan Ayhan]

Sorunuzdan ben birşey anlamadım. Yazınızda herşey birbirine karışmış. Altın üyeliğiniz var. Küçük bir örnek dosya paylaşarak yapmak istediğiniz işlemi açıklarsanız çözüm önerilerinde bulunabiliriz.

 

[bmutlu966]

Sanırım böyle bir şey istiyorsunuz.

Sheets("Kişiler").Range("A:A").Rows(2).Insert
Sheets("Kişiler").Range("A:A").Rows(3).Copy
Sheets("Kişiler").Range("A:A").Rows(2).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

 

[HACI46]

Sanırım böyle bir şey istiyorsunuz.

Sheets("Kişiler").Range("A:A").Rows(2).Insert
Sheets("Kişiler").Range("A:A").Rows(3).Copy
Sheets("Kişiler").Range("A:A").Rows(2).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

bmutlu966 kardeş,
ilgin ve verdiğin bilgiden dolay çok çok teşekkür ediyor, sağlıklı günler diliyorum.
Gelmekte olan Ramazan Bayramınızı tebrik eder, Sevdiklerinizle birlikte güzel bayramlar geçirmenizi dilerim.
Selamlar.

Sheets("Kişiler").Range("A:A").Rows(2).Insert
Sheets("Kişiler").Range("A:N").Rows(3).Copy
Sheets("Kişiler").Range("A:N").Rows(2).PasteSpecial Paste:=xlPasteFormats : Application.CutCopyMode = False

 

[HACI46]

bmutlu966 kardeş,
ilgin ve verdiğin bilgiden dolay çok çok teşekkür ediyor, sağlıklı günler diliyorum.
Gelmekte olan Ramazan Bayramınızı tebrik eder, Sevdiklerinizle birlikte güzel bayramlar geçirmenizi dilerim.
Selamlar.

Sheets("Kişiler").Range("A:A").Rows(2).Insert
Sheets("Kişiler").Range("A:N").Rows(3).Copy

Sheets("Kişiler").Range("A:N").Rows(2).PasteSpecial Paste:=xlPasteFormats Sn. mutlu, kardeş burada Hücre yüksekliğini de Rows(3) Hücre yüksekliği ile aynı olmasını da sağlayabilir miyiz. 1. Hücrenin (A:A) nın yüksekliğni de 2.Hücreye getiriyor da. Şimdiden ilgin için teşekkür ederim. Selamlar.

Application.CutCopyMode = False

 

[bmutlu966]

satır yüksekliğinini kaç yapmak istiyorsanız aşağıdaki kod ile yapabilirsiniz.

Rows(2).RowHeight = 15

 

[YUSUF44]

Ya da 3. Satırla aynı olması için şöyle olabilir:

Rows(2).RowHeight = Rows(3).RowHeight

Bu satırı yapıştırma/ekleme işleminden sonra eklemelisiniz.

 

[HACI46]

satır yüksekliğinini kaç yapmak istiyorsanız aşağıdaki kod ile yapabilirsiniz.

Rows(2).RowHeight = 15

Eyvallah kardeşim teşekkürler. Sağlıklı günler dileği ile Selamlar.

 

[HACI46]

Ya da 3. Satırla aynı olması için şöyle olabilir:

Rows(2).RowHeight = Rows(3).RowHeight

Bu satırı yapıştırma/ekleme işleminden sonra eklemelisiniz.

Eyvallah kardeşim teşekkürler, Deneyeceğim.
Sağlıklı günler dileği ile Selamlar.