makro ile sheet oluşturma hakkında

[Öz1.618]

Merhaba,

makromda bir tane workbook ta sheet oluşturmak için aşağıdaki kodu yazıyorum fakat makro gidiyor ana excel de sheet açıyor.
konu hakkında yardımlarınızı rica ederim.

Source.Copy

Workbooks("Saha_Satıs_Adetleri.xlsx").Activate

Sheets.Add After:=Sheets(Sheets.Count)

yukarıdaki kodda Saha_Satış_Adetlerini active ediyor ama gidip makromu çalıştırdığım ana worbook olan "satışlar" excelinde sheet açıyor.

 

[systran]

şu şekilde deneyin.
Workbooks("Saha_Satıs_Adetleri.xlsx").Sheets.Add After:=Sheets(Sheets.Count)

 

[Öz1.618]

şu şekilde deneyin.
Workbooks("Saha_Satıs_Adetleri.xlsx").Sheets.Add After:=Sheets(Sheets.Count)

kod 1004 hatası verdi

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

With Workbooks("Saha_Satıs_Adetleri.xlsx")
    .Activate
    .Worksheets.Add After:=Sheets(Sheets.Count)
End With

 

[Orion1]

Alternatif.
Deneyiniz.

Dim wb As Workbook
Set wb = Workbooks("Saha_Satıs_Adetleri.xlsx")
wb.Sheets.Add After:=wb.Sheets(wb.Sheets.Count)

 

[Öz1.618]

Merhaba,

Bu şekilde deneyin.

With Workbooks("Saha_Satıs_Adetleri.xlsx")
    .Activate
    .Worksheets.Add After:=Sheets(Sheets.Count)
End With

Merhaba,
yeni bir sheet açtı ama bu sefer de workbooktan koypaladığım alanı yapıştırmadım.
kopyaladığım bölümü yapıştırmak için sizin kodu düzenledim ama galiba hatalı oldu.

With Workbooks("Saha_Satıs_Adetleri.xlsx")
.Activate
.Worksheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
ActiveSheet.Paste

End With

 

[Ömer]

İstediğiniz bu mu?
Sayfa adını "Source" olarak yazdım. Değilse düzeltirsiniz.

Sheets("Source").Copy Before:=Workbooks("Saha_Satıs_Adetleri.xlsx").Sheets(Sheets.Count)

 

[Öz1.618]

İstediğiniz bu mu?
Sayfa adını "Source" olarak yazdım. Değilse düzeltirsiniz.

Sheets("Source").Copy Before:=Workbooks("Saha_Satıs_Adetleri.xlsx").Sheets(Sheets.Count)

Günaydın Ömer Bey,

Şimdi bir koşullu biçimlendirme ile filtre uyguluyorum sonra filtrelediğim kısmı kopyalıyorum ve yapıştırmak istediğim workbook a gidip yeni bir sayfa açıyorum. yeni açtığım sayfada sizin kodu kullandım ama yeni açılmış sayfaya advanced filtre yaptığım kısmı yapıştıramıyorum.
kodumun filitre yapmaya başladğığım kısmı ve sizin yardımcı olduğunuz kısmı aşağıdadır. Düzeltmem gereken yer neresi acaba?

Columns("A:A").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Workbooks("Merkezi_Kontrol_Data_Cek.xlsm").Sheets("Subelist").Range("A1:A6"), _
Unique:=False

Range("A1").Select
Selection.End(xlDown).Select
i4 = ActiveCell.Row


u21 = 0
u21 = u21 + 1

If u21 = 1 Then
Set Source = Range("A1:AZ" & i4 + 1).SpecialCells(xlCellTypeVisible)
Else
Set Source = Range("A2:AZ" & i4 + 1).SpecialCells(xlCellTypeVisible)
End If

Source.Copy

With Workbooks("Merkezi_Kontrol_Dataları.xlsx")
.Activate
.Worksheets.Add After:=Sheets(Sheets.Count)
Workbooks("Merkezi_Kontrol_Dataları.xlsx").Range("A1").Select
ActiveSheet.Paste

End With

 

[Öz1.618]

İstediğiniz bu mu?
Sayfa adını "Source" olarak yazdım. Değilse düzeltirsiniz.

Sheets("Source").Copy Before:=Workbooks("Saha_Satıs_Adetleri.xlsx").Sheets(Sheets.Count)

Ömer Bey,
With Workbooks("Merkezi_Kontrol_Dataları.xlsx")
.Activate
.Worksheets.Add After:=Sheets(Sheets.Count)
Workbooks("Merkezi_Kontrol_Dataları.xlsx").ActiveSheet.Paste

şeklinde düzelttim çalıştı

teşekkür ederim ilginiz için.