vba da belli bir alanı seçme işlemi

[Hepgel]

@Öz1.618

Daha temiz bir görüntü için makroyu aşağıdaki gibi değiştirip, Dener misiniz.
Konunuz çözülmüş oluyor mu ?

Sub TIRE_DOLDUR()
With ActiveSheet
    sat = .Cells.Find(What:="*", After:=.[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    sut = .Cells.Find(What:="*", After:=.[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    For Each hcr In .Range(.Cells(1, 1), .Cells(sat, sut))
        If hcr = Empty Then hcr.Value = "-"
    Next
End With
End Sub

 

[EmrExcel16]

Bende merak ettim , "activesheet" yazınca istediğiniz gibi çalışıyor mu kodlar.

 

[Öz1.618]

@Öz1.618

Daha temiz bir görüntü için makroyu aşağıdaki gibi değiştirip, Dener misiniz.
Konunuz çözüldü mü ?

Sub TIRE_DOLDUR()
With ActiveSheet
    sat = .Cells.Find(What:="*", After:=.[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    sut = .Cells.Find(What:="*", After:=.[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    For Each hcr In .Range(.Cells(1, 1), .Cells(sat, sut))
        If hcr = Empty Then hcr.Value = "-"
    Next
End With
End Sub

hocam çalışıyor fakat bazı hücrelere atamamış tire. çünkü trim yapmak gerekiyor. Onun haricinde problem yok. Trim yapıp sonra tire işlemi uygulamalıyız. teşekkür ederim.

 

[Öz1.618]

Bende merak ettim , "activesheet" yazınca istediğiniz gibi çalışıyor mu kodlar.

evet Emre bey.
Misal Range("A1"). Select yazınca hata veriyor. Fakat ActiveSheet.Range("A1").Select yazınca çalışıyor.

 

[Hepgel]

hocam çalışıyor fakat bazı hücrelere atamamış tire. çünkü trim yapmak gerekiyor. Onun haricinde problem yok. Trim yapıp sonra tire işlemi uygulamalıyız. teşekkür ederim.

Rica Ederim
İyi Çalışmalar.

 

[Hepgel]

Trim den bahsettiğiniz için bazı hücrelerde sadece boşluk karakterinin olduğunu düşündüm.
Yazdığım kodda döngü içindeki If satırını aşağıdaki şekilde değiştirirseniz bu hücrelerede - yazılır.

If Len(Replace(hcr.Value, " ", "")) = 0 Then hcr.Value = "-"

Eksik birşey kalmasın