Excel Makro Yardımı

08/Tem/20 11:07

Kısayol

Şikayet

Özel Mesaj

Ekerci

Kayıt Tarihi: 14/Ocak/2010

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?

Konu ID: 112846 Konuyu Acan : Ekerci Konu Başlığı : Tahribatın en sevdiği adam ? Silinme Sebebi : 3 sayfadır takip ediyorum beni seven kimse çıkmadı. alacağınız olsun müridler

Alıntı yap

08/Tem/20 11:09

Kısayol

Şikayet

Özel Mesaj

ayd

Kayıt Tarihi: 21/Eylül/2019

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.

Alıntı yap

22/Ara/20 14:38

Kısayol

Şikayet

Özel Mesaj

ayd

Kayıt Tarihi: 21/Eylül/2019

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

Alıntı yap

22/Ara/20 21:59

Kısayol

Şikayet

Özel Mesaj

RitmFarbRacourci

Kayıt Tarihi: 14/Mart/2008

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

I'şıkY'ılı;^^`) Zk't^^` RnSySyTk.Ödl.SpRtÇzBşBkYd Kryptia.agogE Sa'd-l'Suûd az.ç'k 'lmyn'Dşn Pnct'tnAnNttn Blgi,YpBlgi 'Ct'nDrm.CmdyDrm.MdrnDrm hRşYdşR ClptcPth'Strsm M'nPhs' Ld,X/Y YrYnZmnGrçklk,AlgBzklğ KrzFrst'tr Tiytr' Pugchv,Jtrn,İmmlmn,FllngLef,Pik' SuprmcySprrty CoBehTh elFnmno:NzrioRonldo AdnKy TkSs,TkHrf(?) .RtNsTk.KvMp.Mk.TrmDyn ScklkNmRzgr ŞkHcBy ccp.kky Snrlr'Çz SnaSnLzmsn 'NsnKsknçtr BgDppr.MagllnCl'ds.S'thCro's Ch'kW'ng CreazioneDiAdamo^^`, Arctrs.Spic' ArcScnd,YySnye TrbProp,TrbJet,TrbFan ~3.10^5km/sn~343m/sn ~900-1240m/snMacH RamJt,ScRamJt Przdi^^' Tbu.XL Prsek MAtv^^` mLAT G'dWllHnting(f). 3id't^^` TareZmenPr ParaMotor TrflrVArsİlşklr (-)+.(/)*,~ ZminŞkil . ..Bu imza @SubZero tarafindan degistirilmistir. "Bu kadar uzun karmakarisik bir imza yapma diye uyardim ama heeheeeey(^^D)_hey kim söylüyor, kim dinliyor." Imzanizi SubZero'ya bilgi vermeden degistirmeyiniz. Tesekkurler...

Alıntı yap

23/Ara/20 09:13

Kısayol

Şikayet

Özel Mesaj

ayd

Kayıt Tarihi: 21/Eylül/2019

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.

Alıntı yap