Harfleri A sutunundan B sutununa taşıma

[yamtar155]

A sutununda bulunan harfleri B sutununa taşımam gerekiyor.
satır sayısı cok fazla oldugundan bunu yapmak günlerimi alacak.
ilgilenenler için şimdiden teşekkürler.
örnek dosya ektedir.

 

[Orion1]

Merhaba.
A sütünunun tamamını seçiniz Kesip B sütununa yapıştırınız.
Ayrıca ekte dosya yok.

 

[yamtar155]

:mrgreen: eklentiyi anca gönderebildim.

 

[yamtar155]

Sn. sezar tşkkür ederim. ancak arada bulunan rakamları taşımak istemiyorum.

 

[kombo]

B1 e
=EĞER(EMETİNSE(A1);A1;"")

 

[yamtar155]

sN. kombo
tşkkür ederim oldu; ancak A5 hücresindeki deger de B5 hücresine geçti
Nedeni ne olabilir acaba??
Excell de yeni oldugumdan cözemem diye düşündüm. Saolun

 

[yamtar155]

Sn. kombo;
)-( ayrılmış rakamları da B1 hücresine taşıyor.ilgilenirseniz sevinirim.

 

[yamtar155]

-:- iki nokta üstüste ve -;- noktalı virgülle ayrılmış rakamlarıda B 1 hücresine taşıyor.
ilgilenirseniz sevinirim.

 

[Orion1]

Merhaba.
Aşağıdaki kodları bir modüle yapıştırıp.Deneyiniz.
Sub aktar()
Sheets("Sayfa1").Select
Range("B:B").ClearContents
sat = 1
For i = 1 To Cells(65536, "A").End(xlUp).Row
If Not IsNumeric(Range("A" & i).Value) Then
Cells(sat, "B").Value = Cells(i, "A").Value
Cells(i, "A").Value = ""
sat = sat + 1
End If
Next i
Range("A1:A" & i - 1).SpecialCells(xlCellTypeBlanks).Delete (xlUp)
MsgBox "Aktarma işlemi tamamlandı..!!", vbOKOnly, Application.UserName
End Sub

 

[yamtar155]

Sn. Sezar
Tşkkürler Hemen deniyorum.

 

[N.Ziya Hiçdurmaz]

Sub test()
For i = 1 To [a65000].End(3).Row
s = WorksheetFunction.CountA([b1:B65000])
If Not IsNumeric(Range("a" & i)) Then
Range("a" & i).Copy
Range("b" & s + 1).PasteSpecial
End If
Next
End Sub

 

[yamtar155]

Merhaba.
Aşağıdaki kodları bir modüle yapıştırıp.Deneyiniz.
Sub aktar()
Sheets("Sayfa1").Select
Range("B:B").ClearContents
sat = 1
For i = 1 To Cells(65536, "A").End(xlUp).Row
If Not IsNumeric(Range("A" & i).Value) Then
Cells(sat, "B").Value = Cells(i, "A").Value
Cells(i, "A").Value = ""
sat = sat + 1
End If
Next i
Range("A1:A" & i - 1).SpecialCells(xlCellTypeBlanks).Delete (xlUp)
MsgBox "Aktarma işlemi tamamlandı..!!", vbOKOnly, Application.UserName
End Sub

Sn.Sezar Yukarıdaki makroyu denedim ancak A hücresini kople B hücresine kopyaladı. Benim istediğim sadece A sutunundaki harfler olan hücrelerin B sutununa geçmesi.
sayın kombonun formülü işimi gördü ancak -:- ve -;- ile ayrılan rakamlarıda B sutununa geciriyor.
Yinede ilginize teşekkür ederim.:roll:

 

[yamtar155]

Sub test()
For i = 1 To [a65000].End(3).Row
s = WorksheetFunction.CountA([b1:B65000])
If Not IsNumeric(Range("a" & i)) Then
Range("a" & i).Copy
Range("b" & s + 1).PasteSpecial
End If
Next
End Sub

Saolun;
ancak -:- ve -;- olan sayılarıda sag tarafa geciyor.??:roll:

 

[kombo]

Gıcık oldum . Bir türlü formülasyonla çözemiyorum. PARÇAAL,SAĞDAN,SOLDAN hepsini denedim olmuyor. Bir yerde hata yapıyorum herhalde.

 

[yamtar155]

Sn kombo' nun verdiği formül oldu. ama dediğim gibi -:- ve -;- (ikinokta üstüste ve noktalı virgül )ile girilmiş rakamlarda B sutununa geciyor.
Bunuda halledersem sorunum cözülmüş oldu arkadaşlar hepinize teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KELİMELERİ_AKTAR()
    For X = 1 To [A65536].End(3).Row
    If Not IsNumeric(Mid(Cells(X, 1), 1, 1)) Then Cells(X, 2) = Cells(X, 1)
    Next
    MsgBox "HARF İÇEREN VERİLER AKTARILMIŞTIR.", vbInformation
End Sub

 

[İdris SERDAR]

=EĞER(YADA(ESAYIYSA(SOLDAN(A1;1)*1);ESAYIYSA(SAĞDAN(A1;1)*1));"";A1)

formülünü deneyin.

.

 

[kombo]

Tamam. Şimdi oldu.
=EĞER(ESAYIYSA(SOLDAN(A1;1)*1);"";A1)

 

[yamtar155]

Gıcık oldum . Bir türlü formülasyonla çözemiyorum. PARÇAAL,SAĞDAN,SOLDAN hepsini denedim olmuyor. Bir yerde hata yapıyorum herhalde.

Sn. kombo
ilginize teşekkür ederim. Siz konuyu cözemediyseniz herhalde ben asla çözemem. Bende anlamadım : ve ; ile yazılan rakamlar geciyor. diger tüm işaretleri denedim gecmiyor.

 

[kombo]

Ben uğraşırken Sayın yurttaş işe son noktayı koymuş.