[illusion]

Idézet: hkpk - Dátum: 2010. 10. 01. 11:23

Nem tudom miért nem eszi meg, de:
Átdolgoztam, kipróbáltam, működik:

Dim objFSO, objFolder, objShell, objFile
Dim strTarget_Directory, strFile, Idopont

ora=ltrim(Hour(Time))
perc=ltrim(Minute(Time))
Mp=ltrim(Second(Time))

If Len(ora)=1 then ora= "0" & ora
If Len(perc)=1 then perc= "0" & perc
If Len(Mp)=1 then Mp= "0" & Mp
Idopont= "(" & ora & ";" & perc & "; & Mp & ")"

strTarget_Directory = "D:\MENTESEK\"
strFile = "masol"& Date() & Idopont &".arj"
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "masol.arj", strTarget_Directory & strFile, true

If err.number = vbEmpty then

Else
MsgBox "Hiba történt! hibakód: " & err.number,16,"Filemásoló"
WScript.Quit
End If

Nekem ezt írja ki ezzel:

A képet a Képfeltöltés.hu tárolja. http://www.kepfeltoltes.hu
Biztos hogy én vagyok ilyen lááááma, valamit nagyon nem jól csinálok.

Szerkesztette: illusion 2010. 10. 01. 16:13 -kor

[illusion]

Idézet: illusion - Dátum: 2010. 10. 01. 16:08

Nekem ezt írja ki ezzel:

A képet a Képfeltöltés.hu tárolja. http://www.kepfeltoltes.hu
Biztos hogy én vagyok ilyen lááááma, valamit nagyon nem jól csinálok.

MEGVAN A BIBI!!!! Hiányzott egy aposztrof a mp elől.

Köszönöm NAGYMESTER! öRÖK HÁLÁM!

[hkpk]

Idézet: illusion - Dátum: 2010. 10. 01. 17:27

MEGVAN A BIBI!!!! Hiányzott egy aposztrof a mp elől.

Köszönöm NAGYMESTER! öRÖK HÁLÁM!

Jaja, néztem az előző hozzászólást, mire kifolyt szememmel megláttam,
de aztán azt, hogy a második üzenetben magad is, ami ügyességed bizonyítja
Sajnos, a hiba utólagos szerkesztéskor belecsúszott, előszöt _ jelek voltak
a ; helyett, de azoknál elegánsabbnak gondoltam a ;-okat, és amikor átírtam,
akkor mellényúltam.

[illusion]

Idézet: hkpk - Dátum: 2010. 10. 01. 21:49

Jaja, néztem az előző hozzászólást, mire kifolyt szememmel megláttam,
de aztán azt, hogy a második üzenetben magad is, ami ügyességed bizonyítja
Sajnos, a hiba utólagos szerkesztéskor belecsúszott, előszöt _ jelek voltak
a ; helyett, de azoknál elegánsabbnak gondoltam a ;-okat, és amikor átírtam,
akkor mellényúltam.

[hkpk]

Mondtam már, hogy micsodám van tele az Excel 2007-el?

Most itt egy újabb szar, ami az előző verziók alatt jól működött:

'Alábbi fontos, ha vesszők vannak a szövegben, akkor a sorokat
'idézőjelek közé foglalja a hülye Excel
Application.DisplayAlerts = False
Cells.Replace What:=",", Replacement:=";", LookAt:=xlPart, SearchOrder _
      :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

'On Error GoTo Kilep
Fejneve = Left(File2Open, Len(File2Open) - 1) & "0"
Application.DisplayAlerts = True

     ActiveWorkbook.SaveAs Filename:=Fejneve, _
     FileFormat:=xlText, CreateBackup:=False
      ActiveWorkbook.Close savechanges:=False

Tehát ez a részlet egy ciklusmagban van.
Első alkalommal simán lefut az első ciklus.
A másodiknál kiakad, ha a Debug-ot indítom, akkor a
ActiveWorkbook.SaveAs Filename:=Fejneve, _
FileFormat:=xlText, CreateBackup:=False
soron áll a kijelölés,
mintha azzal lenne baja, azonban a hibaüzi az előző, cserére utal. (ld kép.)

A cserélés automatikusnak kívánkozna, nem biztos hogy van vessző akárhol is,
és amikor a hiba előjön, akkor valóban nincs.
próbáltam lelőni ezt a Application.DisplayAlerts = False -val,
de sikertelen a dolog. A mentésnél szükség lenne a hibaüzenetre,
ezért ott vissza van kapcsolva.

Még az is lehet, hogy a hálózat vacakol, nem sikerül a mentés, de ezt a hibaüzenetet
mutatja egy normális helyett.

A pi...ba lehet egy ilyen trágya programot kiadni ekkora mennyiségben, ilyen alkalmazási területre.
(ma hibajelentés hibajelentés után ment az M$ felé, de szerintem leszarják)

van valakinek üdvözítő tippje?

Csatolt fájl:

•  Vágólap01.png (5,17K)
  Letöltések:: 8

Szerkesztette: hkpk 2010. 10. 06. 14:22 -kor

[rumplergnr]

Sziasztok!

Segítségetekre lenne szükségem. Raktárban dolgozom, és kiexportáltam excel fájlba a készletünket. Egy olyan szűrést szeretnék csinálni, hogy azokat a tárhelyeket mutassa ahol a termékeknek eltérő a származási országa.

Így néz ki a tábla pl:

A1 DE
A1 DE
A1 DE
A2 IT
A3 HU
A3 DE
A3 HU
A4 ES
A4 ES
A5 CH
A5 CH
A5 CH
A6 HU
A7 DE
A8 DE
A8 CH

Nekem itt az A3-at és az A8-at kellene eredményül kapnom. Tudnátok nekem valami módszert adni ezek kiszűrésére? A táblázatom kb 30000 soros... Makrókat még sose használtam. Előre is köszi!

[Delila]

rumplergnr

Készíts kimutatást a két oszlopodból. A sorokban az A oszlop adatai legyenek, az oszlopokban az országok, az adatmezőben az ország darabszáma.
A kimutatás utáni első üres oszlopba tedd be a darab2 függvényt, ami a megszámolja, hogy egy-egy adat hány ország oszlopában szerepel. Ennek az oszlopnak adhatsz egy feltételes formázást, ami kiemeli az 1-nél nagyobb számot tartalmazó cellákat.

[rumplergnr]

Szia!

Köszönöm, ez tényleg működik!

[Delila]

rumplergnr

Szívesen.

[Misi_D]

Egy kis segítségre lenne szükségem.
Kaptam egy fájlt, amiben csak pivot szerepel, a forrádadat fül ki lett törölve helytakarékosság címmel (hogy lőtték volna le, amikor kitalálta...). Nos, nekem a forrásadatra is szükségem lenne. A pivot beállításainál ki van pipálva a forrásadatok mentése a fájllal. Lehet valamit tenni?

[Löfi]

Szia Delila,

Már régebb óta követem a fórumot és látom több embernek segítettél megoldani problémáját. Én is hozzád fordulok segítségért. Azt szeretném kérni tőled, hogy segíts egy makró megírásában. Lécci másold be nekem azt makrót, ami megnyitja az összes XLS kiterjesztésű fájlt a „C:\teszt\" könyvtárban.

köszi

[Löfi]

Szia Delila,

Valamit még kifelejtettem ,hogy a megnyitott fájlok adatait (minden fájlban u.a. struktúra) másolja a makrót elindító munkafüzet ADATSOR munkalapba egymás alá.
Példa: Van kettő fájl a „C:\teszt\" mappában, ez esetben a kettő fájl tartalmát másolja be a makrót futtató munkafüzet ADATOR munkalapba egymás alá.

Hálás köszönet

[Delila]

Löfi

Megtisztelő, hogy név szerint szólítasz meg, de lehet, hogy legközelebb gyorsabb, jobb választ kapsz enélkül.

A makrót a gyűjtő füzethez kell rendelned, és arról a lapról kell indítanod, ahova össze akarod gyűjteni a többi füzetből az adatokat. Kitehetsz hozzá az űrlapvezérlők közül egy gombot.
Feltételezem, hogy a füzetekben az első sorban az oszlopok címei vannak, ezért a másolást a 2. sortól vittem be.
A makró egyik sorához, amelyikben a Munka2 szerepel, megjegyzést fűztem, nézd meg.

Sub Adatgyujtes()
    Const utvonal = "C:\teszt\"
    Dim FN As String
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ChDir utvonal
    FN = Dir(utvonal & "*.xls", vbNormal)
    Do
        If FN <> "." And FN <> ".." Then
            Workbooks.Open Filename:=FN
            Sheets("Munka2").Select 'A Munka2 helyett add meg a másolandó füzetek lapjának a nevét
            Range(Cells(2, 1), Selection.End(xlToRight)).Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            
            ActiveWindow.Close
            Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
            ActiveSheet.Paste
        End If
        FN = Dir()
    Loop Until FN = ""
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Üdv, Delila

[Löfi]

Szia Delila,

Hát ez szuper, nagyon köszönöm! (nagyon jók a megérzéseid, hogy a 2. sortól másol )
Szeretnék majd később még segítséget kérni, mert nem adtam meg pontosan a másolandó fájlok munkalapjainak nevüket (nem mindig MUNKA2), de ezt én megnézem, s utána jelentkezem.

Nagyon, nagyon köszönöm
Löfi

[Delila]

Löfi

Tedd minden füzetedben a kérdéses lapot az első helyre, és akkor a
Sheets("Munka2").Select sor helyett ezt írhatod: Sheets(1).Select
így kiküszöbölhető a hiba, amit a különböző lapnevek okoznának.

A behívandó füzeteid legyenek egy könyvtárban, a gyűjtő füzet máshol.

[szerafista]

Sziasztok!

Van egy problémám, amin már 3 napja agyalok, és lehet én vagyok a hülye, de nem jövök rá.
Szóval van egy táblázatom. F2 érvényesítve van, hogy egy listából csak "0. nem" vagy "1. igen" lehetőséget lehet kiválasztani. ezzel eddig semmi gond nincs.
Nade. G2nél azt kéne elérnem, hogy ha F2="0. nem" akkor G2 alapba "0. nem" legyen. Viszont, ha F2="1. igen" akkor G2-ben legyen egy hasonló legördülő kis lehetőség "0. nem" vagy "1. igen"-el.
Próbálkoztam HA függvénnyel is. Sajna VB-hez nem sokat konyítok...

Ha valaki tudna segíteni, azt nagyon megköszönném!

Üdv:
Szeraf

[Delila]

szerafista

J1 -> 0. nem
J2 -> 1. igen
A J1:J2 tartományt kijelölve a Beszúrás/Név/Név megadása menüben elneveztem, a név IGEN.
CSAK a J1 cellának a NEM nevet adtam.
A G2 érvényesítésénél a forráskód: =HA(F2="0. nem";NEM;IGEN)

Természetesen más helyen is megadhatod az értékeket, akár másik lapon is.

[hkpk]

Excel / Office 2007, tkp. mind1 melyik tagja az Office-nak, Outlook is benne van
a csatolmányok mentésével...
Szóval Mentés másképp menüpont megnyitja az alapértelmezett mappát,
de ha nem ide akarom menteni, akkor, ha megpróbálok máshova navigálni,
először ezt kapom:(lásd csatolt kép).
Ez a folyamatjelző hosszú másodpercekig mutatja magát, majd felkínálja a megjhajtók
listáját, bármelyiket megnyitva, minden mappaszintnél hosszú homokórázás következik,
ha 4-5 mappaszint alá kell menteni a fájlt, másfél percig is eltarthat a hely kijelölése.
Semmilyen más szoftverrel nin cs ez így, pl. ide a képet ilyen tallózással töltöttem fel,
és ez is gyors, amúgy E7400 proci, 2 GB RAM, SATAII HDD, szóval nem lassú gépről van szó.

Van valakinek gyógyírja az Office lassúságra?

Csatolt fájl:

•  Vágólap01.png (3,96K)
  Letöltések:: 6

[Delila]

hkpk

A súgóban a "Parancsikon hozzáadása a Helyek sávhoz" címszóra keress rá, remélem, megoldja a problémádat.

[hkpk]

Idézet: Delila - Dátum: 2010. 11. 09. 12:52

hkpk

A súgóban a "Parancsikon hozzáadása a Helyek sávhoz" címszóra keress rá, remélem, megoldja a problémádat.

Részben igen , köszönöm