Így sem tökéletes, mert ha egyszer írtunk bele jó időt de ki kell javítani valami miatt akkor már engedi az isnumeric miatt a 34:67 (34ó:67p)-t. De ennyi baj legyen.

Köszi.

jaja az n/a (csak szövegként kell) az csak azért kell mert ha valamiért nem lehet időt párosítani az adatokhoz akkor legyen beleírva valami, meg úgy van most megcsinálva a lap hogy addig nem is enged kilépni vagy munkalapot váltani míg nincs megadva az idő de ha nem lehet idő-t megadni akkor kell valami oda hogy továbbengedjen.

[ Szerkesztve ]

Szia!

Ha már a beírást ellenőrizzük, akkor azt lehet tovább fokozni az időnek való megfeleléssel. Csak azt ne felejtsd el, hogy az idő az excel számára a szám törtrésze és az 1=pont 24 órával.

Gondolom a finomítás megy már.

Üdv.

Jaja azzal már elszöszölök. még1x köszi.

Valamiért 2013-asban sem akar menni segédcella nélkül.

Egyszerűen az érvényességnél nem enged másik munkalapra hivatkozni.

Mi lehet a gond?

Szia!

Próbáld meg a névadással (24592 sz. hozzászólás). Bár elvileg abban a verzióban már kellene mennie (hacsak vissza nem fejlesztették a 2010-es eszközöket).

Üdv.

Bocsi nem is láttam a hsz-edet.

Ez akkor is járható út ha mondjuk 300 cellát kell ellátni névvel?

[ Szerkesztve ]

Szia!

Elvileg igen, működnie kellene szerintem - persze elég macerás sok cellának külön nevet adni.

Nézd meg légy szíves ezt a fájlt:Példa

Itt a Munka1 A oszlop első pár cellája a Munka2 A oszlop azonos cellájának értékétől függően színeződik. A feltétel az, hogy 10 -nek kell lenni a Munka2 - ben az adott cellában (természetesen ez tetszőlegesen változtatható).

Remélem nálad is működik.

Üdv.

Sziasztok,

valaki tudna segíteni az alábbi témában?

Előre is köszi!

[ Szerkesztve ]

Hali!
O2013-nál excellben a cellák közötti lépkedésnél van egyfajta animáció, a jelölő négyzetet ahogy a nyilakkal mozgatom. Ezt ki lehet valahogy kapcsolni, gyors adatbevitelnél nekem zavaró, lassú.

Köszi.

Szia!

Szerintem nézz körül a beállítási lehetőségeknél.

Üdv.

Ha arra az úsztatásos mozgásra gondolsz akkor azt a sima beállítási lehetőségek között nem fogod tudni kikapcsolni.

win + pause -> sperciális rendszerbeállítások -> speciális -> teljesítmény beállítások -> Ablakon bellüli vezérlők és elemek animálása elől szedd ki a pipát.

És mikorra kell beadni?
Csak hogy tudjuk, mennyi időnk van megoldani a házidat...

Az első részével kissé komplikált módon meg vagyok, 6 órás munka volt. Teljesen új téma nekünk a makrókészítés. A diagram készítőssel viszont sehogy sem jutok előbbre. Egyébként holnap van a határidő

Segíts annyit, hogy meddig jutottál el.

Én diagramban nem vagyok otthon de biztosan kapsz segítséget

rögzítsd makrórögzítéssel a diagramm létrehozást aztán kopizd át majd írd át így a munka nagy részéről le van a gond....

Annyi a gondom, hogy az első számértékeket tartalmazó oszlopból kellene, tehát hiába rögzítem makróban a diagramot pl a B oszlopra, ha majd a későbbi adatsorban egy másik oszlopból kellene diagramot.

Pont erre gondoltam! Nem találtam sehol, nem véletlen. Gyors ugrálásnál cellák között zavart az animáció, rendszeressen elütöttem miatta, mióta 2013-r0 váltottam.
Köszi!

sziasztok mi lehet ez a hiba és hogyan lehetne orvosolni.

Otthon semmi gondja a kóddal de melóhelyen ezt dobja fel. Ne kérdezzétek miért ez a nyelv, fogalmam sincs hogy lehetne átváltani angolra lényeg a lényeg mi lehet a hiba, mert ha ezt nem tudom orvosolni feleslegesen dolgoztam vele egész hétvégén.

Nem volt még soha ilyen problémám csak gugliztam egy kicsit. Hátha errefelé kell keresni a megoldást.

http://support2.microsoft.com/kb/840926

Esetleg itt:

http://www.idautomation.com/kb/vba-compile-error.html

[ Szerkesztve ]

Szia!

Ez a Microsoft legutóbbi (dec. 9) Office biztonsági frissítésének "eredménye". Meg kell keresned a TEMP könyvtárak alatt az MSforms.exd állományokat és ki kell törölni onnan.

Ezután már menni fog.
itt a leírása

Üdv.

sziasztok

a problémám a következő:
adott egy munkalap rajta a következő oszlopcímekkel:
"név" "lakcím" "filmcím" "kategória" "díj/nap" "kivétel" "visszahozta" "hány napig volt nála"

az egész táblázat a kivétel időpontja szerint van rendezve. a kérdés pedig a következő (ezt idézem, hogy ne miattam lehessen félreéteni):
"Vannak olyanok, akik egy adot filmet háromszor kis kikölcsönöztek. Közülük névsor szerint ki az első?"

erre szerintetek mi a megoldás? makró kizárva, az következő félévben lesz... a kimutatásokat próbálgattam, de nem igazán jutottam vele messze. mivel ott alapból abc sorrendbe tette és nálam a "névsor" szerint nem azt jelenti.

a segítséget előre is köszi.

[ Szerkesztve ]

=KÖZÉP(A1;20;5)

=közép(szöveg;hányadik karaktertől;hány karaktert)

az egész táblázat a kivétel időpontja szerint van rendezve

Csökkenőbe vagy növekvőbe van rendezve?

ha úgy nézzük növekvő. vagyis a legelső időpont a legrégebbi kivétel.

"Vannak olyanok, akik egy adot filmet háromszor kis kikölcsönöztek. Közülük névsor szerint ki az első?"

Amennyiben ugyanaz (vagy ugyanolyan nevű) ember nem vett ki ugyanazon a napon akkor az van előbb aki régebben vette ki.

Ha jól értem a kissé rejtjelezett kérdést

[ Szerkesztve ]

én nem tudom mi van velem, hogy nem tudok gépelni.

egyébként ennyire nem misztifikáltam túl a dolgot. olyan makikat kerestem, akik egy filmet háromszor is kivettek. mivel a "névsort" az én értelmezésemben a kölcsönzés ideje definiálja, így aszerint adnék választ is, de nem találtam rá megfelelő szűrőt.

[ Szerkesztve ]

Akkor használd (nem tudom milyen Excel verziót használsz) a 2007-estől biztosan meglévő többszintű rendezési lehetőséget.

Először rendezd filmcím oszlpora, majd név oszlopra.

(A oszlopban a filmcímek, B-ben a nevek)

sajnos nem segített. cirka 4000 sornyi szövegem van és onnan kell kiemelni. így átnyálazva örökkévalóság lenne és a hibázás lehetősége is ott van. :/

Szia!

Tegyél fel egy 40-50 soros mintát valahova és megnézzük, mit lehet tenni.

A sorbarendezésnél nem kell 4000 sort "átnyálazni", az oszlopokon kell végigmenni és eldönteni, milyen legyen a szintek sorrendje.

A kimutatás szerintem teljesen korrekt módon megoldja a problémádat, csak megfelelően kell összeválogatni a sorokat és az oszlopokat.

A névsor szerint nekem egyértelműen a ABC sorrendet jelenti (iskolában a napló is névsorban volt írva, kik voltak elől és kik a végén?). Amit Te forszírozol, az az időrend szerinti sor - azaz ki vette ki legkorábban.

Nem egyértelmű így, hogy mit szeretnél látni.

Üdv.

Szia!

szerintem az a legegyszerűbb akkor, ha bedobom magát a fájlt.
[link]

a névsoron pedig azért rugózok, mert vizsgán pontos választ kell megadni és emiatt bukhatok nem kevés pontot.
számomra is az lenne az értelmes, amit mondasz, de itt a tanárok által összeállított dolgokat sajnos nem mindig úgy kell értelmezni, hogy "szerintem ez a jó"... mondjuk én már azzal boldog leszek, ha sikerül összerakni egy megfelelő szűrőt.

[ Szerkesztve ]

Szia!

Én a következőt tettem:
A J1 cellába beírtam a Kivételek száma cimkét
A J2 cellába beírtam a következő képletet:
=DARABHATÖBB($C$2:$C$4000;C2;$A$2:$A$4000;A2)
Majd ezt végighúztam az egész J oszlopon.
A kapott eredmény alapján csináltam egy sorbarendezést, ahol az első szint a Kivételek száma és a nagyobbtól a kisebbik felé rendez, a második szint a név, ahol A-Z a sorrend.

Ezután kedved szerint kiválaszthatod, ha akarod, hogy ki vette ki a legrégebben valamelyik filmet.

Az eredmény

Üdv.

igen, így kell. köszönöm szépen. Ács Kati volt a helyes megfejtés.

m.zmrzlina , Fferi50

Bocsi hogy csak ilyen későn reagálok, bolondokháza az utolsó héten

végül ez segített az IT-t meg ráugrasztottam a spanyol vagy milyen nyelv átállítására bár még nem sikerült megoldani

Sziasztok.

Problémám a következő. Van egy hosszú oszlop melynek celláiban vagy pozitív számok vannak vagy semmi (azaz 0 sincs). Ezt az oszlopok kéne úgy átalakítani, hogy a pozitív számokból negatív szám legyen (nagysága maradjon, csak előjelet váltson) és ahol nincs semmi, ott jelenjen meg 0.

Megoldható ez egyszerűen?

Köszönöm előre is!

Xiaomi 13 eu dev...

sziasztok, megnéznétek, hogy szerintetek mi nem jó az alábbi kódban?

Köszi!

Még annyi, hogy sürgős lenne, mert mindjárt lejár a határidőm

"A" oszlopban vannak az adatok, B1 képlete amit le kell másolnod az A oszlop végéig:

=HA(A1<>0;A1*-1;0)

Nekem az a legnagyobb bajom vele, hogy egy k..va karaktert nem látok belőle.

Meg az hogy nem tudom mit akar csinálni a makró...

Meg nem tudom hol hibázik....

Meg ha nem beadás előtt pánikolnál, hanem kilökted volna ide amikor kiadták....

meg... na mindegy

Köszi, de nem tölti fel nullával, hanem value-val...

Xiaomi 13 eu dev...

Lehet, hogy az "üres" cellákban is van valami. Próbáld ezt:

=HA(SZÁM(A1);A1*-1;0)

Csatlakozom, fogalmam nincs így mi nem jó de én valahogy így csinálnám

Sub hazi()

uoszlop = Cells(3, 2).End(xlToRight).Column

For oszlop = 2 To uoszlop Step 1
If IsNumeric(Cells(4, oszlop)) Then 'már ha tényleg ha az első cella szám akkor az összes is az
usor = Cells(4, oszlop).End(xlDown).Row
Min = WorksheetFunction.Min(Range(Cells(4, oszlop), Cells(usor, oszlop)))
Max = WorksheetFunction.Max(Range(Cells(4, oszlop), Cells(usor, oszlop)))
Set tartomany = Range(Cells(4, oszlop), Cells(usor, oszlop))
For Each cell In tartomany

If cell.Value <= Max - (Max - Min) * 2 / 3 Then
cell.Interior.ColorIndex = 3
End If

' és ugyan így a többi szinezés


Next
End If
Next oszlop

' ide jöhet az első számos ciklus
' ide jöhet a diagrammos rész

End Sub

jah a piros száma a 3 a kék az 5 a sárga a 6

[ Szerkesztve ]

Köszi! Működik!

Xiaomi 13 eu dev...

Szivesen.

Van itt ez a kód. Egy részét Delila_1 egy korábbi hsz-ból loptam, az elejét pedig a neten találtam. Működik de van pár sor benne amit nem értek. Hálás lennék ha valaki tudna válaszolni a kérdéseimre.

Előre is köszi.

Sub osszesito()
Dim strMunkamappa As String
Dim munkamappa
Dim FN As String
???Milyen tipusú objektumváltozó a munkamappa???
Set munkamappa = Application.FileDialog(msoFileDialogFolderPicker)

With munkamappa
.AllowMultiSelect = False
If .Show <> -1 Then Exit Sub
strMunkamappa = .SelectedItems(1)
End With

ChDir strMunkamappa
FN = Dir(strMunkamappa & "\" & "*.xls", vbNormal)
Do
???Egészen pontosan mi ez a feltétel (magyarul mikor lesz FN "." vagy ".."???
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=strMunkamappa & "\" & FN

ActiveWorkbook.Worksheets("nemrogzit").Range("A1").CurrentRegion.Copy Destination:=ThisWorkbook.Worksheets("nemrogzit").Range("A" & ThisWorkbook.Worksheets("nemrogzit").Range("A" & Rows.Count).End(xlUp).Row + 1)
ActiveWorkbook.Worksheets("rogzit").Range("A1").CurrentRegion.Copy Destination:=ThisWorkbook.Worksheets("rogzit").Range("A" & ThisWorkbook.Worksheets("rogzit").Range("A" & Rows.Count).End(xlUp).Row + 1)

??? Itt mi az ami False???
ActiveWorkbook.Close False
End If
FN = Dir()
Loop Until FN = ""
End Sub

[ Szerkesztve ]

Sziasztok!
Makróval szeretném ellenőrizni, hogy egy file tényleg létezik-e.

filename = "c:\test.txt"

If "file tényleg letezik" Then
Range("A1").Value = "letezem"
Else
Range("A1").Value = "nem letezem"
End If

If és a Then közé sok mindent írtam már, de nem jártam túl sok sikerrel....
Hogy kell ezt csinálni?

Köszönöm!

A munkamappát szövegként szoktam megadni. Utvonal="C:\mm\nn\"

Mikor a TC-ben látsz egy mappát, a dupla pontra kattintva a fölötte lévő mappába jutsz, az egy pont 8az nem látszik, de van), a főkönyvtárba visz.

Az FN egy változó, a fájlnevet olvassa be a megnyitott mappából.

A false letiltja az aktív fájl mentését. Ezt akkor alkalmazzuk, mikor egy mappából rendre behívjuk az ott lévő fájlokat, adatokat nyerünk ki belőlük, majd mentés nélkül bezárjuk őket.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Van-e test.txt fájl a C-n?

If Len(Dir("c:\test.txt")) = 0 Then
    Msgbox "Nincs"
Else
    Msgbox "Van"
End If

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.