Makro İle Formülü Bozmadan etopla Yazdırmak Ve Makro İle Silme

[excelmaster]

Selamun Aleyküm.

1. sorum: etopla formülünü makro ile formülü bozmadan yazdırmak istiyorum. Run-time error 1004 hatası alıyorum. Örnek sheet adı : "SORU1"

Cells(2, 2) = "=SUMIF(BANKA!A:A;SORU1!$A2;BANKA!B:B)"

'RUN-TİME ERROR 1004 HATASI

Range("B2").AutoFill Destination:=Range(Cells(2, 2), Cells(1048576, 1).End(xlUp).Offset(0, 1))

2. sorum: sütunlardaki boşlukları silmek istiyorum. Herkesçe bilinen replace makrosunu uyguluyorum ama sadece bir kısmını siliyor. Örnek sheet adı : "SORU2"

    Columns("A:C").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

 

[mancubus]

VBA'de dilin ingilizce, ayarların da ABD standartında olduğunu hep hafızada tutalım.

dolayısı ile formüllerde argüman ayracı olarak ";" değil, "," kullanılmalıdır.

Sub BİRİNCİSORUETOPLA()

Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=SUMIF(BANKA!A:A[COLOR="Red"][B],[/B][/COLOR]SORU1!$A2[COLOR="red"][B],[/B][/COLOR]BANKA!B:B)"

End Sub

B ve C sütunlarında silinecek " " karakteri olmadığı için silmiyor olabilir mi?

 

[excelmaster]

1. sorum çözüldü. Eyvallah.

2. sorum hala çözülemedi. A, B ve C sütunlarında boşluk var.