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.
[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]
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]
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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.