folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Excel Makro Otomatik Yazdirma



Excel Makro Otomatik Yazdirma

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    break
    break's avatar
    Kayıt Tarihi: 24/Ağustos/2005
    Erkek

    Selam muridler,

    Ekteki dosyada 2. Sheet' te Toplu adinda dosya var. Indis formulu ile 1 ile 400 arasinda isimler ve bilgileri var. Aslinda bu 2190 kisi fakat ben dosyayi kucultmek icin 400 ile sinirladim. 

    Cikti almamiz gerek tum bilgileri. Bastan sona en kolay ciktiyi nasil alabilirim? Fonksiyon - Makro fark etmez. 2190 kere yazdir butonuna basmak zor olacak, ve bunun gibi 8 tane daha sheet var.

    http://www.dosya.tc/server30/15Wj3k/veriset.xlsx.html 

    Agronomist + Yaprak Tütün Uzmanı
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    wh0
    wh0's avatar
    Kayıt Tarihi: 21/Temmuz/2008
    Homo

    hocam team viewer acarsan yardimci olabilirim.

    bende excel kurulu degilde. :)

    🏴‍☠️Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    break
    break's avatar
    Kayıt Tarihi: 24/Ağustos/2005
    Erkek

    ID: 376 420 522

    Agronomist + Yaprak Tütün Uzmanı
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Esquire
    Esquire's avatar
    Kayıt Tarihi: 10/Mart/2004
    Erkek

    Sub yazdirma()
        Dim i As Integer
        Dim j As Integer
        '
        j = Worksheets("Toplu").Range("j8").Value

        For i = Worksheets("toplu").Range("j7").Value To j
            Worksheets("toplu").Range("j9").Value = i
            ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
        Next i
    End Sub

    vakti zamanıda yaptığım bir macroydu.

    2 tane değişken var.

    senin dosyanda anladığım kadarıyla veriset sayfasındaki verileri topluda yazdırmak istiyorusun.

    anladığım kadarıyla yaptığım şeyi paylaşıyım.

    http://s3.dosya.tc/server23/Hh3IMQ/veriset.rar.html

    boş
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    break
    break's avatar
    Kayıt Tarihi: 24/Ağustos/2005
    Erkek
    Esquire bunu yazdı

    Sub yazdirma()
        Dim i As Integer
        Dim j As Integer
        '
        j = Worksheets("Toplu").Range("j8").Value

        For i = Worksheets("toplu").Range("j7").Value To j
            Worksheets("toplu").Range("j9").Value = i
            ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
        Next i
    End Sub

    vakti zamanıda yaptığım bir macroydu.

    2 tane değişken var.

    senin dosyanda anladığım kadarıyla veriset sayfasındaki verileri topluda yazdırmak istiyorusun.

    anladığım kadarıyla yaptığım şeyi paylaşıyım.

    http://s3.dosya.tc/server23/Hh3IMQ/veriset.rar.html

    Hocam Gelistirici - Makrolar - Calistir dedigimde sadece ilk sayfayi yazdiriyor. Ikinci, ucuncu ve sonrasini yazdirmiyor. Ilk deger, son deger, yazilan deger kisimlarindan sadece yazilan degeri degistiriyorum fakat olmuyor. 

     

    Agronomist + Yaprak Tütün Uzmanı
    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Esquire
    Esquire's avatar
    Kayıt Tarihi: 10/Mart/2004
    Erkek

    veriset sayfasına liste yazmak zorundasın. oralara veri yazdığın zaman makro çalışır.

    ilk değer ve son değer yazdırmak istediğin aralığı yazar. atıyorum veriset sayfanda 300 ile 400 numara arasını yazdırmak istiyorsun ilk değer ve son değerleri değiştirmen kafi. 300 ile 400 arasını yazar.

    Esquire tarafından 25/May/14 21:40 tarihinde düzenlenmiştir
    boş
    Reply With Quote Alıntı yap
Toplam Hit: 3548 Toplam Mesaj: 6