Makro'da düzenleme

[1Al2Ver]

Merhabalar,

Aktarma makrosunda, ne kadar uğraştım ise de istediğim düzenlemeyi yapamadım,

Ek'li dosyada "ürün" sayfasında gerekli açıklamaları yazdım,

Yardımlarınızı rica ediyorum,

Teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub aktar_MalzemeÇıkışı() ' Malzeme_Çıkışı sayfasına aktarır
Dim s1 As Worksheet, s2 As Worksheet, sat1 As Long, sat2 As Long
Set s1 = Sheets("ürün")
Set s2 = Sheets("Malzeme_Çıkışı")
sat1 = s1.[A65536].End(3).Row
sat2 = s2.Cells(Rows.Count, "A").End(xlUp).Row + 1
s1.Range("A2:G" & sat1).Copy s2.Range("A" & sat2)
Application.CutCopyMode = False
s1.Range("A2:G" & sat1).ClearContents
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName
End Sub

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

 

[1Al2Ver]

Sayın Orion1, merhaba,

Çözüm ve dosya için, ayrıca duyarlığınız için teşekkür ederim.

Saygılarımla.

 

[Orion1]

Sayın Orion1, merhaba,

Çözüm ve dosya için, ayrıca duyarlığınız için teşekkür ederim.

Saygılarımla.

Rica ederim.
iyi çalışmalar.

 

[1Al2Ver]

Sayın MUygun, merhaba,

Size de ayrıca teşekkür ederim, duyarlık gösterdiniz, sağolun.

Saygılarımla.