sayısal girişleri yan sutuna taşıma

[omyuga]

merhabalar.
excelde bir sutuna alt alta girilmiş olan verilerde, sayısal olan değerlerin soldaki sutuna yine aynı satır numarasında kalacak sekilde otomatik olarak taşıyabilirmiyim. teşkkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e623390750]Sub ayir()
adr = Columns("C").SpecialCells(xlCellTypeConstants, 1).Address
For Each hucre In Range(adr)
hucre.Offset(0, -1) = hucre
hucre.ClearContents
Next
End Sub
[/vb:1:e623390750]