Keresés

Nem.

Azt lehet megtenni, hogy sorban egyesével megnyitni őket, és a lapokat áthelyezni egy erre a célra létrehozott munkafüzetbe. Pl így:

Sub Összevon()
    Dim wbSource As Workbook, wbDestination As Workbook, ws As Worksheet
    Dim SourcePath As String, FName As String
    
    Set wbDestination = ThisWorkbook
    SourcePath = "C:\itt_vannak_a_fájlok_mappa\"
    FName = Dir(SourcePath & "*.xls", vbNormal)
    While Not FName = ""
        Set wbSource = Workbooks.Open(Filename:=SourcePath & FName)
        Set ws = wbSource.Worksheets(1)
        ws.Copy after:=wbDestination.Worksheets(1)
        wbSource.Close savechanges:=False
        FName = Dir()
    Wend
End Sub

Excel2003 alatt meg kell nyitni vagy 80 táblát és egy munkafüzetbe kell másolni.

Megoldható lenne, hogy rögtön egy munkafüzet különböző munkalapjaiként nyissa meg?

Nem ellenőrzött kód, de szerintem menni fog:

Private Sub CommandButton3_Click()

Dim Rng As Range, i As Long

Set Rng = Sheets("Nyomtatáslista").Range("A" & Rows.Count).End(xlUp).Offset(1)

Rng.value = Date

For i=1 to 18

   Rng.Offset(, i) = Sheets("Választ").Range("D" & i).Value

   '****

Next

A comboboxok törlését is meg lehet oldani ciklusban, ehhez egy sort kell betenni a fenti kódba a '**** helyére.

De nem tudom, milyen comboboxok ezek, és látatlanba nem akarok hülyeséget írni.

Szerintem lehet rövidebben is.

Tedd be az egészet egy For / Next ciklusba, találd ki mi az "B" betű ASCII kódja (tegyük fel a példa kedvéért, hogy CHAR(66)) és akkor:

...

Sheets("Nyomtatáslista").Range("A" & Rows.Count).End(xlUp).Offset(1) = Date

For x=1 to 18

Sheets("Nyomtatáslista").Range(CHAR(65+x) & Rows.Count).End(xlUp).Offset(1) = Sheets("Választ").Range("D" & x).Value

Next

...

Köszi Jimmy-nek is, működik!

Kisakkoztam a másolást is, jól működik, csak kicsit hosszúra sikerült:

Private Sub CommandButton3_Click()
Sheets("Nyomtatáslista").Range("A" & Rows.Count).End(xlUp).Offset(1) = Date
Sheets("Nyomtatáslista").Range("B" & Rows.Count).End(xlUp).Offset(1) = Sheets("Választ").Range("D1").Value
Sheets("Nyomtatáslista").Range("C" & Rows.Count).End(xlUp).Offset(1) = Sheets("Választ").Range("D2").Value
Sheets("Nyomtatáslista").Range("D" & Rows.Count).End(xlUp).Offset(1) = Sheets("Választ").Range("D3").Value

... és így tovább D18 -ig.

Azonkívül betettem egy combobox törlést is a végére, de a magam egyszerű módján az is egyenként:

ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""

... 18 ig.

Lehet ezt valahogy rövidebben?

Ennek örülök, gyere máskor is!

Nincs mit! :)

Esetleg próbáld ki a Jimmy The Hand javaslatát is, mert egyszerűbb kód!

Üdv: Sznido

siker! köszönöm!

Nagyon szépen köszönöm! Működik!! :)

Akkor ezzel a képlettel elméletileg a címek másolását is meg tudom oldani, csak a dátum helyére kell más kód és vigyáznom kell, hogy ne maradjon ki üres sor.

Este nekiállok! Kösz még 1x! További szép napot mindenkinek!

Vagy kicsit egyszerűbben:

Sheets("Nyomtatáslista").Range("A" & Rows.Count).End(xlUp).Offset(1) = Date

Szia,

Megvan a hiba:

Ez a hibás sor:

Sheets("Nyomtatáslista").Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1) = Date

Mivel egy commandbutton-ról indítod, és az egy másik munkalapon van, ezért ez az aktuális munkalapodon kereste az utolsó sort az "A" oszlopban.

A helyes sor:

Sheets("Nyomtatáslista").Cells(Sheets("Nyomtatáslista").Range("A" & Rows.Count).End(xlUp).Row + 1, 1) = Date

Üdv: Sznido

úgy láttam 2003-as exceled van, nézd meg itt: http://office.microsoft.com/hu-hu/excel-help/a-kozos-hasznalatu-munkafuzetek-HP005262294.aspx

Igazán profi (és megnyugtató) megoldás pl.  a Sharepoint használata lenne a szerveren (Ha Windows Server alapú a hálózat, akkor lehet, hogy telepítve is is van, pl. Windows SBS )

Ha hasonlóan jó, ráadásul  ingyenes az Alfresco (www. alfresco.com), Windows és Linux szerverre ugyanúgy telepíthető. Ez is tudja a Sharepoint protokollt.

igen, egy hálózaton csücsülnek az érintettek, egy közös szerveren lévő fájlt szeretnék közös használatúvá tenni.

elhatárolódva az internetes megoldástól (ha jól értelmezem a skydrive funkcióját). esetleg így ötlet?:)

Nem derül ki "maiann" leveléből, az is lehet, hogy egy hálózaton csücsülnek az érintettek, egyszerűen csak nem tudja közös használatúvá tenni a táblázatot.

A tipp amit adtál jó, én sem ismertem ezt a lehetőséget. köszi

SkyDrive:  http://explore.live.com/windows-live-skydrive

Alapból elérhető a megosztás, lehet böngészőben és Office programban is dolgozni a file-okon és még adnak 25 GB (!) tárolóterületet is.  Microsoft szolgáltatás, szóval akár még biztonságos is lehet...

Elküldtem, el is csesztem az írást, nem a "nyomtat" lapon van 3 command button, hanem a "választ" lapon..

Köszönöm! :)

Sziasztok, én Excel fájlt szeretnék közös használatra létrehozni. Szeretném, ha a fájl több felhasználó által is elérhető lenne egy időben, s többen is tudnának benne egyszerre dolgozni.

Mint kezdő versenyző az Eszközök/Közös használat funkcióval próbálkoztam, de nem jártam sikerrel. Ti mit gondoltok?

előre is köszönöm a segítséget:)

Nekem is küldheted...

sznida@freemail.hu

Üdv: Sznido

Töröltem a lapot, újat csináltam, cellatartalmat is, de ugyan az. Ha küldenél egy mailt a címeddel, átküldöm a munkalapot, persze csak ha van időd a hülyeségeimmel foglalkozni. :) Nem akarok senkit terhelni ezzel..

Ha az A2:A20 között van akár csak egy szóköz is a cellában (esetünkben az A20 gyanús, hogy nem üres), akkor természetes, hogy az A21-be rakja a dátumot.

Jelöld ki a 2:20 sor tartományt és üss rá egy Clear All-t, utána futtasd le a kódot.

Köszönöm, kipróbáltam a laptopon is, de ugyan az a helyzet, itt is az A21 -es cellába ír. Délután, munka után az otthoni gépemről  csinálok képet, kiváncsi vagyok mi működik rosszul. :) thx

Szia,

" Viszont szerintem ez nem lesz jó, mivel véletlenszámot kell generálni ez pedig mindenhol ugyan az..."

Ezt nem értem az excelnek van egy vél() fügvénye ami véletlen számot generál. MInden számolásnál újra, és minden cellába más és mást. Ez nem jó?

Üdv: Sznido

Szia Nálam is jól működik!

Csatol egy képet a tábládról, és a beírt kódodat is másod be, lehet ki tudjuk találni mi a baj! :)

Üdv: Sznido

Akkor valami nem jó, nálam mindig az első üres sorba teszi a dátumot az A oszlopban.

A1-be (ahol feltehetően az oszlop címe van normál esetben) beírtam egy dátumot, a makró futtatásával

minden esetben alá írta a mai dátumot.

Hello!

Szal volt egy előző kérdésem, amikre próbáltatok válaszolgatni és segíteni. Köszönöm, csak nem tudtam eddig válaszolni. Nagyjából megfejtettem azt hiszem. A feladat: Excellel legyártunk egy csomó U(0, 1) eloszlású véletlen számot. Ezekből gyártunk egy csomó γ(1, 1/τ) exponenciális eloszlású véletlen számot. Hogy mekkora a τ, ki-ki maga dönti el. Ez igazából a feladat első része.

Excelben megcsináltam a véletlenszám generálást RANDBETWEEN(0,1) fv -nyel. Viszont ebből kellene nekem exponenciális elosztású véletlenszámokat generálni. Ezt megpróbáltam úgy, hogy az exponenciális elosztás fv-nyel A1től 1000 ig mivel ennyit generáltam a lambda értéke 2 és az értéke 1 mert úgy van hogy ha igaz, akkor az elosztás fv-t kell használni, ha hamis akkor meg a sűrűségfüggvényt. Ezért B1=EXP.ELOSZLÁS(A1:A1000;2;1). Ahol az első oszlopban 1 volt ott ezáltal 0,864665 az eredmény. Ahol pedig 0 ott 0. Viszont szerintem ez nem lesz jó, mivel véletlenszámot kell generálni ez pedig mindenhol ugyan az...

Ebben esetleg help? :) Vagy az is lehet, hogy az egész rossz és teljesen más irányba kavargok.

Köszi

saFi

Nekem így az A21 -es cellába rakja az új dátumot, pedig az A2-től az A19 ig is üres. És csak 1x, tehát hiába nyomom 2x, 3x a command button -t, csak egy cellát ír, az is az A21.

(ugye minden nap 1x nyomnám, akkor tenne a következő cellába egy új dátumot)

valahogy így:

           A                B           C            d

1  2010.03.01   xy bolt    yx bolt    zx bolt

2  2010.03.02   xd bolt    bc bolt    cd bolt

3  2010.03.03   gf bolt     rs bolt    ds bolt

és így tovább..

Nagyon köszönöm a segítséget! :) Így jó egy leírás, ha érti is az ember mi mit jelent!

Mer nem lehet, már látom, h. miért van benne :-(

A Cells-be bele lehet rakni Range-t?  Nem is tudtam...