Sorgu için arama sonuçları: Filldown

Hocam gerçekten anlaşılır ve kısa olmuş. Emeğinize sağlık.

Teşekkür ederim ilginiz için Makroyu çalıştırdığın Sarı ile işaretlediğim yerlerde yanlış toplam geliyor

...1).EntireRow.Insert ' A-F sütunlarını 3 satır boyunca doldur Cells(Bak, "A").Resize(3, 6).FillDown ' Yeni satırlara değerleri yaz Cells(Bak + 1, "B").Value = "100.01.01" Cells(Bak + 1, "G").Value = Borc...

Yok olmadı bu sefer 100.01.01 değişmedi sadece 360.09 dan sonra 120.P.PEŞİN ekledi ama ordaki toplamlarda zaten tutmuyor

Hocam kısa ve öz olmuş. Elinize sağlık

Çok teşekkür ederim bu şekilde oldu

Bu da olabilir... Sub Formula_Copy() Range("A1:A11,A13:A50").FillDown End Sub

...Set Ilk = Cells(Bak, "A").End(xlDown) Set Son = Cells(Bak + 1, "A").End(xlDown) Range(Ilk, Son.Offset(-1, 1)).FillDown Ilk.EntireRow.Delete Bak = Son.Row - 2 Next Application.ScreenUpdating = True MsgBox "Tamamlandı." End Sub

..."B") = "360.09" Then Cells(Bak + 1, "B").Resize(2, 1).EntireRow.Insert Cells(Bak, "A").Resize(3, 6).FillDown Cells(Bak + 1, "B") = "100.01.01" Cells(Bak + 1, "G") = Borc Cells(Bak + 2, "B") = "120.P.PEŞİN"...

Merhaba if error çalışmadı ama yok yazdıgı içinmi çalışmıyor acaba

...Dim lr As Integer lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row sh.Range("g2").Value = "=IFERROR(VLOOKUP(C2,'Database'!F:I,4,0);"")" sh.Range("g2:g" & lr).FillDown sh.Range("g2:g" & lr).Copy sh.Range("g2:g" & lr).PasteSpecial xlPasteValues Application.CutCopyMode = False End sub

...- SubAssemb") Dim lr As Integer lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row sh.Range("g2").Value = "=VLOOKUP(C2,'Database'!F:I,4,0)" sh.Range("g2:g" & lr).FillDown sh.Range("g2:g" & lr).Copy sh.Range("g2:g" & lr).PasteSpecial xlPasteValues Application.CutCopyMode = False end sub

...& Rows.Count).End(xlUp).Row).Value Sheets(i).Select Rows(Sayfa1.Range("A" & Rows.Count).End(xlUp).Row + 1 & ":" & Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents Range("E5:gt" & Sheets(i).Range("A" & Rows.Count).End(xlUp).Row).Select Selection.FillDown Next i Sayfa1.Select End Sub

Merhaba, Aşağıdaki kodu dener misiniz? Sub ogr() For i = 2 To Sheets.Count Sheets(i).Range("A5:D100").Value = Sheets("ANASAYFA").Range("A5:D100").Value Sheets(i).Select Range("E5:GO" & Sheets(i).Range("A" & Rows.Count).End(xlUp).Row).Select Selection.FillDown Next i End Sub

Dediklerinizi yaptım ama yazdığınız parola doğru değil diye uyarı veriyor. Ve moduldeki activesheet kısmını sarıya boyuyor.

..."şifre" If Target(2, 1) = "TOPLAM" And Target.Value <> "" Then Target(2, 1).EntireRow.Insert Cells(Target.Row, "C").FillDown Cells(Target.Row, "E").FillDown End If Worksheets("SayfaAdı").Protect "şifre" Application.EnableEvents = True End Sub

...Target As Range) Application.EnableEvents = False If Target(2, 1) = "TOPLAM" And Target.Value <> "" Then Target(2, 1).EntireRow.Insert Cells(Target.Row, "C").FillDown Cells(Target.Row, "E").FillDown End If Application.EnableEvents = True End Sub

Korhan bey ben denedim, arkadaş şöyle demek istiyor: Makro doğru çalışıyor. İşlem şu şekilde iken makro çalışınca ".FillDown" komutundan dolayı sonuç silinip FillDown komutu gereği üst hücre MİTAR olarak aşağıya yazılıyor. ADI SOYADI MİTAR MURAT SAN

..."F").End(3).Row) .Cells(1).Resize(Rows.Count - 1).ClearContents .Cells(1).FormulaArray = My_Formula If Cells(Rows.Count, "F").End(3).Row > 2 Then .FillDown .Value = .Value Else .Value = .Value End If End With End Sub

...Avg_Formula = Replace(Avg_Formula, 1048576, Last_Row) s1.Range("Bg2").FormulaArray = Avg_Formula s1.Range("BG2:BG" & Last_Row).FillDown s1.Range("BG2:BG" & Last_Row).Value = s1.Range("BG2:BG" & Last_Row).Value With Application .ScreenUpdating = True...