Formül kopyalamada sorun

[igultekin2000]

iyi günler, çalışma sayfasında bir türlü formülü silinmeden tutmayı yapamadım. H2 hücresindeki formülün silinmeden sabit kalmasını sağlamaya çalışıyorum. Makrolar çalıştıktan sonra. Yeni işlem yapacağımda Formül siliniyor.

 

[askm]

sl.Range("A3:H" & Son).ClearContents satırını sl.Range("A3:H" & Son).ClearContents olarak değiştirin.

 

[igultekin2000]

kotta sorun var

sl.Range("A3:H" & Son).ClearContents satırını sl.Range("A3:H" & Son).ClearContents olarak değiştirin.

ikisi aynı satır olarak, gözden kaçtı zannedersem. birde sizin yazdığınız

Sub Dene()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
    Cells.Replace Chr(160), ""
    For Each huc In ActiveSheet.UsedRange
        huc.Value = Trim(huc.Value)
    Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

kod çok işime yarıyor ancak mesala F2: H son gibi satır ve sütün belirleme şansımız olsa formül hatası da olmaya bilir. her veri aktardığımda damgalama yapmam gerekiyor , formülde bozuluyor. Teşekkürler

 

[askm]

H ifadesini G olarak değiştirin yazmak istemiştim. sl.Range("A3:G" & Son).ClearContents

 

[igultekin2000]

sorun çözülmedi

H ifadesini G olarak değiştirin yazmak istemiştim. sl.Range("A3:G" & Son).ClearContents

değiştirdim ama her veri alışında, dosya sigortadan indiği için

Sub Dene()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
    Cells.Replace Chr(160), ""
    For Each huc In ActiveSheet.UsedRange
        huc.Value = Trim(huc.Value)
    Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

makrosunu kullanınca formül hücresi bozuluyor. bu makroyu sadece A3:G son olarak ayarlanabilse formülün hücresi devre dışı kalmış olur.

 

[askm]

Sub Dene()
 On Error Resume Next
Son = Cells(ActiveSheet.Rows.Count, "G").End(xlUp).Row
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
    Cells.Replace Chr(160), ""
    For Each huc In ActiveSheet.Range("A2:G" & Son) 'UsedRange
        huc.Select
        huc.Value = Trim(huc.Value)
    Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

 

[igultekin2000]

Sorunsuz çalışıyor

Sub Dene()
 On Error Resume Next
Son = Cells(ActiveSheet.Rows.Count, "G").End(xlUp).Row
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
    Cells.Replace Chr(160), ""
    For Each huc In ActiveSheet.Range("A2:G" & Son) 'UsedRange
        huc.Select
        huc.Value = Trim(huc.Value)
    Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

Teşekkürler, düzenlediğiniz kodla sorun çözülmüştür. iyi çalışmalar.

 

[askm]

Rica ederim. İyi günler.