Sorgu için arama sonuçları: SaveAs

...= isim Dosya_Yolu = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & "\EXCEL\" & Kitap_Adı Application.DisplayAlerts = False ActiveWorkbook.SaveAs Dosya_Yolu ActiveWorkbook.Close False Application.DisplayAlerts = True Set S2 = Nothing Application.ScreenUpdating = True...

...= S1.Range("C9:C10").Value WB.Sheets(2).Name = S1.Range("A7").Value WB.Sheets(1).Select WB.SaveAs File_Path & "DENEME", xlOpenXMLWorkbookMacroEnabled WB.Close Set S1 = Nothing Set WB = Nothing Set FSO = Nothing With Application...

...olarak Downloads klasörümün altına kaydettim. Sheets("TASLAK").Select Sheets("TASLAK").Copy ChDir "C:\Users\cakma\Downloads" ActiveWorkbook.SaveAs Filename:="C:\Users\cakma\Downloads\deneme1.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False...

...& "\EXCEL\" & Kitap_Adı Application.DisplayAlerts = False ActiveWorkbook.SaveAs Dosya_Yolu ActiveWorkbook.Close False Application.DisplayAlerts = True Set Dosya_Sistemi = Nothing Set S1 = Nothing Set S2 = Nothing Application.ScreenUpdating =...

Bu hali benim açımdan çok daha kullanışlı oldu, teşekkürler zahmetiniz için.

Teşekkürler,

...For Each ws In wbRapor.Sheets ws.UsedRange.Value = ws.UsedRange.Value Next ws ' Raporu kaydet ve kapat wbRapor.SaveAs Filename:=RaporYolAd, FileFormat:=xlOpenXMLWorkbook wbRapor.Close SaveChanges:=False Application.DisplayAlerts = True...

...& "\" & Worksheets("Data").Range("K2").Value & "-" & Worksheets("Data").Range("K4").Value & " MASRAF FORMU" & ".xlsx" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=DosyaAD, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False UserForm3.Show

...& baslangicSatir & ":Z" & bitisSatir).Copy _ Destination:=yeniWB.Sheets(1).Range("A2") ' CSV olarak kaydet yeniWB.SaveAs Filename:=klasorYolu & "Kitap_" & bolumNo & ".csv", FileFormat:=xlCSV yeniWB.Close SaveChanges:=False bolumNo = bolumNo + 1...

A:A Sütununda tarih verileri var. Tarih formatını hangi satırda tanımlasam sorun olmaz. Tarih Formatı kodu : Columns("A:A").Select Selection.Replace What:="-", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _...

Korhan hocam, Satır sayısını 120 den 400'e dönüştürdüm. Sorun yok. Son sütunu K olarak değerlemişsiniz, Veri = Range("A1:K" & Son).Value şöyle değiştirdim, Veri = Range("A1:S" & Son).Value yeterli olmadı. Yine son sütunu K sütunu olarak görüyor. Nasıl değiştirebilirim. Teşekkür ederim.

Teşekkür ederim ilginiz için Makroyu çalıştırdığın Sarı ile işaretlediğim yerlerde yanlış toplam geliyor

...mı?", vbYesNo + vbQuestion) = vbNo Then MsgBox "Kaydedilmedi.", vbExclamation Exit Sub End If End If ActiveWorkbook.SaveAs Filename:=dosyaYolu, FileFormat:=xlExcel8 Application.ScreenUpdating = True MsgBox "İşlem tamamlandı!", vbInformation...

Yok olmadı bu sefer 100.01.01 değişmedi sadece 360.09 dan sonra 120.P.PEŞİN ekledi ama ordaki toplamlarda zaten tutmuyor

...yaptıktan sonra; Yeni oluşturulan dosyada: "Sayfa2" sayasının temizlenmesi nasıl sağlanabilir mi? Aşağıdaki BeforeSave prosedürü gibi SaveAs prosedürü var mıdır? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sayfa2.Cells.ClearContents End Sub...

...kayitYolu = ThisWorkbook.Path & "\Dosya\" & xBenzersiz & ".xlsx" ' Sayfayı kopyala ve yeni bir kitap olarak aç wsDkm.Copy Set yeniKitap = ActiveWorkbook yeniKitap.SaveAs Filename:=kayitYolu, FileFormat:=xlOpenXMLWorkbook yeniKitap.Close SaveChanges:=False End Sub

...If S2.Cells(2, 2).Value <> "" Then dosya = yol & "\" & S2.Cells(2, 2).Value & ".xlsx" S2.Copy ActiveWorkbook.SaveAs Filename:=dosya, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close SaveChanges:=False End If Next anahtar Application.ScreenUpdating = True...

...End If Next i dosya = hedefKlasor & Replace(deger, "/", "-") & ".xlsx" With yeniSayfa.Parent .SaveAs Filename:=dosya, FileFormat:=xlOpenXMLWorkbook .Close SaveChanges:=False End With Set yeniSayfa = Nothing Next deger...

...& _ "\Dosya" & Application.PathSeparator & S2.[B2] & ".xlsx" ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=dosya ActiveWorkbook.Close S2.Columns("A:L").EntireColumn.AutoFit S2.Range("A2:L" & Rows.Count).ClearContents Next i S1.Select [O:O].Clear...

Merhaba. Sub Test() Sheets("faaliyet raporu ").Copy ActiveWorkbook.SaveAs "D:\Yeni Klasör\DosyaAdi" ActiveWorkbook.Close End Sub