Veri kopyalama

[omurcan35]

A kolonundan tc ve vergi noları listelenmektedir

A kolonundaki 11 hane olan TC numaralarını B kolonuna
A kolonundaki 10 hane olan Vergi numaralarını C kolonuna

Nasıl kopyalatabilirim

 

[ÖmerFaruk]

1. A1 hücresinde hem 11 hane TC ve yanında 10 hane VergiNo mu var?
2. A1 de 11 hane TC ve A2 de 10 hane VN mi var?
3. Bir numarada olduğu gibi TC ve VN aynı hücrede ise, aralarında boşluk ya da simge var mı?
4. Üç nolu soruya benzer olarak aynı hücrede önce TC sonra VN mi, yoksa nönce VN sonra TC mi?
5. A kolonundaki herhangi bir hücrede sadece TC ve VN ler mi var yoksa başka metinsel ifadeler de var mı?

Sizin sorunuzdan daha fazla soru oldu.

 

[omurcan35]

1. A1 hücresinde hem 11 hane TC ve yanında 10 hane VergiNo mu var?
2. A1 de 11 hane TC ve A2 de 10 hane VN mi var?
3. Bir numarada olduğu gibi TC ve VN aynı hücrede ise, aralarında boşluk ya da simge var mı?
4. Üç nolu soruya benzer olarak aynı hücrede önce TC sonra VN mi, yoksa nönce VN sonra TC mi?
5. A kolonundaki herhangi bir hücrede sadece TC ve VN ler mi var yoksa başka metinsel ifadeler de var mı?

Sizin sorunuzdan daha fazla soru oldu.

A1 hücresinde hem 11 hane TC hemde 10 hane VergiNo var. karışık yani
12345678901
1234567890
46546546545
6660561533 şeklinde

11 haneleri B ye
10 haneleri C ye

aktaracak

 

[ÖmerFaruk]

B1 e
=Eğer(Uzunluk(A1)=11;A1;"")

C1 e
=Eğer(Uzunluk(A1)=10;A1;"")

 

[omurcan35]

B1 e
=Eğer(Uzunluk(A1)=11;A1;"")

C1 e
=Eğer(Uzunluk(A1)=10;A1;"")

Teşekkür ederim

 

[ÖmerFaruk]

Rica ederim. Kolay gelsin.

 

[omurcan35]

Rica ederim. Kolay gelsin.

Bunun makrosunu rica edebilme şansım varmı acaba

örnek olarak
A kolonunda A1:A100 aralığını seçtiğimi varsayalım

makroyu çalıştırdığımda

Seçim yapılan aralıktaki 11 haneleri B kolonuna
Seçim yapılan aralıktaki 10 haneleri C kolonuna aktaracak

 

[ÖmerFaruk]

Deneyiniz.
Mouse ile seçtiğiniz tek sütunlu bir aralıkta çalışır.

Sub Kopyala()
    If Selection.Columns.Count <> 1 Then Exit Sub
    For i = Selection.Row To Selection.Rows.Count + Selection.Row - 1
        Select Case Len(Cells(i, Selection.Column))
            Case 11
            Cells(i, Selection.Column + 1) = Cells(i, Selection.Column)
            Case 10
            Cells(i, Selection.Column + 2) = Cells(i, Selection.Column)
            Case Else
            Cells(i, Selection.Column + 1) = ""
            Cells(i, Selection.Column + 2) = ""
        End Select
    Next i
End Sub