Sorgu için arama sonuçları: SaveAs

...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

...= "Şifre Hatırlatma" Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To =...

...& "\" TempFileName = "Şifre Hatırlatma" Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To = "deneme@hotmail.com" .CC = "" .bcc = ""...

kod bu tekrar bakabilir miyiz?

...kaydet ve kapat Application.DisplayAlerts = False If Dir(dosyaAdi) = "" Then wbYeni.SaveAs dosyaAdi, FileFormat:=xlOpenXMLWorkbook Else wbYeni.Save End If...

Siz baktınız mı acaba ? Şimdi denedim. Aman yine aynı sadece anahtar kelime büyükse sadece büyük yazan verileri getiriyor. Excel örneğini atmıştım. Excel sürümünün farklı olması değiştirir mi bu durumu bilmiyorum. bendeki 2013 verisiyon office

...kaydet ve kapat Application.DisplayAlerts = False If Dir(dosyaAdi) = "" Then wbYeni.SaveAs dosyaAdi, FileFormat:=xlOpenXMLWorkbook Else wbYeni.Save End If...