Hücredeki metni dönüştürme

[ytustatistics]

A sütünundaki sektörel girdileri, kendi isteğim doğrultusunda dönüştürmek istiyorum.

Şimdiden teşekkür ederim

 

[N.Ziya Hiçdurmaz]

yanıt

Kodu sayfa kod bölümüne yazacaksınız.Üç tanasini yaptım diğerlerini ilave edersiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a1000]) Is Nothing Then Exit Sub
For sut = 1 To [a65536].End(3).Row
Select Case Range("A" & sut)
Case "TURİZM"
Range("A" & sut) = "DİĞER"
Case "SATIŞ"
Range("A" & sut) = "TEKSTİL - KONFEKSİYON-HAZIR GİYİM,(ÇORAPÇILAR DAHİL )"
Case "ÇELİK EŞYA"
Range("A" & sut) = "OTOMOTİV  "
End Select
Next
End Sub

 

[Orion1]

A2 hücresine =C2
yazın ve aşağı doğru kopyalayın.

 

[ytustatistics]

teşekkür ederim sayın VBFA

sağolun

 

[N.Ziya Hiçdurmaz]

Sizde sağolunuz.