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? Gerçek yoktur. Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe

NoktaliVirgul bunu yazdı italyan bunu yazdı NoktaliVirgul bunu yazdı pastespecial ile yapılabilir. Worksheets(1). Cells(5, 3). CopyWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteFormatsWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteValues Bü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 blüm 1. çalışma sayfası anlamına geliyor. Worksheets(1). Cells(5, 3). Copy -> Bu komut 3. sütun 5. satırı kopyalıyorWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteFormats -> Bu komut kopyalanmış olan hücrenin formatını 1. satır 1. sütuna aktarıyorWorksheets(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 dngüsüne koyup tüm A sütununu B'ye kopyalatabilirsin. Bir kerelik yapacaksan manuel yapmak daha mantıklı 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.. If my calculations are correct, when this baby hits eighty-eight miles per hour... you"re gonna see some serious shit.

pastespecial ile yapılabilir. Worksheets(1). Cells(5, 3). CopyWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteFormatsWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteValues If my calculations are correct, when this baby hits eighty-eight miles per hour... you"re gonna see some serious shit.

NoktaliVirgul bunu yazdı pastespecial ile yapılabilir. Worksheets(1). Cells(5, 3). CopyWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteFormatsWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteValues Bü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 blüm 1. çalışma sayfası anlamına geliyor. Worksheets(1). Cells(5, 3). Copy -> Bu komut 3. sütun 5. satırı kopyalıyorWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteFormats -> Bu komut kopyalanmış olan hücrenin formatını 1. satır 1. sütuna aktarıyorWorksheets(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 dngüsüne koyup tüm A sütununu B'ye kopyalatabilirsin. Bir kerelik yapacaksan manuel yapmak daha mantıklı Sürekli lazım oluyorsa o excel'in içine yazarsın makroyu. If my calculations are correct, when this baby hits eighty-eight miles per hour... you"re gonna see some serious shit.

kodla yapman mecburi mi? kopyala yapıştır kısmında zel yapıştırdan tüm zellikleriyle yapıştırabiliyorsun. goo. gl/qBNZmW

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. Gerçek yoktur. Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe

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 = "Worksheet" Then _ sh. Range . PasteSpecial _ Paste:=xlFormats Next End Sub şuna bir de buton eklersen işini grür sanırım. goo. gl/qBNZmW

pastespecial ile yapılabilir. Worksheets(1). Cells(5, 3). CopyWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteFormatsWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteValues Bütün sayfa için geçerli mi bu kod veya nasıl kullanıyoruz. Çünkü bahsettiğim veri sadece F12de değil Gerçek yoktur. Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe

italyan bunu yazdı NoktaliVirgul bunu yazdı pastespecial ile yapılabilir. Worksheets(1). Cells(5, 3). CopyWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteFormatsWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteValues Bü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 blüm 1. çalışma sayfası anlamına geliyor. Worksheets(1). Cells(5, 3). Copy -> Bu komut 3. sütun 5. satırı kopyalıyorWorksheets(1). Cells(1, 1). PasteSpecial Paste:=xlPasteFormats -> Bu komut kopyalanmış olan hücrenin formatını 1. satır 1. sütuna aktarıyorWorksheets(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 dngüsüne koyup tüm A sütununu B'ye kopyalatabilirsin. Bir kerelik yapacaksan manuel yapmak daha mantıklı Sürekli lazım oluyorsa o excel'in içine yazarsın makroyu. İşe yaramadı. Metin renk bilgisi vs. yeni hücreye geçmedi. Gerçek yoktur. Herşey yorumdur. - KKK - Düşünürseniz, acı çekersiniz. Şüphe ederseniz, delirirsiniz. Hissederseniz, yalnız kalırsınız. O yüzden koy goethe

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.