Ekşi Duyuru

bir lokasyondaki excelleri okuyup bunları tek sayfaya yazacağpın bir VBA kodu yazman gerekir

merhaba böyle bir kodu bir forumda buldum. ama nasıl çalıştırabileceğimi bilmiyorum. nasıl çalıştırabilirim?

boş bir excel açıkken alt ile birlikte F11 tuşuna basarsan bir ekran açılır soltaraftaki alandan sayfa1'e çift tıklarsan kodu yapıştıracağın alan açılacak

şöyle bir kod buldum. ama bende çalışmadı. dosyayı oluşturuyor ama oluşan dosya boş.

Option Explicit

Sub DOSYALARDAN_VERİ_AL()
Dim K1 As Workbook, K2 As Workbook
Dim K3 As Workbook, S1 As Worksheet
Dim X As Integer, Satır As Integer, Son_Satır As Long
Dim Klasör As Object, Kaynak_Klasör As String, Dosya As String

Set Klasör = CreateObject("Shell.Application").BrowseForFolder(0, "Kaynak dosyaları içeren klasörü seçin", 50, &H0)

If Klasör = "Masaüstü" Or Klasör = "Desktop" Then
Kaynak_Klasör = Environ("UserProfile") & "\Desktop\"
ElseIf Not Klasör Is Nothing Then
Kaynak_Klasör = Klasör.Items.Item.Path
Else
MsgBox "İşleme devam edbilmek için klasör seçimi yapmalısınız !" & Chr(10) & _
"İşleminiz iptal edilmiştir.", vbCritical
Exit Sub
End If

On Error Resume Next

Set K1 = ThisWorkbook
Set K2 = Workbooks.Add(1)
Dosya = Dir(Kaynak_Klasör & "\*.xls")
Satır = 2

Application.ScreenUpdating = False

Do
If Dosya <> "" And Dosya <> K1.Name And InStr(1, Dosya, "Dosya") = 0 Then
DoEvents
Application.DisplayAlerts = False
Set K3 = Workbooks.Open(Kaynak_Klasör & "\" & Dosya, False, False)
Application.DisplayAlerts = True
Set S1 = K3.Sheets(1)

Son_Satır = S1.Cells(Rows.Count, 1).End(3).Row
S1.Range("A2:AA" & Son_Satır).Copy _
K2.Sheets("Sayfa1").Range("A" & Satır)
Satır = K2.Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row + 2

K3.Close True
Dosya = Dir
Else
Dosya = Dir
End If
Loop While Dosya <> ""

K2.Sheets("Sayfa1").Cells.EntireColumn.AutoFit
K2.SaveAs (Kaynak_Klasör & "\Dosya_" & Format(Now, "dd_mm_yyyy_hh_mm_ss"))
K2.Close True

Set K1 = Nothing
Set K2 = Nothing
Set K3 = Nothing

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

vallaha çalıştırdım. bendeki dosyaların uzantısı .csv olduğundan koddaki .xls uzantısını .csv ile değiştirdim ve çalıştı.

ben de çalıştı,
excellerin olduğu yere Dosya_23_06_2016_16_42_15 isimli bir dosya oluşturdu.
işleminiz tamamlnlıştır diye mesaj çıktı mı

evet çalıştı bende de. ancak her birleştirme sonunda bir satır boşluk var. sebebini anlayacak kadar kod bilgim yok maalesef.

(bkz: #20072594)


yazana dikkat.

ahah teşekkürler. ben de şimdi google'a yağmur şömine müzik yazınca çıktı bu kadar kolay olmasını beklemiyordum :/

www.noisli.com

youtube.a fireplace, stormy, rainy, thunderstorm, ocean, wave sound yazarsan çıkar hepsini birden yazma dinlemek istediğin hangisi ya da hangileriyse onları yaz, relax fln da ekleyebilirsin sonuna

Frozen genelde suyla yapılır, smoothie sütle.

diyojen'in sözü olması lazım. diyojen de bu günkü karadeniz bölgesinde yaşamıştı sanırım. onun yaşadığı yıllarda oralarda kimler varsa onların dilindedir muhtemelen.

bu sözün orjinal metni lazım bana

Yes, stand a little out of my sunshine.

ingilizcesi boyle olmasi lazim. sinoplu diyojen. o zamanlarda da yunanca olsa gerek.

tamamen yuzeysel ve bilgisel coplukte yaptigim arastirmaya gore:

"Αποσκότισόν με" olabilir ama olmayabilir de. olmama ihtimali daha yuksek.

""Stand a little less between me and the sun."" ingilizce çevirisi böyle.
o zaman yunancası lazım bana abi.
yetişin komşular.

o yazdığın aleksander demek bence abi ahsdfhdfhdfh

olabilir. 2 dk goz ucuyla yunanca sayfanin birisinden cektigim kisim buydu.

ayrica ceviri olarak seninki degil benimki geciyor wiki sayfasinda. simdi tekrardan baktim. ya bizimkisi biraz daha rahat bir ceviri olmus ya da ingilizceye cok boktan cevrilmis.

e olayı nakledenlere göre birkaç farklı çevirisi var tabii. stand out of my sun, stand out my light, ya da sunlight diye de gidiyor. neyse ben plutarkhos'un aktardığı versiyonun orijinali buldum.

stand a little out of my sun çevirisi tercih edilmiş.
orijinali ise; ἀπὸ τοῦ ἡλίου μετάστηθι veya romanizasyonuyla "apò toû hēlíou metástēthi".

en.wikipedia.org

aha kendim buldum (bkz: inland empire)

bu da burda dursun madem ibreti alem olarak.

@killerbee usb oldugunu tahmin ediyorum. kesin bir bilgim yok.

şu program işe yarayabilir; www.easeus.com

serial; www.youtube.com

www.haberturk.com

mikrodalga

mikrodalga.

minifırın

aynı tipte bir evde yaşıyorum, mikrodalga fırınım yok. ara sıra olsaydı da şunu ocakta ısıtmak yerine iki çevirseydim ısınsaydı dediğim zamanlar da oluyor ama fırını mikrodalgaya ihtiyaç duyduğumdan daha çok kullanıyorum. ha ama sen ekmek pişirmeyip kek yapmayacaksan o zaman pek anlamı olmaz tabii.

mini fırın tabii ki. Mikrodalga sadece ısıtmaya ve birkaç dandik aperatif hazırlamaya yarıyor. Tavuk, et, balık, patates vs. bir sürü şeyi hiçbir hazırlık yapmadan fırına atar yemek yaparsın. Ocakta yemek hazırlamaktan çok daha kolay.

mikrodalga güzel bir teknoloji ama kullanım alanları çok dar.

Minifırın. Pratik yemek ve abur cubur yapım makinası.

kesinlikle minifırın,
bende mikrodalga da var kullanmıyorum bile, genelde yaptığım yemek bitiyo zaten he kalırsada ertesi günde hemen bi tavada ısıtıveriyorum, mikrodalganın varlığını bile unutuyorum evde.

minifırın.

mikrodalga almak yerine paranı sokağa at inan daha çok işe yarar. fırın yemeği kadar kolay birşey yoktur, herşeyi yapabilirsin, ısıtırsın vs. ama mikrodalgada anca çözdürürsün birazdaha iyiyse dandik bir ızgarası olur o da pek verimli olmaz mikrodalganın tehlikeli bir pişirme yöntemi olması da cabası.. mini fırın alın en iyisi.

hem ızgara, hem mikrodalga, hem de bildiğimiz fırın olarak çalışan fırınlara bakabilirsin. pek büyük de değiller.

Cekce. Ne dedigini bilmiyorum.

It's in Czech.
Teacher: I also had a typewriter. There are pillows, but moths eat them.
Student: Yeah, this one is my first.
T: You have to type often, it scares the moths off.
T: I say a sentence and make a pause so you can write it down.
S: That would be great!
S: I repeat this subject because I'm not fast enough to write everything down.

www.youtube.com

Burdaki yorumlardan birinde boyle cevrilmis bir Slovak tarafindan.

dediklerini karşılayan şey: iş'te üniversiteli (iş bankası)

işte üniversiteli +1

ben öğrenci kartlarından "kart ücreti" alınmıyor diye biliyordum?

Her ay 2-3 kez soruluyor bu.

eksiduyu.ru

www.eksiduyuru.com

işte üniversiteli var bende. kart ücreti yok. iş bankasının online şubesi baya iyi. ama bir bankanın web sayfasından iddia oynanır mı bilmem.

play de var. bir boka yaradığı yok. 15 lira kart ücreti alındı bu sene. yapıkredinin online şubesi de çok tırt. işte üniversiteliyi tavsiye ederim.

iş'te üniversiteli yıllık 20 tl kart ücreti alıyor. ama güzeldir.

Mikail bey çok haklısınız konuyu açmadan önce bakmayı düşündüm ama sorular çok eskidir, güncel cevaplar bulunsun diye biraz aceleci davrandım.

Burada açmadan önce google'dan da biraz araştırdım. Donanım haber'de anket yapmışlardı orada da iş'te maximum demiş çoğunluk. Ama donanımhaber işte. Bir kere güvendim ağzım yandı. Şimdi yoğurdu üfleyerek yiyorum. :)

Ayrıca Mikail bey bir duyuru yapmış arama kaldırılsın diye. Buradan da cevap vereyim.
Saçmalamayın efendim.
O bahsettiğini laptop soruları kart soruları cevabı zamana göre değişebilen sorular olduğu için sürekli sorulur. Normaldir.
Dün 2000 lira olan laptop bugün 1500e düşmüştür adamın haberi yoktur ama buradan birisi biliyordur ve önerir.
Kredi kartları için de geçerli durum. Ayrıca benim sorumda ekstra başka sorular da bulunuyor fark ettiyseniz.
Yani efendim gaza gelmeyin. Müsterih olun.

kimse kimseden kredi kartı ücreti alamaz alırsa uğraşırsınız cezasını öder

iş bankası bu ocak ayında kart aidatı çıkarana kadar çogüzeldi fakat 20 tlyi görünce koşarak uzaklaştım.

dardanel'in öyle çeşitli sandviçleri var galiba. migros'ta satılıyor.

aynen dardanel'in öyle ekmeği sadece içten oluşan sandviçleri var. benzin istasyonlarında vapurlarda filan gördüm.

evde kendim yapmak istesem bulamaz mıyım o eppeklerden?

Normal sandviç ekmeğinin etrafını kesebilirsiniz?

normal sandviç ekmeği de bulamıyorum ki. uno'nun tost eppekleri falan var. onlar tost makinesine girmeden yenmiyor. hot dog eppekleri zaten işimi görmez.

real marketlerde de var ama fiyatları biraz tuzlu, 3.5 4tl civarıydı sanırım.

hangi firma bu?

Uno nun var kulup sandvic ekmekleri

sağlık ve pahalı şeyler riske atılmaz. bir teknik servis çağırıp baktırmanı şiddetle öneririm. belki çok ciddi bir sorunu da olabilir, önemsiz birşey olabileceği gibi.

Bir sorun olduğu aşikâr bir servis çağırmakta fayda var, kiracıysan ev sahibiyle iletişime geç.

bizim kombi uzun zamandır kullanılmamıştı ben taşınana kadar. sonra kombici falan çağırıp baktırdık, bakım falan yaptırdık. ilk kullanımda aynı sesler gelmişti ama sonra bir daha olmadı. sen yine de bi baktır, sorun o olmasa bile bakımını falan yaptır.

evet asus veya acer'in i5/i7 işlemcili laptopları da var bu fiyata.
ama onları bi kenara bırakıp sadece bu laptop için konuşursak; yukarıda saydığım işlemleri bu makineyle rahatça yapmak mümkün müdür?

adobe after effects ve illustratorı rahat çalıştırır tabi dediğiniz ölçülerde de bi sıkıntı olmaz, ama photoshopta o boyda bir afiş sıkıntı olabilir her zaman.(piksel vs vektörel)
aynı paraya daha düşük hdd kapasitesi olan ama işlemcisi daha iyi olan bir bilgisayar bulabilirsiniz kolayca.
www.cpubenchmark.net bu siteden ekran kartlarını ve işlemcileri karşılaştırabilrsiniz.

@k4lem peki işlemcide bir sıkıntı var mı? yani i3 bana biraz düşük gibi geldi. i5 veya i7 işlemcilere mi bakmalıyız?

evet, daha iyi işlemciler daha iyi olur mesela i5 2430m'ler bu ara popüler, i3 2350m'e göre daha iyi bir işlemci.daha iyisini istiyorsanız i7lere bakın.

@want2die dell hiç bakmadım. ama bakacağım tavsiyenden sonra:)
neden acer'i salla dedin?

www.pcdepo.com

ben geçen ay aldım bundan, çok memnunum. hem de verdiğin linkten daha ucuz.

@barki verdiğin linkteki laptopun yorumlarında tüm adobe programlarını açıp (yaklaşık 20 civarı) tasarım yaptığını ve hiç kasma yaşamadığını söyleyen bir arkadaş var :) ne kadar gerçekçi acaba?
bir de bu freedos'muş. ubuntu mu kursak hehe.

@dierache şu an o laptoptan yazıyorum ve baya hızlı alet. adobe ürünleriyle alakam olmamasına rağmen şu ana kadar gta iv, crysis 2, metro 2033 dahil son dönemde çıkmış tüm oyunları kasmadan yeterli ayarda oynayabiliyorum.

dip not: aldığım gibi windows 7 ultimate 64 bit kurdum, yanında kalan driver cd sinden bütün driverlarını yüklüyor zaten.

illustrator, coreldraw gibi bir programla pdf i açıp düzenleyebilirsin.

screen shot alıp jpegleyin. photoshopa atın. oraya yapıştırıp tekrar pdf olarak kaydedin. tabi link, kutucuk, düzenlenebilir kısım yoksa

@kocayusuf, eğer dediğin gibi yaparsa çözünürlük değerini kaybedebilir. büyük boy bir işi print screen alarak düzenleyemezsin. eğer pdf formatındaysa baskı kalitesine uygundur diye tahmin ediyorum, o bozulur.

evet ss işe yaramıyor malesef onu denedim. ps ile direk açmaya çalışınca oluyor mu diye hiç denemedim aslında. şu an deniyorum. oluyor galiba.

pdf dosyasını photoshop içine sürükleyip bırakınca açıyor direk. logoyu yerleştirip png formatında kaydettim. sorun halledildi :)

Resmi rakam yok derken :)? Sanırım internet tarihinin en kısa sürede en çok üye toplama olayını g+ yaptı. Öyle bir anda g+ geldi hadi bırakalım biz facebook'u g+'a geçiyoruz diye bir şey mi bekliyordun? Bunlar zamanla olacak şeyler, G+ gelişmekte olan ve facebook'u çok fazla korkutmakta bir mecra. Circle ile yaptığı yenilikleri, görüntülü konuşmaları vs hepsini facebook kopyalamaya çalışıyor.

G+ şunu yaptı;
Facebook'un 2-3 hamle sonrasını şimdiden oynadı ve facebook'u altyapı ile vurmaya çalıştı. Uzun vadede tuttu veya tutmadı diye yorum yapabilecez. G+'ın fan sayfaları bile daha yeni aktif edildi.

Bekleyip görecez.

yayınlasa bile ne kadar güvenilir olur bilmiyorum. çünkü tamamen sürü psikolojisine bağlı bu, arkadaşların neredeyse oraya kayıyorsun istemeden (ki google+ facebook'un vaadettiği her şeye sahip olduğu için bir insanın ona geçmesi çok zor değil arkadaşları oradaysa).

bu nedenle facebook kullanımında bir düşüş var ise bile facebook bunu açıklamak istemeyecektir psikolojik bir etki yaratmamak için insanlarda. çünkü etrafta "facebook kullanıcıları azalmış herkes google+'a geçiyor" gibi bir söylenti dolaşırsa facebook'un çok büyük zararı olabilir bunun sonucu olarak.

onun dışında eminim buraya bir sürü insan "yok yaa olmadı o kimse kullanmaz niye kullansın ki çok saçma bir şey" yazacak. insan ister istemez kendi çevresi neyi kullanıyor ona göre yorum yapıyor bu konuda. söylemek isteyeceğim şudur ki sizin çevreniz facebook kullanıyor olsa bile çevresi google+ kullanan çok insan var. google+'a geçtiğinden beri facebook hesabına ancak ayda bir bakan da çok insan tanıyorum ben (hepsi yurtdışında olmak üzere). yani "benim çevremde kimse kullanmıyorsa kimse kullamıyordur" demek olabildiğince çürük bir argüman.

onun dışında şu anda başka bir indikatör yok sanırım elimizde, varolsa bile dediğim gibi spekülatif olmadığını kimse söyleyemez. onun için beklemekten başka bir şey yok ne olduğunu ve olacağını görmek için.

@alkolik imam, üye toplama olayını kesinlikle bir kriter olarak ele alamayız. google buzz için de öyle olmuştu, google wawe için de.
arkasında google olan bir projenin üye toplama olayındaki başarısı su götürmez bir gerçek olacaktır zaten.
görüntülü konşma olayını fbook kopyalamaktan çok, g+ yüzünden daha erken ileriye sürdü. ve gerçekten hızlı bir cevaptı. böylece yerini daha da sağlamlaştırdı.
fbook'un korktuğunu sanmıyorum, insanlar g+'a akın edecektir, üye olacaktır ama yine vakitlerinin büyük kısmını fbook ile geçirecektir bence.

Facebook bugünkü haline gelebilmesi için 5 sene gerekti.Bu nedenle google+ uzun vadeli bir proje.Ayrıca google bütün yenilikleri bir anda verip bütün kullanıcıların hevesini alıp gitmesini önlemek amacıyla sürekli geliştiriyor ve tüm hizmetleriyle kullanabiliyor.Facebooku geçemeyebilir ama büyük bir rakibi olur.