Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
...ActiveCell.FormulaR1C1 = "=IF(RC[-5]=""A"",""AL"",""SAT"")"
Range("F2").Select
Selection.Copy
Range("F&N").Select
ActiveSheet.Paste
Range(Selection, Selection.End(xlUp)).Select
Application.CutCopyMode = False
Selection.FillDown
End With
Next I
End Sub
...Sheets("per").Range("R75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection.FillDown
Sheets("per").Range("S75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre...
...iki sütundaki formülleri bir alt satıra kopyalıtorum.
satir = Range("A65536").End(xlUp).Row + 1
Range(Cells(satir, "N"), Cells(satir, "R)).FillDown
Fakat üç sütundaki formülleri alt satıra aktarmak için kullandığım aşağıdaki formülü kullandığımda hata veriyor.
satir =...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.