Parçaal fonksiyonu

[kurthan]

formda olan herkese slm.lar

benim küçük bir problemim var yardımcı olacak arkadaslar ıcın dosya ekledım detay orada yazıyor.tşk.ler

 

[kurthan]

üstatlar kimse yok mu bakabılecek

 

[uzmanamele]

merhaba
mevcut sayfa üzerinde bul değiştir ile yapabilirsiniz.
aranan "6 - TEKNIK MALZEMELER"
yeni değer "TEKNIK MALZEMELER"

 

[N.Ziya Hiçdurmaz]

yanıt

Sub ayir()
On Error Resume Next
Dim sat As Integer
    For sat = 10 To Cells(65536, "a").End(xlUp).Row
            Cells(sat, "a") = Split(Cells(sat, "a"), "6 - ")(1)
    Next
End Sub

 

[kurthan]

sayın hocam sadece teknık ıcın degıl dıger mavı renklı olan yazılar ıcın de durum soz konusu olunca baya zaman alacak daha kısa bır yolu varmıdır dıye ben yazmıstım

 

[kurthan]

sayın zıya hocam bu kodu mavı renklı olan yazıların tamamı ıcın yazabılırmıyız
sadece teknık olan degıl cunku benım ayırmak ıstedıgım onu ornek olsun dıye yazmıstım

 

[Ali]

sayın hocam sadece teknık ıcın degıl dıger mavı renklı olan yazılar ıcın de durum soz konusu olunca baya zaman alacak daha kısa bır yolu varmıdır dıye ben yazmıstım

Aşağı kodu deneyiniz.

Sub duzelt()
For i = 10 To 381
If Mid(Cells(i, 1), 1, 2) <= 9 Then
Cells(i, 1) = Trim(WorksheetFunction.Substitute(Cells(i, 1), Left(Cells(i, 1), 4), ""))
End If
Next
End Sub

 

[kurthan]

sayın hocam tşk.ler bu kod işe yardı
allah razı olsun

 

[kurthan]

sayın ustadım makro kod yazmayı cok ogrenmek ıstıyorum ne gıbı tavsıyelerınız olabılır.yada form da bakmam gereken konular var mı

 

[parametre]

sayın ustadım makro kod yazmayı cok ogrenmek ıstıyorum ne gıbı tavsıyelerınız olabılır.yada form da bakmam gereken konular var mı

Excel dersanesini incele orada birçok ornekler mevcut edinebilirseniz 2003 yada 2007 ofis makrolarla ilgili kitaplar mevcut size faydali olacaktır