veri kopyalama

[mehmet2285]

excel kitabımın 1.sayfasında yer alan a1:E28 aralığının h1 de yazan veriyi sayfa ismi alıp kitabın içerisinde yeni bir sayfaya kopyalamak istiyorum
kopyalamak istediğim hücrelerde düşeyara vb fonksiyonlarla çağrılmış veriler var, kopyalama yapılarken sadece verilerin görünün karekterleri kopyalamak istiyorum fonksiyonları degil,

bunu yaparken de bir düğme kullanmak istiyorum
örnek dosya ekte.
bu konuda yardımlarınızı rica ediyorum

 

[Orion1]

Aşağaıdaki kod işinizi görür.

Sub CommandButton1_Tıklat()
On Error Resume Next
Application.ScreenUpdating = False
Application.Worksheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Name = Sheets("sayfa1").Range("H1").Value
Sheets("Sayfa1").Range("A1:E28").Copy
Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = xlCopy
Application.ScreenUpdating = True
MsgBox "Kopyalama yapıldı." & vbLf & "evrengizlen@hotmail.com" & _
vbLf & "30.04.2011", vbOKOnly + vbInformation
End Sub

 

[mehmet2285]

evren hocam kodu denedim ama tam olarak istediğimi karşılamadı
kodun ilk bölümü kopyalamaya kadar olan kısmında sorun yok gibi

yapştırma işlemi şöyle olacak :
yeni bir sayfa açsın , sayfa adı olarak
sayfa1 h1 hücresinde yazan kelimeyi alsın
ondan sonra yapıştırmayı yapsın

bu yukarıda kod ile her durumda 3.sayfaya yapştırıyor

 

[Orion1]

2 numaralı kodu düzenledim.
Kolay gelsin.

evren hocam kodu denedim ama tam olarak istediğimi karşılamadı
kodun ilk bölümü kopyalamaya kadar olan kısmında sorun yok gibi

yapştırma işlemi şöyle olacak :
yeni bir sayfa açsın , sayfa adı olarak
sayfa1 h1 hücresinde yazan kelimeyi alsın
ondan sonra yapıştırmayı yapsın

bu yukarıda kod ile her durumda 3.sayfaya yapştırıyor

 

[mehmet2285]

Tşkler hocam