sadece secili hücrelerin farklı kaydedilmesi

[ttrance]

arkadaşlar dosyayı ekliyorum yardımcı olursanız sevinirim...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. c:\deneme klasörüne kaydettiği kabul edilmiştir.

[vb:1:a759720aba]Private Sub CommandButton3_Click()
Application.DisplayAlerts = False
ad = [sayfa1!b6]
Sheets.Add
ActiveSheet.[f6:k24] = [sayfa1!f6:k24].Value
Sheets("sayfa1").Delete
ActiveSheet.Name = "Sayfa1"
ActiveWorkbook.SaveAs Filename:="C:\deneme\" & ad & ".xls"
End Sub
[/vb:1:a759720aba]

 

[ttrance]

evet harika calışıyor... yalnız benim calıştıgım sayfayı degil de yeni kaydolan sayfayı kapatabilirmiyiz... yeni kaydolan sayfa hiç açılmasın hocam.

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki kodu deneyin.

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
ad = [sayfa1!b6]
[f6:k24].Copy
Workbooks.Add
ActiveWorkbook.Sheets(1).[f6].Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs Filename:="C:\deneme\" & ad & ".xls"
ActiveWorkbook.Close
End Sub

 

[ttrance]

hocam ellerin kolların dert gormesin sagolasın :dua: :dua: :dua: :dua: