B sütunundaki Verilerilerin silinmesi

[ANTALYA 01]

Merhabalar
Yazılacak Makronun B sütunundaki Bilgilerin
(-) İşaretininden Sonraki Sağ Kısmındaki Bilgileri Silmesini istiyorum.(-) işareti olmayanların ise Aynen Kalmasını.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz?

Sub SagSil()
For i = 2 To [b65536].End(3).Row
veri = Cells(i, "b").Value
If InStr(veri, "-") > 0 Then
bul = WorksheetFunction.Search("-", veri, 1)
Cells(i, "b").Value = Left(veri, bul - 1)
Else
Cells(i, "b").Value = veri
End If
Next i
End Sub

 

[Orion1]

Dosyanız ekte.

Sub sagdansil()
Dim i As Long, deg
On Error Resume Next
For i = 2 To Cells(65536, "B").End(xlUp).Row
    deg = Split(Cells(i, "B").Value, "-")
    Cells(i, "B").Value = deg(0)
Next i
MsgBox "İşlem tamam"
End Sub

 

[ANTALYA 01]

V

Teşekkür ederim.

 

[dilanant]

Arkadaşlar benim excelde bir formata ihtiyacım var personellerin maaşını takip edebileceğim bana yardımcı olursanız sevinirim lütfen.........

 

[1Al2Ver]

Sayın dilanant,

Foruma hoşgeldiniz, çözüm aradığınız konunun yeri burası değil ve uygun bir başlıkta sormanız gerekir,

http://www.excel.web.tr/f136/

Excel dersanesinde bir çok çözüm var, inceleyiniz.