hücre içindeki karakterleri diğer hücreye taşımak

[maliylmaz]

arkadaşlar kolay gelsin problemim şu;

bir gücrede 11-10-9-karakterli sayılar var ve bende 11 karakterli olanları diğer bir hücreye almak istiyorum tekrar izah edyorum kopyalamak değil tümüyle o hücreden 11 karakterli sayıları almak istiyorrum karşısındaki hücreye ve arkadaşkar böyle 35 sayfa var onun için rahatsız ettim

 

[Mahir64]

arkadaşlar kolay gelsin problemim şu;

bir gücrede 11-10-9-karakterli sayılar var ve bende 11 karakterli olanları diğer bir hücreye almak istiyorum tekrar izah edyorum kopyalamak değil tümüyle o hücreden 11 karakterli sayıları almak istiyorrum karşısındaki hücreye ve arkadaşkar böyle 35 sayfa var onun için rahatsız ettim

Merhaba
İstediğinizi tam anlamadım ama deneyiniz

=EĞER(UZUNLUK(A1)=11;A1;"")

 

[maliylmaz]

arkadaşım teşekkürederim fakat yazımda da söylediğim gibi verdiğin formül kopyalıyor yani tamamen o hücreden alması gerekiyor

 

[maliylmaz]

arkadaşlar ben kopylamasını istemiyorum tamamen o hücreden başka bir hücreye almasını istiyorum tşk ederim

 

[Mahir64]

Merhaba sorunuz fonkiyonlar bölümünde.
Küçük bir örnek ekleyebilirmisiniz.

 

[maliylmaz]

a b
36925814736
1234567891
12345678
65432198711


şimdi a sutununda 11 karakterli olanlerı b sutunu na almak istiyorum fakat b sutununa geçen 11 karakterler a da görünmeyecek yani kes yapıştır şekli tşk ederim

 

[maliylmaz]

Hücredeki belli uzunluktaki karakterleri diğer bir hücreye taşımak

A hücresi

12234896577
45678945464
1216346541
145445221

arkadaşlar ahücresinde 11 karakterli sayıların b hücresine geçmesini istiyorum b hücresine geçen 11 karakterli sayıların da a hücresinden silinmesini teşekkür ederim

 

[Ömer]

Merhba,

Module kopyalarak çalıştırınız.

Sub BulKes()
Dim i As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    If Len(Cells(i, "A")) = 11 Then
        Cells(i, "A").Cut Cells(i, "B")
    End If
Next i
End Sub

.

 

[AS3434]

Sayın maliylmaz

Mesajınıza bakarken sorunuzu Sayın Ömer cevaplamış ama alternatif olsun...

Sub kopyala()
Z = [a65536].End(3).Row
For x = 1 To Z
If Cells(x, 1).Value >= 10000000000# Then
Cells(x, 2) = Cells(x, 1)
Cells(x, 1).Clear
End If: Next
End Sub

 

[maliylmaz]

Merhba,

Module kopyalarak çalıştırınız.

Sub BulKes()
Dim i As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    If Len(Cells(i, "A")) = 11 Then
        Cells(i, "A").Cut Cells(i, "B")
    End If
Next i
End Sub

.

ömer bey çok teşekkür ederim ilginz için aradığım cvp buydu saolun