301 878 520 yazıları kopyalayınca birleştirme??

[savci]

Arkadaşlar pdf üzerinden şöyle bazı kodları (301 878 520) excele kopyalıyorum.fakat benim istediğim daha doğrusu mümkünmü bilmiyorum ama kopyalayınca kendi kendine sayıları birleştirebilirmi
örneğin 301 878 520 sayı bu iken hücreye kopyaladığımda 301878520 olsun

 

[zafer]

Merhaba

Hep aynı dosyaya pdf çıktısını kopyaladığınızı düşünerek
Aşağıdaki kodları kod sayfasına kopyalayınız.
düzenleme yapılacak sayfada makrolardan bosluk makrosunu çalıştırınız.

Sub bosluk()
For Each hucre In Range("a1").CurrentRegion
adr = hucre.Address
Range(adr) = Replace(hucre.Text, Chr(32), "") 'ortadaki boşlukları kaldırır
Range(adr) = Replace(hucre.Text, Chr(160), "") 'sondaki boşlukları kaldırır
Next
End Sub

veya

Değiştirilecek alanı seçin
Crtl+H tuşuna basın Aranan değere alt ile birlikte 032 tuşlarına beraber basın ve yeni değeri boş bırakın tümünü değiştir deyin.

 

[savci]

Merhaba

Hep aynı dosyaya pdf çıktısını kopyaladığınızı düşünerek
Aşağıdaki kodları kod sayfasına kopyalayınız.
düzenleme yapılacak sayfada makrolardan bosluk makrosunu çalıştırınız.

Sub bosluk()
For Each hucre In Range("a1").CurrentRegion
adr = hucre.Address
Range(adr) = Replace(hucre.Text, Chr(32), "") 'ortadaki boşlukları kaldırır
Range(adr) = Replace(hucre.Text, Chr(160), "") 'sondaki boşlukları kaldırır
Next
End Sub

zafer bey ilginiz için teşekkürler fakat exceli çok iyi bilmediğimden ne demek istediğiniz anlamadım fakat çalışma yaptığım dosyayı ekte sunuyorum.

 

[zafer]

Merhaba

Sayfadaki açıklamalar yetersiz kalıyor.

"Ayrıca şöyle bir şey mümkünmü? Yanındaki ekle yazısına tıklayarak başka bir sayfada fiyat ve açıklamalrını ekleyebilirmi alt alta?"

Sayıları birleştirme tamam

Bana yeni sayfaya aktarılacak bilgilerin tam olarak neler olduğunu açıklarmısınız.(sütün veya satır )

 

[catalinastrap]

Kodu yapıştır sonra örnek(301301 878 520) sonra yapıştırdığın sütunu tara
Klavyeden "ctrl+H" yap sonra açılan pencerenin ilk boşluğuna "space" bas yani sadece boşluk
alttaki kısma dokunma ve hepsine uygula de

işlem tamam

 

[savci]

Merhaba

Sayfadaki açıklamalar yetersiz kalıyor.

"Ayrıca şöyle bir şey mümkünmü? Yanındaki ekle yazısına tıklayarak başka bir sayfada fiyat ve açıklamalrını ekleyebilirmi alt alta?"

Sayıları birleştirme tamam

Bana yeni sayfaya aktarılacak bilgilerin tam olarak neler olduğunu açıklarmısınız.(sütün veya satır )

zafer bey,ekte gerekli açıklamaları yazdım ilginiz için tekrar çok teşekkürler

Ayrıca sayın catalinastrap malesef kodlar toplu halde değil ayrı ayrı yazıldığından dediğiniz yöntem malesef işimi görmüyor yine teşekkürler

 

[zafer]

Merhaba


Siz bulunmasını istenen ürünün no'sunu F5 hücresine aralıklı olarak ( 350 000 111) gibi girin

sonra EKLE butonuna basın.

Sayfa isimlerini değiştirirseniz kodlar hata verir

Sayfa isimlerinin kodlardada değiştirilmesi için
Alt ve f11 tuşlarına basarak kod sayfasına geçin aşağıdaki satırlardaki sayfa isimlerini değiştirin.

Set S1 = Sheets("[B][COLOR=red]01032012 gerlach teknik listesi[/COLOR][/B]")
Set s2 = Sheets("[COLOR=red][B]Sayfa2[/B][/COLOR]")

 

[savci]

Merhaba


Siz bulunmasını istenen ürünün no'sunu F5 hücresine aralıklı olarak ( 350 000 111) gibi girin

sonra EKLE butonuna basın.

Sayfa isimlerini değiştirirseniz kodlar hata verir

Sayfa isimlerinin kodlardada değiştirilmesi için
Alt ve f11 tuşlarına basarak kod sayfasına geçin aşağıdaki satırlardaki sayfa isimlerini değiştirin.

Set S1 = Sheets("[B][COLOR=red]01032012 gerlach teknik listesi[/COLOR][/B]")
Set s2 = Sheets("[COLOR=red][B]Sayfa2[/B][/COLOR]")

zafer bey yardımlarınız için teşekkür ederim.Hakkınızı helal edin.çok çok çok teşekkürler

 

[zafer]

Merhaba

zafer bey yardımlarınız için teşekkür ederim.Hakkınızı helal edin.çok çok çok teşekkürler

Rica ederim. İyi çalışmalar