ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[ognakcgr]

Merhaba,
Excel de bul ve değiştir ile örnekte ki gibi bir değerin, birinci tire değil de ikinci tireden sonra silinmesini istiyorum.
(Soldan formülünü kullandım o tam sorunu çözmüyor.)
Örnek: 010464-3-3
Olmasını istediğim: 010464-3

Yardımcı olabilir misiniz?
Teşekkürler.

[ognakcgr]

Merhaba,
Excel de bul ve değiştir ile örnekte ki gibi bir değerin, birinci tire değil de ikinci tireden sonra silinmesini istiyorum.
(Soldan formülünü kullandım o tam sorunu çözmüyor.)
Örnek: 010464-3-3
Olmasını istediğim: 010464-3

Yardımcı olabilir misiniz?
Teşekkürler.

Sorunu aşağıdaki kod ile çözdüm,
Kod otomatik olarak,
A sütununda ki verileri metni sütunlara dönüştürerek tire olanları ayırıyor,
Sonrasında A vs B sütundaki verileri "-" tire ile birleştiriyor,
İstediğim sonucu elde etmiş oldum.

Umarım benzer işler için bazı arkadaşların işine yarar.

Kod: Tümünü seç

Sub Makro1()

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
       
        For a = 1 To Cells(65536, 1).End(xlUp).Row
Cells(a, 3) = Cells(a, 1) & "-" & Cells(a, 2)
Next
        Columns("A:B").Select
   
    Selection.Delete Shift:=xlToLeft
End Sub

[bhcn]

Merhaba, bu formulü de deneyebilirsiniz.

Kod: Tümünü seç

=DEĞİŞTİR(A2;BUL("-";A2;BUL("-";A2)+1);99;"")