Numaraları birbirinden ayırmak

[mid-bim]

Merhaba arkadaşlar sizden bir isteğim olacak ben A1 sütnündaki (05) ile başlayan numaraları B1 sütünuna makro ile aktarmak istiyorum yardımınız için şimdiden tşk.

 

[danersin]

Bunu bir deneyin.

[vb:1:c42618ce7f]
Sub BesleriListele()
'öteki sayfaya listele
For i = 1 To Cells(65536, 1).End(xlUp).Row
If Left(Cells(i, 1), 1) = 5 Then
Sheets(2).Cells(Sheets(2).Cells(65536, 1).End(xlUp).Row + 1, 1) = Cells(i, 1)
Cells(i, 1).ClearContents 'listeden çıkartmak için siliyor, ana liste değişmeyecekse bu satır silinecek
End If
Next i
'a kolonunda listeden çıkanlardan sonra sıralama yapıyor
Columns("a:a").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub
[/vb:1:c42618ce7f]


Edit : Alışkanlık Sayfa2'ye aktarmışım

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.
[vb:1:47b648527b]Sub sec()
For a = 1 To Cells(65536, 1).End(xlUp).Row
If Mid(Cells(a, 1).Value, 1, 1) = 5 Then
c = c + 1
Cells(c, 2) = Cells(a, 1).Value
End If
Next a
End Sub[/vb:1:47b648527b]

 

[mid-bim]

tşk amaişm çözülmedi

sN leventm bey gönderdiğiniz kod oldu ama ben A9 olan B9 aktarılmasını istiyorum yani tam karşısına

 

[Levent Menteşoğlu]

Lütfen detayları baştan sorunuzun içinde belirtin. Aşağıdaki gibi deneyin.

[vb:1:7c3b42844c]Sub sec()
For a = 1 To Cells(65536, 1).End(xlUp).Row
If Mid(Cells(a, 1).Value, 1, 1) = 5 Then
Cells(a, 2) = Cells(a, 1).Value
End If
Next a
End Sub[/vb:1:7c3b42844c]

 

[birol_mumcu]

syn danersin :hey:
sayfa1 kod bölümüne yarleştirdim
sizin kodlar sayfa 2 ye sıralıyor