Hücre stili bozulmasın

[ersoyalan]

Herhangi bir hücreye başka dosyadan veri kopya/yapıştır yapıldığı zaman hücre stilinin değişmemesini istiyorum.
Koyu siyah renkle çerçeveyse öyle kalsın
Açık siyah çerçeveyse öyle kalsın.

Deneme yazılarını başka dosyadan kopyaladım yapıştır dediğim zaman çerçeve stili kayboluyor.

Yardımcı olursanız sevinirim.
Syg
E.ALAN

 

[uzmanamele]

merhaba
kopyala / özel yapıştır / değerleri olabilir, formüller olabilir.. (listeden seçim yapınız)

 

[ersoyalan]

Hocam merhaba dediğinizi yaptığım zaman oluyor fakat bir çok kullanıcı buna benzer bi dosya üzerinde kopyala yapıştır yapıyor..Yanlışlıkk yapanda çok oluyor.Bunu önlemek için alternetif bir çözüm arıyorum.
Syg

 

[ersoyalan]

Ustalar tekrar merhaba,
Yapmak istediğim işlem makro ile yapılabilirmi ?
Syg.

 

[BG]

Dim Dosya1 As String
Dim hucre As Range
Dosya1 = Application.GetOpenFilename("Excel Dosyaları, *.xls", , " Dosyayı Seçiniz")
Workbooks.Open Dosya1
Set myCell = Application.InputBox(prompt:="hücre aralığını seçin", Type:=8).Copy
'Workbooks(Dir(Dosya1)).Close
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

bir yerlerde hata yapıyorum ama nerde olduğunu bir türlü bulamadım,
dosya açılıyor, kopyalanacak hücre aralığını seçebiliyorum, veriyi kopyaladıktan sonra diğer çalışma kitabına dönemiyorum, yada başka bir şeyi atlıyorum!!!

 

[ersoyalan]

Brain denedim ama pek beceremedim heralde bende hiç birşey olmadı.

 

[BG]

Brain denedim ama pek beceremedim heralde bende hiç birşey olmadı.

New Microsoft Excel Worksheet.xls dosyasının sayfa1 ine bir butona yapıp butonun click olayına kodları yapıştırırsan

Private Sub CommandButton1_Click()
Dim Dosya1 As String
Dim hucre As Range
Dosya1 = Application.GetOpenFilename("Excel Dosyaları, *.xls", , " Dosyayı Seçiniz")
Workbooks.Open Dosya1
Set myCell = Application.InputBox(prompt:="hücre aralığını seçin", Type:=8).Copy
'Workbooks(Dir(Dosya1)).Close
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

bahsetiğim işleme kadar gerçekleşiyor, sonrası şimdilik malum?birazdan çıkacağım için pek zamanım da kalmadı!!!

 

[ersoyalan]

Ustalar merhaba,

Sorunuma halen bir çözüm bulamadım.Eğer istediğim işlem mümkünse Lüften yardımcı olun..

Syg,
E.ALAN