sayfa1 deki verileri kaydetme

[tontun]

sayfa 1 e girilen verileri her kaydet dediğimde ayrı bir sayfaya tamamını kopyalayıp belirlediğim yerleri silmesini istiyorum.

 

[yerbakili]

Merhaba, örnek bir dosya eklerseniz belki yardımcı olabiliriz.

 

[tontun]

dosya ekte

 

[tontun]

sanırım yardım edecek kimse yok

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayın ve kaydet dediğiniz düğmeye kaydet makrosunu atayın:

Sub kaydet()
    Sheets("yuvarlak ölçü ").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "veri" & Worksheets.Count - 1
    Sheets("yuvarlak ölçü ").Select
    Range("a8:B27, D8:e27, G8:h27, j8:k27, m8:n27").ClearContents
    Set NewSh = Nothing
End Sub

 

[tontun]

bir şey daha sorsam bu sayfayı kapalı bir excel dosyasına kaydettirebilir miyim bu şeklide