varsa "/" işaretinden öncesini silmek

[turkanet]

Merhaba,

diğer acil konum aşağıdadır;

a sütununda verileri tarayacak. içlerinde "/" işareti olan hücrelerin içeriğinde; "/" ve solundaki yazıları silecek.

değerli yardımlarınızı beklerim

 

[ouney06]

örnek dosya ektedir

 

[turkanet]

Sn.ouney06,

değerli yardımınıza tşk fakat,

b sütununa yapıştırma yapmasını istemiyorum. değişikliği a sütunundaki hücrenin kendisinde yapsın.

cevabınızı beklerim

 

[ouney06]

s.Cells(i, 2) = yaz bu satırı s.Cells(i, 1) = yaz bu şekilde değiştirin

 

[turkanet]

en derin saygılarım ve teşekkürlerimle, iyi akşamlar dilerim

 

[turkanet]

Merhaba arkadaşlar,

aşağıdaki makroyu a sütununu değil de q sütununu tarayacak şekilde nasıl değiştiririz?

Sub deneme()
Set s = ActiveSheet
For i = 1 To 65536
yaz = s.Cells(i, 1)
For j = 1 To Len(s.Cells(i, 1))
If Mid(s.Cells(i, 1), j, 1) = "/" Then
yaz = Right(s.Cells(i, 1), Len(s.Cells(i, 1)) - j)
End If
Next
s.Cells(i, 1) = yaz
Next
End Sub

değerli cevaplarınızı beklerim

 

[hsayar]

Cells(i, 1) yazan yerleri Cells(i, 17) veya Cells(i, "Q") olarak değiştiriniz

 

[turkanet]

teşekkür ederim

 

[turkanet]

merhaba arkadaşlar,

aynı şekilde c sütununda varsa "/" işareti ve SAĞINDAKİ yazıları silen makro için ne gibi değişiklik gereklidir?

acil cevabınız için şimdiden tşk ederim

 

[Seyit Tiken]

Sub Makro4()
[c1:c100].TextToColumns Destination:=Range("C1"), OtherChar:="/", _
FieldInfo:=Array(Array(1, 1), Array(2, 9))
End Sub

Şeklinde deneyiniz.

 

[abdi]

Gerçi Seyit ustad cevaplamış ama yukardaki kodun yeniden düzenlenmişi

Sub deneme2()

Dim son As Integer
son = [a65536].End(3).Row

Set s = ActiveSheet


For i = 1 To son
yaz = s.Cells(i, 1)
For j = 1 To Len(s.Cells(i, 1))
If Mid(s.Cells(i, 1), j, 1) = "/" Then
yaz = Left(s.Cells(i, 1), Len(s.Cells(i, 1)) - j)
End If
Next
s.Cells(i, 1) = yaz
Next
End Sub

 

[Seyit Tiken]

Bu Kod belli bir aralıkta veya tüm sayfada "/" işareti dahil ve sonrası verileri siler.

Sub Düğme1_Tıklat()
Cells.Replace What:="/*", Replacement:=" "
End Sub

 

[turkanet]

tüm ustalara sonsuz tşk