çoklu metin yapıştırma...

[ayikido]

arkadaslar merhaba benım soyle bır sorum olucaktı asagıda bazı urun rakamları ve her bırısınden gunluk uretım mıktarlarını gosteren bır tablo bulunmaktadır. ben bunları ısleme sokarken urunlerın hepsını bır sutuna adetlerı kadar yapıstırıp daha sonra bunları zorluk derecelerıne gore karıstırarak uretım ortamına gondermekteyım. aşağıda urun noları ve mıktarları vardır. benım sızlere soracagım bu adetlerı ornegın "535146" urununu 8 defa aynı sutuna yapıstırmam lazım ve bu lıstenın daha da uzun olacagını dusunursenız ıslemın ne kadar uzun ve hataya acık oldugunu goırecegınızı dusunuyorum sıze sormak ıstedıgım. bu urun numaralarını aynı sutuna adetler kadar otomatık yapıstırılmalarını nasıl yapabilirim. sanırım makro yapıcam ama pek bılgım yok o konuda da arkadaslara sordum dongu vs. oyle bırsey yapcıaksınm dedıler de sanırım bayağı kaynak bakmam gerekecek. ızahı yeterlı değilse detaylı bır excell dosyasıda yukleyebılırım saygılar....


533884 2
534170 3
535058 1
535146 8
535178 1
535242 4

 

[uzmanamele]

merhaba
örnek dosya eklerseniz daha çabuk yanıt alırsınız

 

[ayikido]

örnek doSYAYI EKLIYORUM

Esasen Istedigim Ilk Kismi Yapabİlmek Yani Urun Adedi Kadar Tek Seferde Takimlari Yapistirmak Onlari Karistirmayi Daha Sonra Yapabiliriz Diye Dusunuyorum...

 

[ayikido]

beyler kımse bakamadı sanırım son durum nedır? nasıl bır cozum yolu bulabılırız bunun ucun?

 

[ayikido]

noldu?

evet gençler bu örneği ekleyeli 1 yıl oldu nerdeyse! problemim karşısında biçare mi kaldınız çerez niyetini yersiniz diye düşünmüştüm halbuki

 

[uzmanamele]

merhaba
abicim zahmet olmazsa örnek dosyanızı tekrar ekler misiniz acaba.

 

[ayikido]

dosyanın linki aşağıdadır;

http://rapidshare.com/files/165636936/oeRNEK_DOSYA.xls.html

örnek dosyaya bile gerek yok aslında ürünleri üretim sayısı kadar cogaltarak liste halinde acmak

 

[Korhan Ayhan]

Selamlar,

Eklediğiniz örnek dosyaya göre aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ÇOKLU_YAPIŞTIR()
    Dim X As Long, SATIR As Long
    [H2:J65536].ClearContents
    For X = 2 To [C65536].End(3).Row - 1
    SATIR = [H65536].End(3).Row + 1
    Cells(SATIR, "H").Resize(Cells(X, "D"), 1) = Cells(X, "C")
    Cells(SATIR, "I").Resize(Cells(X, "D"), 1) = Cells(X, "E")
    Cells(SATIR, "J").Resize(Cells(X, "D"), 1) = 1
    Next
    [I65536].End(3).Offset(1) = "TOPLAM"
    [J65536].End(3).Offset(1) = "=SUM(J2:J" & [J65536].End(3).Row & ")"
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[uzmanamele]

merhaba
Korhan bey üşenmemiş rapidden dosyayı indirmiş ve cevaplamış.
ben 2009/2. dönemde ancak çözüm gelir sanıyordum.
gençliğin verdiği dinamizm olsa gerek. abimiz artık bir teşekkürü çok görmez.

 

[ayikido]

sağol...

cok sağol bir bu kotu bir buton ekleyip onun içine ekleyeceğiz sanırım yanlıs mı dusunuyorum...

bunu sayfa ıle butunlstırıp ekleyemez mısın? yuz verınce daha fazlasını ıstemek oluyorb enımkı ama yaparsan sevınırım...

 

[zafer]

Merhaba

Evet, düşünceniz doğru

 

[Korhan Ayhan]

Selamlar,

#8 nolu başlığa örnek dosya eklenmiştir. İncelermisiniz.

 

[ayikido]

çok sağol tek kelime ile harikasın !

Selamlar,

#8 nolu başlığa örnek dosya eklenmiştir. İncelermisiniz.

hoca çok çok sağol tek kelime ile harikasın ! wallahi çok işime yarayacak!

şimdi bir kaç şey daha sorcam excel'im klasik mana da iyidir. Yani kod yazma hariç çoğu fonsiyonundan yararlanır basit ama etkili excel tabloları ile işimi çoğu zaman halledebiliyorum. ama böyle ufak tefek lakin standart işlerin dışana çıkmak gerektiğin de tıkanıp kalıyorum. bu yüzden artık basic'e de el atmayı düşünüyorum bu amaçla görsel eğitimin basic cd'si var. onun haricinde biraz piyasayı araştırdım nihatv demirli ve yüksel inan'ın buna bwenzeyen yani excelle basic'i bu şekilde harmanlayabilmeyi anlatan bir kitap var ama daha almadım. bunun gibi önereceğiniz veya benım yazdıklarımdan daha etkili oldugunu düşündüğünüz kaynaklar vs. var mıdır? mesela m. temel korkmaz diye birinin kitabını gördüm ama fiyatı pahalı birazcık...

bu tip uygulamaları geliştirmede kullanabileceğimiz kaynak tavsiyelerinizi bekliyorum...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkteki satılan kitapları edinerek başlangıç yapabilirsiniz. Takıldığınız yerlerde foruma sorularınızı sorarak yanıt arayabilirsiniz.

http://www.excel.web.tr/f151/