Makro Yardımı Hk

[e_e_engineer]

Arkadaşlar merhaba,

J sütununda bulunan 87654321-1234 şeklindeki sayıları – işartinden sonraki kısım silinecek ve yine j sütununa(kendi üstüne) yazılacak şekilde bir makroya ihtiyacım var. Yardımcı olabilirmisiniz? Makro çalıştıktan sonraki hali :87654321 olacak.

 

[bedri41]

Amaç sadece - işaretinden sonraki sayıları kaldırmaksa bunu Bul değiştir ile yapabilirsiniz,
Metni sutunlara böl ile yapabilirsiniz, formül ile yapabilirsiniz. Özellikle Makro mu lazım ?

 

[e_e_engineer]

evet makro olursa iyi olur. formül konusunda yardımcı olurmusunuz

 

[bedri41]

J Sütunun yanına bir sutun açın K1 hücresine =(SOLDAN(J1;8)) formülünü yazıp ihtiyacınız kadar aşıya kopyalayın. Daha sonra K sutununu kopyalayıp J sutununa özel yapıştır değerleri yapın K sutununu silebilirsiniz.
Kolay gelsin

 

[e_e_engineer]

teşekkürler ama dediğim gibi bana makro gerekiyor

 

[İhsan Tank]

Arkadaşlar merhaba,

J sütununda bulunan 87654321-1234 şeklindeki sayıları – işartinden sonraki kısım silinecek ve yine j sütununa(kendi üstüne) yazılacak şekilde bir makroya ihtiyacım var. Yardımcı olabilirmisiniz? Makro çalıştıktan sonraki hali :87654321 olacak.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub kırp_61()
On Error Resume Next
Dim ts, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Verileri Kırpıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For ts = 1 To Cells(Rows.Count, "J").End(xlUp).Row
Cells(ts, "J") = Mid(Cells(ts, "J"), 1, InStr(1, Cells _
(ts, "J"), "-", vbTextCompare) - 1)
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Kırpma Tamamlandı", , "Bitiş"
End Sub

 

[e_e_engineer]

teşekkür

ilgili makro çalışıyor ve tam da aradğım şeydi. teşekkür ederim.

 

[İhsan Tank]

ilgili makro çalışıyor ve tam da aradğım şeydi. teşekkür ederim.

Rica ederim
:keyif: