Forum
Aktif konular
Üyeler
Kurallar
Arama
Kodla Excel Biçim Kopyalama Kodla Excel Biçim Kopyalama
-
Elimde bir excel dosyası var. Bu dosya içerisinde bazı hücrelerde metinler farklı farklı renklerde. Şimdi ben bu hücreleri , başka bir hücreye biçimi bozulmadan taşımak istiyorum.
Örneğin veri olan hücre F12=F12 vb. şekilde başka bir hücreye taşımaya kalktığımda biçim bozuluyor.
Metin rengi kaybolmadan excelden kodla bu hücreleri başka hücrelere nasıl taşıyabilirim ? -
pastespecial ile yapılabilir.
Worksheets(1).Cells(5, 3).Copy
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteFormats
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues -
NoktaliVirgul bunu yazdı
pastespecial ile yapılabilir.
Worksheets(1).Cells(5, 3).Copy
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteFormats
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValuesBütün sayfa için geçerli mi bu kod veya nasıl kullanıyoruz. Çünkü bahsettiğim veri sadece F12de değil
-
kodla yapman mecburi mi? kopyala yapıştır kısmında özel yapıştırdan tüm özellikleriyle yapıştırabiliyorsun.
-
LynXMaSTeR bunu yazdı
kodla yapman mecburi mi? kopyala yapıştır kısmında özel yapıştırdan tüm özellikleriyle yapıştırabiliyorsun.
Tek tek hücreleri biçimlendiremeyeceğim kadar çok fazla veri var.
=F12 dediğimde o hücreye ait herşeyin diğer hücreye gelmesini istiyorum. -
italyan bunu yazdıNoktaliVirgul bunu yazdı
pastespecial ile yapılabilir.
Worksheets(1).Cells(5, 3).Copy
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteFormats
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValuesBütün sayfa için geçerli mi bu kod veya nasıl kullanıyoruz. Çünkü bahsettiğim veri sadece F12de değil
İstediğin hücreyi sayfayı ayarlayacaksın kodlardan.
Worksheet(1) yazan bölüm 1. çalışma sayfası anlamına geliyor.
Worksheets(1).Cells(5, 3).Copy -> Bu komut 3. sütun 5. satırı kopyalıyor
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteFormats -> Bu komut kopyalanmış olan hücrenin formatını 1. satır 1. sütuna aktarıyor
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues -> Bu komut kopyalanmış olan hücrenin değerini 1. satır 1. sütuna aktarıyor---
bunları for döngüsüne koyup tüm A sütununu B'ye kopyalatabilirsin.
Bir kerelik yapacaksan manuel yapmak daha mantıklı (LynXMaSTeR 'ın söylediği şekilde)
Sürekli lazım oluyorsa o excel'in içine yazarsın makroyu.
-
NoktaliVirgul bunu yazdıitalyan bunu yazdıNoktaliVirgul bunu yazdı
pastespecial ile yapılabilir.
Worksheets(1).Cells(5, 3).Copy
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteFormats
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValuesBütün sayfa için geçerli mi bu kod veya nasıl kullanıyoruz. Çünkü bahsettiğim veri sadece F12de değil
İstediğin hücreyi sayfayı ayarlayacaksın kodlardan.
Worksheet(1) yazan bölüm 1. çalışma sayfası anlamına geliyor.
Worksheets(1).Cells(5, 3).Copy -> Bu komut 3. sütun 5. satırı kopyalıyor
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteFormats -> Bu komut kopyalanmış olan hücrenin formatını 1. satır 1. sütuna aktarıyor
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues -> Bu komut kopyalanmış olan hücrenin değerini 1. satır 1. sütuna aktarıyor---
bunları for döngüsüne koyup tüm A sütununu B'ye kopyalatabilirsin.
Bir kerelik yapacaksan manuel yapmak daha mantıklı (LynXMaSTeR 'ın söylediği şekilde)
Sürekli lazım oluyorsa o excel'in içine yazarsın makroyu.
İşe yaramadı. Metin renk bilgisi vs. yeni hücreye geçmedi.
-
örneğin a1 hücresini ctrl v ile kopyala, yapıştırmak istediğin yere yapıştır. Formül varsa n/a yazacaktır sonra kopyaladığın şeyi tekrar değer olarak yapıştır.
veya paste specialdan formül biçim vs çoklu seçim yapabilirsin.
örnek dosya yollarsan bakabilirim.
-
italyan bunu yazdıNoktaliVirgul bunu yazdıitalyan bunu yazdıNoktaliVirgul bunu yazdı
pastespecial ile yapılabilir.
Worksheets(1).Cells(5, 3).Copy
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteFormats
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValuesBütün sayfa için geçerli mi bu kod veya nasıl kullanıyoruz. Çünkü bahsettiğim veri sadece F12de değil
İstediğin hücreyi sayfayı ayarlayacaksın kodlardan.
Worksheet(1) yazan bölüm 1. çalışma sayfası anlamına geliyor.
Worksheets(1).Cells(5, 3).Copy -> Bu komut 3. sütun 5. satırı kopyalıyor
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteFormats -> Bu komut kopyalanmış olan hücrenin formatını 1. satır 1. sütuna aktarıyor
Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues -> Bu komut kopyalanmış olan hücrenin değerini 1. satır 1. sütuna aktarıyor---
bunları for döngüsüne koyup tüm A sütununu B'ye kopyalatabilirsin.
Bir kerelik yapacaksan manuel yapmak daha mantıklı (LynXMaSTeR 'ın söylediği şekilde)
Sürekli lazım oluyorsa o excel'in içine yazarsın makroyu.
İşe yaramadı. Metin renk bilgisi vs. yeni hücreye geçmedi.
Eksik birşey yapıyor olmayasın hocam, kodları test etmeden atmadım..
-
Sub Kopyala() Dim sh As Object Dim topCell As Range Set topCell = Selection.Cells(1) Selection.Copy For Each sh In ActiveWindow.SelectedSheets If TypeName(sh) = "Worksheet" Then _ sh.Range(topCell.Address).PasteSpecial _ Paste:=xlFormats Next End Sub
şuna bir de buton eklersen işini görür sanırım.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla