• Web sitemizin SORU-CEVAP bölümünde dosya yüklemek ve dosya indirmek ÜCRETSİZ'dir.
    Gizlilik kapsamında, sadece site yöneticilerimizin ve üyenin kendisinin görebileceği ÜCRETLİ ÖZEL DESTEK alanımız mevcuttur.

makro aktar

  1. H

    Soru Formülde Kolon Kaydırma

    Merhaba, Ekteki dosya da AO kolonundaki formülü değiştirmek istiyorum. Şu anki mevcut formülde hep F kolona göre hesaplıyor. (Yani Ocak ayı bakiyesine göre). Ben ise AO8 satırında hangi ay yazıyorsa o aya ait bakiyeye göre formülün çalışmasını istiyorum. Bu konuda yardımcı olabilir misiniz?
  2. M

    Çözüldü Makro ile satırda boş hücreyi seçmek

    A1 - Z1 aralığında metin olmayan bir boş hücre var bu boş hücreyi macro ile seçip, "abcd12" yazmak istiyorum. Yardımcı olabilir misiniz ?
  3. M

    Soru sayfa karşılaştırma

    merhaba;elimde 3000 satır ve 47 sütundan oluşan, verilerimi günlük kayıt yaptığım bir Excel sayfam var. hergün akşam yedek alıyorum.yapmak istediğim konu; bugün yaptığım değişikliklerde bir sorun görünüyorsa yeni bir çalışma kitabına dün alınmış yedek sayfayı birinci sayfaya, güncel sayfayı 2...
  4. malatyalı

    Çözüldü makro ile aktarma mükerrersiz

    If Not Intersect(Target, Range("b6:c50")) Is Nothing Then Application.ScreenUpdating = False Range("b6:c" & Cells(65536, 3).End(xlUp).Row).Copy Sheets("sayfa1").Range("b" & Sheets("sayfa1").Cells(65536, 2).End(xlUp).Row + 1).PasteSpecial Paste:=xlValues Application.CutCopyMode = False Sayfanın...
  5. malatyalı

    Çözüldü matrah aktarma

    Sub MATRAHGetir() Dim son As Long: son = [C65536].End(xlUp).Row Application.ScreenUpdating = False [D6:D100].ClearContents With Range("D6:D" & son) .Formula = "=IFERROR(VLOOKUP(C6,Bordro!$C$6:$Y$50,23,0),"""")" .Value = .Value End With Application.ScreenUpdating = True End Sub...
  6. malatyalı

    Çözüldü Makro ile aktar

    Sub AKTAR() Sheets("BORDRO").Range("D3:D23").Copy Destination:=Sheets("BANKA LİSTESİ").Range("B3:B31") Sheets("BORDRO").Range("E3:E23").Copy Destination:=Sheets("BANKA LİSTESİ").Range("C3:C31") Sheets("BORDRO").Range("F3:F23").Copy Destination:=Sheets("BANKA...
Üst