Excel - Bir Tablodaki Verileri Yeni Bir Dokümana Aktarmak

[axedice]

Macrodur vbadır biraz uzağım excele, o yüzden şöyle bişey yapmak mümkün müdür onu sorucam önce.

Diyelim aylık olarak tuttuğumuz bi tablo var, her gün bunun seçtiğimiz satırındaki "bazı" bilgileri yeni bir excel dosyasına atmak istiyorum. Bazı bilgiler derken, bunların hangi sütünda oldukları belli. Mesela şöyle bişey

	Gün       Armut         Elma        Üzüm

	1           10           5            4

	2            9           7            5

	3           11           6            12

	

Her gün armut ve üzümlerin değerini, daha önceden hazırladığım bir excel şablonuna yeni dosya açarak kaydetmek istiyorum. Bu üstteki tablonun olduğu excel dosyasında bi düğme olacak, ben atıyorum 3. satırı seçip düğmeye basınca, tablodaki armut ve üzüm e karşılık gelen değerler yeni bir excel dosyasında önceden belirlediğim hücrelere atanacak.

03.01.2012 Armut Üzüm.xls

	Dün bahçeden topladığım armutlar : 11

	Kharonun hüplettiği üzümler      :  12

	

Diye gelecek. Böyle bişey makrodur şudur budur yapılabilir mi, ve nasıl yapılabilir?

mumedik: table layout'u duzelttim

[kertenkel]

vba ile de yaparsin macro record ile de yaparsin

google'dan bak ornek kod modifiye edersin

[axedice]

Googlea bişeyler yazdım ama bulamadım. Nerde vardır bakabileceğim örnek kod?

[axedice]

Şu topiğe gelen tek cevabın "google it lol" olması bi üzdü beni =/

[Kharon]

huplettigim uzumlerin sayisi beni tatmin etmedigi icin bir sure cevap vermeyecegim.

[barnacle]

endüstri mühendislerini kötüleyen topik olsa damlarlardı buraya. işe yarayacakları yere gelmiyorlar işte lol.

[kertenkel]

pivot mu normal tablo mu bu ?

[axedice]

Ahaha sözde endüstri mühendisi excel mühendisi.. BAYA cahilmişim ben =(

Pivot tablo ne?

[kertenkel]

pivot tablo senin icin data'yi gruplar, sen de gormek istemedigin seyleri cikarirsin falan icinden. dropdown menusu vardir, ayri kaynagi vardir vs.

direk cell/hucre icine yazilan data degil yani, ama ondan da pivot tablo olusturabilirsin.

[axedice]

Ha yok pivot değil, normal tablo. Değerleri kontrol edip manuel giriş yapacak kalite elemanı aylık tabloya, ben de işte bi düğmeyle günlük verileri seçip (tablonun seçtiğim satırındaki belli sütunlardaki verileri) önceden belirlediğim bi formatta yeni dosya olarak atacak.

[ginaly]

yapılabilir.

şu an yazmaya üşeniyorum ama.

çünkü bana bi faydası yok.

[axedice]

Mersine gelirsen tantuni ısmarlarım.

Gelmezsen istanbulda dürüm ısmarlarım. Nasıl?

[LethE]

meh..yazdım tam.. sorna farkettim soruyu anlamamışım :)

şu işini görür mü?
evde kullancaksan satın almadanda halledersin

[axedice]

Hmm saol lethe onu bi inceleyeyim.

KHaRoN said:

huplettigim uzumlerin sayisi beni tatmin etmedigi icin bir sure cevap vermeyecegim.

Dostum hüpletilen üzüm sayısı toplanan armutlardan bile fazla, tam 12 (yazıyla ONİKİ) adet. Bence buna kayıtsız kalman yanlış ve taraflı bir hareket.

[odchu]

Sub hup()

Dim i As Long
i = ActiveCell.Row

Range("B" & i).Select
Selection.Copy
Windows("book2.xlsx").Activate
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Windows("book1.xlsm").Activate
Range("D" & i).Select
Selection.Copy
Windows("book2.xlsx").Activate
Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Windows("book1.xlsm").Activate


End Sub


biraz uzun ve amele oldu belki ama oldu sanirim

range deki hucre adlari ve workbook adlari degistirilerek dosyalara gore ayarlanabilir; ya da sonrasinda save as le ayri ayri kaydedilebilir her gun icin book 1 ve book 2 sabit kalarak

[Kharon]

axedice said:

Dostum hüpletilen üzüm sayısı toplanan armutlardan bile fazla, tam 12 (yazıyla ONİKİ) adet. Bence buna kayıtsız kalman yanlış ve taraflı bir hareket.

Ben aslinda cozum bulamadigim icin memnuniyetsizligimi beyan ederek uzaklasmak istemistim; artik tarafimdan hupletilen uzumler tatminkar seviyelere ciktigi icin bunu itiraf etmek zorundayim.