adres duzenleme

[Barons]

merhaba
ekteki dosyada kopyala yapıştırla yapılmış bir adres verileri var.Bu verileri okla işaret edildiği gibi yapmam mümkünmüdür?

El ile yapılması baya süre alıyor ve bunun gibi yüzlerce sayfa var.makro ile yapılabilirse işim çok kolaylaşacak.

Çok teşekkürler

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub adresler()
For i = 2 To Cells(Rows.Count, "A").End(3).Row

If Cells(i, "A") <> "" Then
yeni = Cells(Rows.Count, "H").End(3).Row + 1
Cells(yeni, "H") = Cells(i, "C")
Cells(yeni, "I") = Cells(i, "E")
Cells(yeni, "H") = Cells(i, "C")
    For j = i To Cells(i, "A").End(xlDown).Row - 1
        If Left(Cells(j, "C"), 10) = "Telephone:" Then
            Cells(yeni, "J") = Mid(Cells(j, "C"), 11, Len(Cells(j, "C")) - 10)
        End If
    Next
    For k = i To Cells(i, "A").End(xlDown).Row - 1
        If Left(Cells(k, "C"), 4) = "Fax:" Then
            Cells(yeni, "K") = Mid(Cells(k, "C"), 5, Len(Cells(k, "C")) - 4)
        End If
    Next
Cells(yeni, "L") = Cells(Cells(i, "A").End(xlDown).Row - 1, "C")
End If
Next
End Sub

 

[Ömer BARAN]

Merhaba.
Formül ile çözüm isterseniz (aşağıdaki formülleri ilgili hücreye uygulayıp aşağı doğru kopyalayınız);
-- H3 hücresine;

=İNDİS($A$1:$E$448;KAÇINCI(SATIR()-2;$A$1:$A$448;0);3)

-- I3 hücresine;

=EĞER(İNDİS($A$1:$E$448;KAÇINCI(SATIR()-2;$A$1:$A$448;0);5)=0;"";İNDİS($A$1:$E$448;KAÇINCI(SATIR()-2;$A$1:$A$448;0);5))

--J3 hücresine;

=EĞER(EHATALIYSA(KAÇINCI(J$2&"*";DOLAYLI("C"&KAÇINCI(SATIR()-2;$A$1:$A$448;0)&":C"&KAÇINCI(SATIR()-1;$A$1:$A$448;0)-1);0)+KAÇINCI(SATIR()-2;$A$1:$A$448;0)-1);"";PARÇAAL(DOLAYLI("C"&KAÇINCI(J$2&"*";DOLAYLI("C"&KAÇINCI(SATIR()-2;$A$1:$A$448;0)&":C"&KAÇINCI(SATIR()-1;$A$1:$A$448;0)-1);0)+KAÇINCI(SATIR()-2;$A$1:$A$448;0)-1);BUL(":";DOLAYLI("C"&KAÇINCI(J$2&"*";DOLAYLI("C"&KAÇINCI(SATIR()-2;$A$1:$A$448;0)&":C"&KAÇINCI(SATIR()-1;$A$1:$A$448;0)-1);0)+KAÇINCI(SATIR()-2;$A$1:$A$448;0)-1);1)+2;20))

--K3 hücresine;

=EĞER(EHATALIYSA(KAÇINCI(K$2&"*";DOLAYLI("C"&KAÇINCI(SATIR()-2;$A$1:$A$448;0)&":C"&KAÇINCI(SATIR()-1;$A$1:$A$448;0)-1);0)+KAÇINCI(SATIR()-2;$A$1:$A$448;0)-1);"";PARÇAAL(DOLAYLI("C"&KAÇINCI(K$2&"*";DOLAYLI("C"&KAÇINCI(SATIR()-2;$A$1:$A$448;0)&":C"&KAÇINCI(SATIR()-1;$A$1:$A$448;0)-1);0)+KAÇINCI(SATIR()-2;$A$1:$A$448;0)-1);BUL(":";DOLAYLI("C"&KAÇINCI(K$2&"*";DOLAYLI("C"&KAÇINCI(SATIR()-2;$A$1:$A$448;0)&":C"&KAÇINCI(SATIR()-1;$A$1:$A$448;0)-1);0)+KAÇINCI(SATIR()-2;$A$1:$A$448;0)-1);1)+2;20))

--L3 hücresine;

=İNDİS($A$1:$E$448;KAÇINCI(SATIR()-1;$A$1:$A$448;0)-1;3)

 

[Barons]

Yusuf44 ve Ömer Hocam çok teşekkürler..çok makbule geçti..makro kodu kullanmayı tercih ediyorum.İlgileriniz için her iki Üstada saygılar ve sevgiler

 

[Barons]

Yusuf bey, ilk örnekte bazı bilgileri seçmiştim ..tamamını sağ tarafa atacak şekilde makroyu genişletmek mümkünmüdür. ilk bloktakini örneklendirdim.
teşekkürler

 

[Barons]

tamamını kapsayacak şekilde olamazmı?

 

[YUSUF44]

Ben yapamam maalesef, fazla karışık, çok değişken var.

 

[Barons]

teşekkürler

 

[Barons]

Ustadlar yardım...