Sziasztok
Makrórögzítővel rögzítettem egy makrót. Semmi bonyolút csak annyi hogy törölje a
D1
D36
D1217
D20 cellák tartlmát.
Erre az történik, hogy az aktív cella értéke az első ami töröl és onnan továbbhaladva.
Pl ha az A1 en állok akkor A3:A6 A12:A17 A20
Ez miért van?

Szia!

Ha feltetted volna a makrót, akkor biztosat tudnánk mondani, de valószínűsítem, hogy ezzel indul:
selection.clear vagy delete és utána innen relatív cimzéssel megy tovább.
De mondom, látni kell a makrót.

Üdv.

Szia!

Próbáld ki ezt:

Sub Torol()
Range("D1").ClearContents
Range("D3:D6").ClearContents
Range("D12:D17").ClearContents
Range("D20").ClearContents
End Sub

"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

Szia kymco,

Ha a verbális erőszakot nem akarod, akkor próbálkozhatsz a fizikaival is. Lehet gyorsabb megoldás!

Képletben:

...
For Each str_Dolgozó as wsh_DolgozókNeve
If "verbális erőszak"<>"Eredmény" then
Do
Üt=Üt+1
Loop "verbális erőszak"<> "Eredmény"
End if
Next str_Dolgozó
...

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Sziasztok,

Van arra valakinek valami ötlete, hogy hogyan lehetne egy képlet - tehát nem makró! - részeként leellenőrizni, h egy bizonyos nevű munkalap létezik-e a Munkafüzetben?

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

egy próbát megér:
=HAHIBA(Munka2!A1;"nem létezik")

Munka2-tőt nevezd át a megfelelőre.

"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

Szia alfa20,

Köszönöm, jó lesz. Kicsit tovább gondoltam, de az alapötlet remek.

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Sziasztok!

Barátnőm elakadt a munkában. Hátha tudtok segíteni! Egy árlista táblázatban cikkszámok nullával kezdődnek. Ezt be tudjuk írni szövegként. CSV formátumban kell elmenteni, mert a Next (váll.irányítási rendszer) ezt tudja betölteni. Miután elmenti, kilép, majd megint megnyitja eltűnnek a nullák! Mi lehet a baj? Köszi!

szerintem ez kell neked: [link]

magyarán ne nyisd meg újra driektben a csv fájlt hanem adatok/szövegből oszlopként....

[ Szerkesztve ]

Sziasztok!

Egy cellában lévő érték (sok érték és sok cella), illetve a cella háttérszíne egy másik celábba kerülő értéktől függően változik meg feltételes formázásba írt függvény segítségével. Működik is rendesen, de csak akkor "látszik" a színezés eredménye, ha le, majd felgörgetem a képernyőképet. Magyarán nem frissül a monitor képe.

A következő a kérdésem: hogy tudnám elérni, hogy görgetés nélkül is azonnal láthatóvá váljon a színek változása, ahogy kilépek a "parancsot tartalmazó" cellából? (Ha jól emlékszem, korábbi verzióban működött. Most Office2010)

Remélem, érthető voltam! (Én minden esetre értettem. )

Köszi!

Köszizönöm a segítséget.
Más miért van az hogy van egymás alatt 49 combobox és szűrés után összecsúsznak. Lehet fixen rögzíteni anpozicíójukat?

Combobox helyett érvényesítést lehetne használnod, az nem mászik el.

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

Szia Fferi50 !

Köszönöm a fáradozásod ,a megoldásod teljesen megfelelő,és használható.

Üdv.

Nos, az eredetivel az volt a gond, sok cikk nem létezik angolul, csak olaszul
Erre átküldik excelben pdf helyett, annyival jobb, hogy külön sorban van az angol, tehát itt is lehet képletezni, ha az angol sor előtt van egy olasz, akkor angol, ha nincs, akkor olasz
Szuperek ezek az exportok. De ezt már legalább könnyű megoldani

Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |

Sziasztok,

Tud valaki megoldást arra, hogy egy űrlap textboxának kitöltése közben meg tudjuk határozni, h éppen mi volt az utolsó felhasználói billentyűnyomás?

A Like operandussal sokat ki tudok szűrni, de nekem vezérlőkaraktereket kellene megfigyelnem, úgy mint Backspace, Delete, kurzormozgató nyilak... Ötlet? Módszer?

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

annyira nem vagyok otthon a vba-ban de ez lehet segít
sendkeys

Szia!

Van 3 metódus a textboxnál is él: KeyPress, KeyDown,KeyUp

Elég jó hozzá a help, szerintem nézegesd meg.

Üdv.

Szia slashing,

Sajnos, ez nem jó... ennek pont az ellentéte kell. Amit ott leírtak, az arra jó, ha én (vagy a felhasználó) akar elküldeni egy billentyűnyomást, vagy billentyűkombinációt az éppen futó Makró számára.

Nekem az kell, hogy a felhasználó éppen mit nyomott meg utoljára... Ebben nagyon sokat segít a Like (mert ki lehet vele szűrni rengeteg nem kellő bevitelt... de nem tudom, hogy kezeli-e a speciális / vezérlőkaraktereket. Ha erre tudsz valami linket...

[ Szerkesztve ]

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Szia Fferi50,

Sajnos, ez sem az amit kerestem... Mert nekem egy TextBox_Neve_Change eseményen belül kellene megmondanom, h mi volt a karakter...

Az a módszer sem jó, h leválasztom az utolsó karakterét, mert pl. egy Backspace rögtön el is vesz egy karaktert a TextBox_Neve.Value tartalmából...
Szóval, azt kellene megmondanom, h pl. a Backspace-e az utolsó billentűnyomás, kb. még az előtt, h kivonná a TextBox_Neve.Value értékéből az utolsó karaktert.

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Szia Fferi50,

Megpróbáltam azért... már majdnem nagyon örültem, h ez mégiscsak megoldás lesz, mert valóban ez megmondta a billentyűnyomást... egy Integer formában vissza is adta... ... kivéve éppen a keresett Backspace-t , meg társait, mert ezekket megnyomva a TextBox végrehajtja a műveletet, de a TextBox_Neve_KeyPress (ByVal KeyANSI As MSForms.ReturnInteger) nem hívódik meg...

Namármost, ha tudtok olyan beállítást, amely ezekben az esetekben is meghívja a eseményvezérelt rutint, akkor helyben vagyok!

[ Szerkesztve ]

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Szia!

Nézd meg légy szíves a TextBox_Neve_KeyDown eseményt és a helpjét, mert azt hívja meg legelőször a billentyűnyomás!
Az itt használt KeyCode más, mint az ANSI kódok, részben átfedi, de ezek kifejezetten a billentyűzetre vannak definiálva.

Üdv.

Azt tudom csak lényeges,hogy ha gépelik az adatot akkor a begépelt szövegréssznek megfelelően szűküljön a lista. Vagy érvényesítésnél is meg lehet ezt oldani? Tudtommal nem.

Sziasztok, elég nagy gondban vagyok. Egy betegségről írok és elakadtam pár dologban.
Hogyan számolom ki a férfiak ill. nők átlag életkorát külön-külön?

Szerintem kifelejtettél valami fontos információt, mert ez alapján csak ilyen választ kaphatsz hogy az átlaggal....

milyen adataid vannak és azok hogyan vannak csoportosítva? van ömlesztve külön férfi női életkorok vagy gyakoriság szerint vel van sorolva hogy 18 évesből van 10db 34-ből meg 7??

[ Szerkesztve ]

Ez egy betegség kutatásának statisztikai igazolása. Lényegében volt 40-en betegem (férfiak és nők) akiknek különbözők adatait jegyzeteltem. Most az lenne a feladatom, hogy a saját eredményeimet ún. irodalmi eredményekkel összehasonlítsam (erre a 2 mintás t-próbát használnám) és megadjam, hogy az én kutatásom reprezentatív-e (mmint hogy mutat hasonlóságot az irodalmi adatokkal. ) Ez nekem egy kicsit magas labda
pl.: A normalítás milyen értéktől lehet szignifikánsnak tekinteni?

Szia Fferi50, és Szia Mindenki,

Végül visszatértem a Change eseményre, mert a karakter most sem volt kiolvasható rendesen... noha még konstansok is vannak...

A problémát megoldottam - nagyjából - még egy változó segítségével, amely azt figyeli, h éppen rövidül-e (backspace, delete) vagy növekszik a TextBox.Value sztring hossza.
Viszont keletkezett egy új gondom... Change esemény akkor is bekövetkezik, ha éppen inicializálom a szövegdobozt és / vagy valamit - a felhasználó beavatkozásán kívül - magam írok hozzá a karakterlánchoz (pl. telefonszámban a tagolást, (, ), jeleket és szóközt) ... így gyakorta többször is meghívja önmagát a Change, nem várt eredményeket hozva.

Próbáltam kikapcsolni az eseményfigyelést a
Application.EnableEvents = False és
... esemény programkódja ...
Application.EnableEvents = True
utasításpárossal, de mintha rá se hederítene... Mit kell még átállítani, hogy ne következzen be esemény, vagy hogy lehet megkerülni?

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Szia!

A userformon nem hatásos az application.enableevent=false.
Ott csak trükkösen lehet megkerülni az eseménylefutást. Egy form szintű változót kinevezel eseményvezérlőnek, ha ez true, akkor fusson le az esemény, ha false akkor ne fusson le. Minde eseménykezelésnél ennek a változónak a vizsgálatával kezded a projektet.

DE: Javaslom még mindig, hogy Textbox_KeyDown eseményt nézd meg, itt a keycode megmondja, hogy melyik billentyűt nyomták le.
A backspace keycodja a vbKeyBack vba konstans,ami numerikusan 8.

A billentyűk Keycode megfeleltetését a help Keycode Constants cimszava alatt találod.

Private Sub object_KeyDown( ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As fmShiftState)
if KeyCode=vbKeyBack then
ide írod amit szeretnél csinálni ha BackSpace-t nyomtak.
endif
KeyCode=0
end sub

Az utolsó sor, a KeyCode=0 a lényeg, ezzel eliminálod a billentyű leütést! Minden olyan esetben kell, ha nem akarod, hogy a leütött billentyű hatása érvényesüljön!
(Pl. te beírod a textboxba a leütött betűt, vagy lecsökkented a hosszát, akkor már nem szabad, hogy a rendszer is megcsinálja ugyanazt!)
Ha meg kell, hogy csinálja a rendszer, akkor ezt a sort elhagyod.

Hidd el, ez a legegyszerűbb megoldás a billentyűzet figyelésre. A change az macerás. Rengeteg hasznos info van a Help-ben. (A szokásostól eltérően.)

Üdv.

[ Szerkesztve ]

Szia Fferri50,

Néztem. Át is írtam a kódomat a KeyDown-ra... aztán a tesztelésnél jött ki, h nem jelzi a Backspace-t. Mivel ott voltak a konstansok, azt hittem sínen vagyok...

Igaz nekem nem
"Private Sub object_KeyDown( ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As fmShiftState)" -dal hívta meg az eseményt, hanem
"Private Sub object_KeyDown( ByVal KeyAscii As MSForms.ReturnInteger)" vagy
"Private Sub object_KeyDown( ByVal KeyANSI As MSForms.ReturnInteger)" formában. Ez lehetett baj?

Azért, ha tudod, a Change esemény figyelés megoldását leírnád érthetőbben? Kérlek... :-)

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Szia!

Milyen excel verziód van?
Igen, sajnos a KeyAscii nem azonos a KeyCode - értékével - ezt valahol írtam is az előbb.

Ez alapján viszont:
"
KeyPress Event

Occurs when the user presses an ANSI key.

Syntax

Private Sub object_KeyPress( ByVal KeyANSI As MSForms.ReturnInteger)

The KeyPress event syntax has these parts:

Part Description
object Required. A valid object.
KeyANSI Required. An integer value that represents a standard numeric ANSI key code.

Remarks

The KeyPress event occurs when the user presses a key that produces a typeable character (an ANSI key) on a running form while the form or a control on it has the focus. The event can occur either before or after the key is released. This event also occurs if you send an ANSI keystroke to a form or control using either the SendKeys action in a macro or the SendKeys Statement in Visual Basic.

A KeyPress event can occur when any of the following keys are pressed:

Any printable keyboard character.
CTRL combined with a character from the standard alphabet.
CTRL combined with any special character.
BACKSPACE.
ESC.

A KeyPress event does not occur under the following conditions:

Pressing TAB.
Pressing ENTER.
Pressing an arrow key.
When a keystroke causes the focus to move from one control to another.

Note
BACKSPACE is part of the ANSI character set, but DELETE is not. Deleting a character in a control using BACKSPACE causes a KeyPress event; deleting a character using DELETE doesn't.

When a user holds down a key that produces an ANSI keycode, the KeyDown and KeyPress events alternate repeatedly. When the user releases the key, the KeyUp event occurs. The form or control with the focus receives all keystrokes. A form can have the focus only if it has no controls, or if all its visible controls are disabled.

The default action for the KeyPress event is to process the event code that corresponds to the key that was pressed. KeyANSI indicates the ANSI character that corresponds to the pressed key or key combination. The KeyPress event interprets the uppercase and lowercase of each character as separate key codes and, therefore, as two separate characters.

To respond to the physical state of the keyboard, or to handle keystrokes not recognized by the KeyPress event, such as function keys, navigation keys, and any combinations of these with keyboard modifiers (ALT, SHIFT, or CTRL), use the KeyDown and KeyUp event procedures.

"

Lehetséges, hogy mégis a KeyPress eseményhez kell menekülnöd, ezt tudja a backspace-t érzékelni.
A Backspace ansi kódja is 8.

Próbáld ezt az eseményt úgy, ahogyan az előbb a másikra írtam.

Üdv.

Ps:A change esemény kezelésbe most nem mennék bele, mert nincs annyi időm jelenleg. De ígérem, ha egy kicsit szabadulok - visszatérek még rá.

Szia Fferi50,

Office 2010.

A bajom a Change vezérlés ki-be kapcsolásával, az az, hogy odáig értem, h legyen egy változó, ami "vezérli", hogy működhet-e a Change rész... (bár ez sem teljesen világos előttem), hogy hogyan?... de a problémám az elméletben ott van, hogyha egyszer kikapcsoltam, mi fogja visszakapcsolni, engedélyezni, h a Change rész lefusson, lefuthasson?

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Szia!

Nagyjából úgy kell kezelned, mint az application.enableevents kapcsolót. Hiszen azt is ki-be kapcsolgatod.

A userformban definiálsz az első sorok előtt pl. egy changetextbox_name boolean változót.
A textbox_name_change eseményben pedig először azt nézed meg, hogy ez true. Ha igen, mehet tovább, ha nem, akkor kilép.
Amikor olyan utasítást adsz ki, amelyik megváltoztatja a textbox értékét, akkor eldöntöd, hogy fusson-e le a chage esemény és az utasítás előtt megváltoztatod a changetextbox_name értékét ennek megfelelően.
De ugyanez igaz akkor is, ha magában az eseménykezelésben változtatod a textbox értékét, mert az képes rekurzívan meghívni magát... Tehát a változtatás előtt change... false. Ezáltal nem fog tovább menni.
Az eljárás végén pedig chage...true és akkor a következő változtatásnál belemegy az eljárásba.

Remélem érthető.

Üdv.

sziasztok!

annak mi a fene lehet az oka, ha megadom egy fájl elérési útvonalát egy string változóban, majd egy egyszerű

Workbooks.Open (stringvaltozo)

parancsot használok, és folyamatosan 1004-es hibát dob ki. ha a debug gombra kattintok majd pedig ismét futtatom a kódot ettől a sortól, akkor pedig szépen lefut az egész makró. teljesen tanácstalan vagyok. bármi ötlet? köszi!

"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"

Jó eséllyel az a gond, hogy a stringváltozóban nem teljes vagy helytelen útvonal van.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Az útvonalon kívül a megnyitandó fájl nevét is kell tartalmaznia a változónak, kiterjesztéssel.

Const valt As String="D:\Mappa\Almappa\Fájlnév.xlsx"

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

Sziasztok!

Sima, mezei excel 2k10, amiben segítséget kérek szépen, elvileg alap, gyakorlatilag nem tudom, hogyan keressem meg, tehát:

Vannak az A oszlopban nevek, pl, Béla,Pista,Zoltán a B oszlopban máshonnan származó nevek, így formázva, aposztrófosan: 'Béla','Katalin','Pista','Zoltán'

Azt szeretném megtudni, hogy az A oszlopban szereplő nevek, pl a Pista, szerepelnek-e a B oszlopban ?
Valójában, a 2 oszlopban lévő nevek közötti eltérés kellene, mert a B oszlop 30 sorral hosszabb, de nem tudom, melyik 30 név tér el.

Mi erre a megoldás?

[ Szerkesztve ]

"Nekem a "link" egy hivatkozás legyen, ne egy ember ?!" - by Mr.CsiT

=DARABTELI(A:A;BAL(B1;HOSSZ(B1)-1))

Ez a képlet megadja, hogy a B1 hányszor szerepel az A oszlopban. Nulla értéket ad, ahol a B név nincs meg az A-ban.

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

Bemásoltam, de még ha teljesen megegyezően írom be a neveket az A és B oszlopba, akkor is 0-t ad vissza.
Nálam meg úgy néz most ki, hogy pl.
A1 : Pista
B1: 'Pista',
A2: Kata
B2: 'Kata',
A3: Lajos
B3: 'Marcsi',
B4: 'Zoltán',

"Nekem a "link" egy hivatkozás legyen, ne egy ember ?!" - by Mr.CsiT

Ebben is úgy van.

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

Kicsit módosítva jó lesz szerintem.

"Nekem a "link" egy hivatkozás legyen, ne egy ember ?!" - by Mr.CsiT

valahogy mégsem áll össze.

Az általad mutatott fájlban a B oszlopban az első aposztrófok nem látszanak, nem is dolgozik velük a képlet.

Pl. ezt

'Zoltán',

így, ahogy írtam, másold be az xls-be, nem fog működni..

"Nekem a "link" egy hivatkozás legyen, ne egy ember ?!" - by Mr.CsiT

A szerk.lécen nem látszik, de ott van, és működik.
Állj a B oszlop valamelyik cellájába, ott láthatod.

Egy másik oszlopban írd át a BAL függvényt úgy, hogy a hosszból 2-t vonjon le, a nevek végén lévő vessző miatt.

[ Szerkesztve ]

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

Eressz rá a B oszlopra egy cserét, ami az aposztófokat semmire cseréli, majd ismételd meg úgy, hogy a vesszőket tüntesse el. Ezután már egy egyszerű darabteli függvény megmutatja a 2 oszlop közötti különbséget.

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

Szia!

Ezt a képletet próbáld meg légy szíves:

Pl. C1 cellába: =darabteli(B:B;"*"& A1 & "*")

Ez minden olyan cellát összeszámol a B oszlopban, ahol az A1 cellában levő szöveg bármely helyen előfordul.
Hátránya persze, hogy Anna esetében a Panna neveket is bele fogja számolni, így azok darabszámát ki kell vonni (ha van ilyen résznév az egészben eset).

Üdv.

Sziasztok. Segítséget szeretnék kérni. Hogyan tudok összeegyeztetni cellákat ily módon?

munkalap1: dátum1 érték1 || munkalap2: dátum2 érték2

Tehát, hogy a dátum1 és a hozzá tartozó érték1 szerepel-e ugyan ezekkel az értékekkel a munkalap2-n?

U.I.: Kihagytam, hogy vmilyen kereséssel kéne, mert nem biztos(sőt biztos, hogy nem), hogy tartalmazza ugyan azokat a tételeket, és úgy van leszűrve.

[ Szerkesztve ]

Sziasztok,

Létezik Office-ban (legyen az Word vagy Excel) olyan beállítás, hogy a tálca vagy bezár gombbal nem a tálcára teszi le az adott dokumentumot hanem az óra melletti területre? És onnan is lehessen 1 kattintással megnyitni?

Köszi

Sziasztok!

Egy VBA problémával állok szemben amit nem tudok megoldani.

Jelenleg a következő kód aktív az excelben, ami ha a G oszlopban ha új adatot viszek fel a C oszlopba beírja az aktuális dátumot:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("G1:G5000"), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, -4).ClearContents
Else
With .Offset(0, -4)
.NumberFormat = "yyyy.mm.dd"
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub

Ezt kellene kiegészítenem egy olyan kóddal ami ha a G oszlopban beírok egy új adatot akkor az előző sor formuláit felülírja az értékeikkel.

A segítségeteket előre is köszönöm!

Szia!

Az előző sor formuláit így írhatod át értékre:

.offset(-1,0).entirerow.value=.offset(-1,0).entirerow.value

Ha egy meghatározott tartomány értékét szeretnéd felülírni, akkor pedig

range(.offset(-1,-4),.offset(-1,5).value=range(.offset(-1,-4),.offset(-1,5).value

Az előző sor 10 celláját írja felül az értékével.
Megjegyzem, hogy ez a módszer csak összefüggő tartományon működik.

Üdv.

Köszönöm!

Az első verzió megoldotta a problémámat!

Szép estét!