a sütununda bulunan rakam ile başlayan satırları almak

[kaos95]

a sütünunda metinler ve rakamlar var. Ben sadece rakam ile başlayan satırları sayfa2 a sütununa taşımak istiyorum.Yardımcı olurmusunuz? hem makro ve hem formül olarak teşekkürler

 

[kaos95]

Yanlış bölümemi açtım acaba konuyu?

 

[çıtır]

=EĞER(ESAYIYSA(SAYIYAÇEVİR(SOLDAN(Sayfa1!A1;1)));Sayfa1!A1;"")

 

[kaos95]

teşekkürler ilginizden dolayı

 

[ÖmerBey]

Merhaba,
Alternatif olsun...

Sub Kod()
Dim S1 As Worksheet: Set S1 = Sheets("Sayfa1")
Dim S2 As Worksheet: Set S2 = Sheets("Sayfa2")
Dim a As Long, b As Long
For a = 1 To S1.Range("A65500").End(3).Row
    If IsNumeric(Left(S1.Cells(a, "A"), 1)) Then
        b = b + 1
        S2.Cells(b, "A") = S1.Cells(a, "A")
    End If
Next
MsgBox "İşlem tamam."
End Sub

 

[kaos95]

harika ya sağolun

 

[kaos95]

Merhaba,
Alternatif olsun...

Sub Kod()
Dim S1 As Worksheet: Set S1 = Sheets("Sayfa1")
Dim S2 As Worksheet: Set S2 = Sheets("Sayfa2")
Dim a As Long, b As Long
For a = 1 To S1.Range("A65500").End(3).Row
    If IsNumeric(Left(S1.Cells(a, "A"), 1)) Then
        b = b + 1
        S2.Cells(b, "A") = S1.Cells(a, "A")
    End If
Next
MsgBox "İşlem tamam."
End Sub

taşımaya A2 den başlaması için nasıl yapabiliriz

 

[ÖmerBey]

A2'den kastınız Sayfa1 A2 ise kırmızı değişikliği Sayfa2 A2 ise mavi değişikliği yapınız.

Sub Kod()
Dim S1 As Worksheet: Set S1 = Sheets("Sayfa1")
Dim S2 As Worksheet: Set S2 = Sheets("Sayfa2")
Dim a As Long, b As Long
[COLOR="Blue"]b = 1[/COLOR]
For a =[COLOR="red"] 2 [/COLOR]To S1.Range("A65500").End(3).Row
    If IsNumeric(Left(S1.Cells(a, "A"), 1)) Then
        b = b + 1
        S2.Cells(b, "A") = S1.Cells(a, "A")
    End If
Next
MsgBox "İşlem tamam."
End Sub

 

[kaos95]

teşekkürler kardeşim