ilk 17 harf veya sayıya bak aktar

[yteizme]

Selam, kesin yapılmıştır diye düşünüyorum ancak forumda bulamadım.

Harf ve sayılardan oluşan satırlar mevcut excel sayfamda.Yapmak istediğim şu "a" sütununa baksın ilk 17 harf veya rakamı aynı olanları "c" sütununa aktarsın."d" sütunada kaçıncı satırdan veriyi aldığını belirtsin.Teşekkürler.

 

[Kemal Demir]

Merhaba,

Ek'teki örneği inceleyiniz.Umarım sorunuzu doğru anlamısımdır.

 

[yteizme]

Harika teşekkürler.Peki buna bir aralık verme şansımız var mı? Mesela 17 ile 30.cu karekterler arasına bak gibi??

 

[Kemal Demir]

Merhaba,

Dim x
''Açıklama ilk=17 yazar
''Acıklama son=kacıncı karaktere kadar olanı yazacagız
''Acıklama sonr  ise son-ilk+1 diğerek bir ayırma işlemi yapılıyor.
ilk = InputBox("Kacınvı Karakterden")
son = InputBox("Kacınvı Karakterden")
sonr = son - ilk + 1
For x = [a65536].End(3).Row To 2 Step -1
If Mid(Cells(x - 1, 1), ilk, sonr) = Mid(Cells(x, 1), ilk, sonr) Then
say = [c65536].End(3).Row + 1
Cells(say, 3) = Cells(x - 1, 1)
Cells(say + 1, 3) = Cells(x, 1)
Cells(say, 4) = x - 1
Cells(say + 1, 4) = x
Cells(x - 1, 1) = ""
Cells(x, 1) = ""
End If
Next

Kodu yukarıdaki gibi değiştiriniz.

 

[yteizme]

Teşekkürler..

 

[Kemal Demir]

Rica ederim