hücre içindeki 5. karekteri kes başka hücreye yaz

[umutozkans]

Merhaba
Sanırım başlıkta da yeterince açıkladım.
Yapmak istediğim bir hücredeki n. karakterden sonraki m adet karakteri kesip yan hücreye kopyalamak.

 

[fedeal]

Merhaba,hücre a1 olsun
5. karakterden itibaten 2 karakteri alır.
=PARÇAAL(a1;5;2)
iyi çalışmalar.

 

[Necdet]

Merhaba,

Bunun için PARÇAAL(MID) Fonksiyonunu kullanabilirsiniz.

=PARÇAAL(A1;3;2)

Bu örnekte A1 hücresindeki değerin 3. karakterinden başlayarak 2 karakter alır.

A1 değeri ABCDEF ise çıkan sonuç CD dir

 

[Necdet]

Geç bile kalmışım soru yanıtlanmış.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub hucre_Parcala()
Dim kacinci As String, al As String
If ActiveCell.Value = "" Then Exit Sub
kacinci = InputBox("Hücre İçindeki Kaçıncı hücreden itibaren başlasın?", "HÜCRE PARÇALA")
If kacinci = "" Then Exit Sub
al = InputBox("Kaç karakter alınsın?", "HÜCRE AL")
ActiveCell.Offset(0, 1).Value = Mid(ActiveCell.Value, CInt(kacinci), CInt(al))


End Sub

 

[umutozkans]

Hayır maalesef yanıtlanmadı arkadaşlar biraz aceleci davrandılar yine de teşekkür ederim ama soruyu iyi okumak lazım.
İlk hücreden m kadar karakter KESİLECEK.

Yani A1 hücresindeki ABCDE karakterleri için ilk 3 karakter kesilip A2 hücresine kopyalanacak.
Buna göre A1 'de DE karakterleri kalır. A2 'de ise ABC karakterleri oluşturulur.
Saygılar

 

[Orion1]

Hayır maalesef yanıtlanmadı arkadaşlar biraz aceleci davrandılar yine de teşekkür ederim ama soruyu iyi okumak lazım.
İlk hücreden m kadar karakter KESİLECEK.

Yani A1 hücresindeki ABCDE karakterleri için ilk 3 karakter kesilip A2 hücresine kopyalanacak.
Buna göre A1 'de DE karakterleri kalır. A2 'de ise ABC karakterleri oluşturulur.
Saygılar

Ekli dosyayı inceleyiniz.

Sub hucre_Parcala()
Dim kacinci As String, al As String, deg1 As String, deg2 As String
If ActiveCell.Value = "" Then Exit Sub
kacinci = InputBox("Hücre İçindeki Kaçıncı hücreden itibaren başlasın?", "HÜCRE PARÇALA")
If kacinci = "" Then Exit Sub
al = InputBox("Kaç karakter alınsın?", "HÜCRE AL")
deg1 = Mid(ActiveCell.Value, CInt(kacinci), CInt(al))
ActiveCell.Offset(0, 1).Value = deg1
deg2 = Replace(ActiveCell.Value, deg1, "")
ActiveCell.Value = deg2

End Sub

 

[umutozkans]

Evren Bey;

Teşekkürler ama "Hücre İçindeki Kaçıncı hücreden itibaren başlasın" ne demek.
Üstelik kutucuklara sayıları girince hiçbirşey olmuyor. Bunu sadece hücre içine kod yazarak yapamaz mıyız?

 

[Necdet]

Hayır maalesef yanıtlanmadı arkadaşlar biraz aceleci davrandılar yine de teşekkür ederim ama soruyu iyi okumak lazım.
İlk hücreden m kadar karakter KESİLECEK.

Yani A1 hücresindeki ABCDE karakterleri için ilk 3 karakter kesilip A2 hücresine kopyalanacak.
Buna göre A1 'de DE karakterleri kalır. A2 'de ise ABC karakterleri oluşturulur.
Saygılar

İlk sorunuzu okur musunuz?
Soru yanıtlanmıştır.
Sonradan fikir değiştirirseniz bu sorunun yanıtlanmadığını göstermez.

 

[umutozkans]

Pardon ama nasıl yanıtlanıyor anlamadım. Türkçe'den muaf uyarı kodları ile mi oluyor. Kusura bakmayın ben sadece Türkçe biliyorum.
Cevaba gelince ben kendim buldum. Basit bir değiştir komutu işi çözüyor. Yine de herkese teşekkürler.Sevgiler

 

[Necdet]

Haydaaa iyi ki Türkçe biliyorsunuz.
Sorunuz bir hücreden belli karakterden başlayarak n kadar karakteri almaktı.

İlk verilen örnekte Sayın fedeal ve ben yanıtını verdik.
Sayın fedeal'ın örneği sizin dediğiniz gibi, 5. karakterden başlayan ve 2 karakter alan, yani 5 ve 6 karakteri alıp başka hücreye yazmaktı.

Sonra sorunuzu değiştirip soldan şu kadar alana çevirdiniz.

Sonra da yanıtlanmadı diyorsunuz.

Ve son mesajda da değiştir komutunu kullandığınızı söylüyorsunuz.

Türkçenize ve anlatımınıza hayran kaldım.

 

[uzmanamele]

Pardon ama nasıl yanıtlanıyor anlamadım. Türkçe'den muaf uyarı kodları ile mi oluyor. Kusura bakmayın ben sadece Türkçe biliyorum.
Cevaba gelince ben kendim buldum. Basit bir değiştir komutu işi çözüyor. Yine de herkese teşekkürler.Sevgiler

merhaba
ukalalık yapıp densizce cevap veriyorsunuz!
ettiğiniz teşekkürde size kalsın, hiç bir arkadaşımızın sizin bu cevabınızdan sonra teşekküre ihtiyacı yok!

 

[parametre]

Bu tip insanlar daima olacaktır bizde bu tur kişilerin istedigi turlerde cevap verip onun seviyesine inmememiz zorda olsa buyuk bir erdemdir. Sagduyu budur. umuyorumki bu kadar cevapla alacağı dersi almıs olur ve birdaha tekrar etmeyerek olgunluga bir adım daha yaklastıgını bizlere ispat eder .

 

[umutozkans]

Pek saygıdeğer arkadaşlar;

Burada görüyorum ki konu çoktan maksadını aşmış. Bazı arkadaşlar gereksiz bir alınganlığa girmiş. Bunlara hiç gerek yok. Bu sebepten cevap hakkı doğuracak şeyler söylemeyeceğim.
Konu ile ilgili olarak ise konu başlığına da bakarsak taaa ilk cevaptan itibaren hep kesilecek lafının altını çizmişim. Fakat verilen çözümler sadece belirli karekterleri kopyalıyor, tekrar altını çiziyorum kesmiyor. Galiba tüm yanlış anlaşılmalar kesmek ve kopyalamak kavramlarının karıştırılmasından kaynaklanıyor.
Ayrıca bir açıklama daha yapmak gerekirse Türkçe'yi doğru kullanmak ile anlatım yeteneği arasında fark var. Ben anlatım hatası yapmış olabilirim ki biraz önce de belirttim bir yanlış anlaşılma var fakat asla Türkçe yanlışı yok.

Tekrardan saygılar sevgiler...

dahi anlamındaki de da

 

[leumruk]

Tarihlerde mi bir hata var; ben mi yanlış görüyorum? İki ay sonrasında aynı sorun devam ediyor. Tebrik ederim(!) Konunun muhatapları dahi ne olup bittiğini hatırlamayacaktır. :???: :???: :???: :dusun:

 

[Levent Menteşoğlu]

Sn Mustafa bey çok haklı. İki ay sonra böyle bir konuya cevap yazmak ne mana ifade ediyor acaba.