Excel Makro Yardımı
-
ayd bunu yazdıcicosz bunu yazdı
abi sen adamın sözlükteki tanımı mısın? sen nasıl bir adamsın, adamın dibiiiiiiiiiiiii
oldu mu tamamen?
-
hocam %90 tamam sadece Datafile Size hücresinin belirlediğim gün kadarıyla 1 artması gerekiyor. yani 10 günde 1 artsın diye bir şey yapılması gerekiyor. küçük bir ricada daha bulundum PM'den sağolsun kırmadı yarın yapabileceğini söyledi.
-
selamlar tekrardan
@cicosz 'a uzun zamandır ulaşamıyorum, kendisini tanıyan var mı?
bir de yapılan makroda 14 günde 1 GB artması gerekiyor. yardımcı olabilecek birisi var mı veya tarif ederse ben de yapabilirim..
Direkt kodları gönderebilirim.
ayd tarafından 22/Ara/20 15:01 tarihinde düzenlenmiştir -
ayd bunu yazdı
selamlar tekrardan
@cicosz 'a uzun zamandır ulaşamıyorum, kendisini tanıyan var mı?
bir de yapılan makro'da 14 günde 1GB artması gerekiyor. yardımcı olabilecek birisi var mı veya tarif ederse ben de yapabilirim..
Direkt kodları gönderebilirim.
kod'ları atsana Açıktan buraya, belki bir bakan olur.
aşağıdakini ,keyfi alıntıladım.
~@~
asagida bulunan linkteki formda otomatik veri doldurmam gerekiyor ve hic BASİC bilgim yok. excel makro'DA basic kullaniliyor diye biliyorum.
olmasi gereken DEGER araliklarini form'da üzerinde belirttim, fakat şöyle bir sey daha var Datafile Sizes kolonundaki Değer, belirlediğim günler arasında, 1GB olarak artması gerekmektedir. ardindan bunu, belirlenen bir dosyaya, gün gün çıkarması gerekiyor. iç denetim olacagi icin ivedikle ihtiyacim var,
RitmFarbRacourci tarafından 22/Ara/20 22:03 tarihinde düzenlenmiştir -
Sub formdoldur() Dim i, gunsayisi, gb As Integer Dim sayfaadı As Variant Dim kayitYeri As String Dim sqlSayfa As Worksheet Dim kitapAdi As String Dim calismaKitabi As Workbook Application.ScreenUpdating = False gunsayisi = Sayfa3.Range("C2").Value gb = Sayfa3.Range("D2").Value If gunsayisi > 0 Then For i = 1 To gunsayisi tarih = Format(Sayfa3.Range("A2").Value + i - 1, "dd/mm/yyyy") Sayfa2.Copy After:=Sheets(Sheets.Count) tarih1 = Replace(tarih, "/", ".") ActiveSheet.Name = "SQL Sunucuları " & tarih1 ActiveSheet.Range("A5:D5").Value = "Tarih: " & Replace(tarih, ".", "/") ActiveSheet.Range("C9").Value = Int(5 * Rnd + 1) ActiveSheet.Range("D9").Value = Int(7 * Rnd + 1) ActiveSheet.Range("E9").Value = Int(21 * Rnd + 20) ActiveSheet.Range("F9").Value = Int(31 * Rnd + 140) ActiveSheet.Range("H9").Value = Int(4 * Rnd + 92) ActiveSheet.Range("I9").Value = Int(21 * Rnd + 20) ActiveSheet.Range("J9").Value = Int(31 * Rnd + 140) ActiveSheet.Range("L9").Value = gb + i - 1 & "GB" Next End If ActiveWorkbook.Save Sayfa1.Visible = xlSheetVeryHidden Sayfa2.Visible = xlSheetVeryHidden Sayfa3.Visible = xlSheetVeryHidden With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Kayıt Yeri Seçiniz" If .Show = -1 Then kayitYeri = .SelectedItems(1) End With If kayitYeri = "" Then Exit Sub For Each sqlSayfa In ActiveWorkbook.Worksheets If sqlSayfa.Visible = True Then ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=kayitYeri & Application.PathSeparator & sqlSayfa.Name & ".pdf" End If Next MsgBox "PDF Kayıt İşlemi Tamamlandı" Application.ScreenUpdating = True Set calismaKitabi = ActiveWorkbook kitapAdi = "SQL" & "_" & Format(Sayfa3.Range("A2").Value, "dd-mm-yyyy") & "_" & Format(Sayfa3.Range("B2").Value, "dd-mm-yyyy") ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=calismaKitabi.Path & Application.PathSeparator & kitapAdi & ".pdf" Sayfa1.Visible = xlSheetVisible Sayfa2.Visible = xlSheetVisible Sayfa3.Visible = xlSheetVisible MsgBox "Rapor Kaydedildi. " & ActiveWorkbook.FullName & vbLf & "Tamam'a Tıklayın." ActiveWorkbook.Close SaveChanges:=False End Sub
Kod bu hocam. Sayfa 2(Şablon)'daki L9 hücresi, Sayfa3(TBT),A2(Başlangıç Tarihi) ne zaman başlarsa 14 gün sonra 1GB artması gerekiyor. Excel halinide atabilirim.