Keresés

Nem egészen világos elöttem, hogy hogy milyen szabály szerint írja át a vba a változók exlpliciten meghatározott típusát. Az alábbi példában a szorzás mindkét Dim-nél  overflow-t eredményez.  De amíg ehhez az elsőnél át kell írnia  Dim c#-t, addig a másodiknál meg változatlanul kell hagynia a c%-t. A kérdésem tehát, hogy milyen szabály szerint alakul a változók típusa?

Sub valttipus()

Dim a%, b%, c#
''Dim a#, b%, c%

a = 2: b = 20000

c = a * b

End Sub

Szerintem nem zavaró, inkább vicces :) Elképzelem, hogy mi lehet mögötte: egy lelkes ember, aki annyira bír lelkesedni, hogy minden mondat szinte kirobban belőle :))

Mivel olyan kort írunk, amikor az ember már a levelet indító megszólítás után sem meri kitenni a felkiáltójelet, nehogy sértőnek, agresszívnek, stb. tűnjön, a hsz-eid tulajdonképpen üdítő változatosságot jelentenek :)

Most arra inspiráltam, hogy a 22932 előtti hszeket elolvassam. Múltkor nem értettem, most már értem :)

Lehet furcsa, de nálam ez már megszokás, beidegződés. Ígérem, ha ennyire zavaró, akkor majd odafigyelek, hogy mi kerüljön a mondat végére. 

Ez nem az én napom.:(

A D oszlopban nem az évszámot megadó képletek szerepeltek az előző képen.

A képről lemaradt a képlet vége.

A G2 képlete: =DARABHATÖBB($B$2:$B$7;$F2;$D$2:$D$7;G$1)

A 2007-es verziótól kezdve a darabhatöbb függvénnyel könnyen megoldható.

Pivottáblagyanús...

Sziasztok!

Tudnátok segíteni abban, hogy képlettel meg tudom-e azt csinálni, hogy darabteli függvényt még szűröm dátumra is.

Az alaptáblám ez, de van kb. 15 munkalap, s mindegyiken van több adat (van ahol 100 sor is van):

Munka1

xxx    AB       2012.08.01

yyy    CD      2013.10.10

zzz    AB       2013.10.22

Munka2

xyz    CD      2013.11.02

Azt csináltam eddig, hogy Darabtelivel összeszámoltatttam egy összesítő munkalapra, hogy Munka1 B oszlopában van 2db AB, 1 CD.  De itt, így nem tudom, hogy mikor dátummal.

Így néz ki:              

                          AB            CD         EF 

Munka1               2               1          0

Munka2               0               1          0

Munka3

stb.

Azt szeretném kiíratni, hogy 2012-ben hány db AB van. (vagy épp 2013-ban)  Ezért ezt kellene még szűrni úgy, hogy dátumra is be tudjam állítani. Tehát ha azt adom meg, hogy 2012, akkor nem 2 AB lesz, hanem csak 1,mert a többi nem abban az évben volt.

Gyakoraltilag úgy kellene, mint egy Kimutatásnál, hogy ott a dátumra tudok szűrni, s akkro csak azt jeleníti meg. Csak képlettel vagy szűrővel.

Köszönöm

:-)))

Lemaradtak a felkiáltójelek!

Private Sub GépINF1_Click()!
sor = Application.Match(Me.Gépszám1, Range("C:C"), 0)!
      If VarType(sor) <> vbError Then!
             ActiveWorkbook.FollowHyperlink Cells(sor, "I").Hyperlinks(1).Address, NewWindow:=True!
      End If!
End Sub!

;-)

Sikerűlt megoldanom a dolgot a következőképpen! Ha netán valakinek szüksége lenne rá:

Private Sub GépINF1_Click()
sor = Application.Match(Me.Gépszám1, Range("C:C"), 0)
      If VarType(sor) <> vbError Then
             ActiveWorkbook.FollowHyperlink Cells(sor, "I").Hyperlinks(1).Address, NewWindow:=True
      End If
End Sub

Remélem valakinek segítségére válik majd!

Sziasztok! Sikerült elkjészíteni a táblázatomat, (hatalmas köszönet Delila10-nek)! Minden funció, amit akartam, működik rajta! Munkatársaim nagy örömére :) ! Volt viszont egy kérésük, hogy az adatok bevitelére egy ablakot lehetne-e használni? Elkezdtem Userformos "önoktatásomat" és sikerült megcsinálnom úgy, hogy az adatokat azon az ablakon keresztül lehessen bevinni! Viszont:

A táblázat fő tulajdonsága az, hogy bizonyos oszlopok sorainak kitöltésekor egy másik oszlopban megjelennek az adatok, a bevitt elemhez! Az adatok persze egy hivatkozás, amire rákattintva egy txt, vagy doc típusú file-t nyit meg! Szóval userformos ablakomon elhelyeztem 3 gombot és szeretném, ha az adatok bevitelekor a megjelent hivatkozások ezekkel a gombokkal megjeleníthetőek legyenek! Mindig az aktuális sor hivatkozásai!
Szóval, a gombhoz milyen parancssort kellene beírnom, hogy az adott oszlop utolsó kitöltött cellájában lévő adatot megnyissa?

Én is köszönöm a korrekciót. Elsősorban azt, hogy a sor/oszlop long és nem integer. Mert az emiatti hiba korrekciójával biztos sokáig eltökölnék :)))). 

Köszönöm a segitséget!!!!

Arra persze figyelni kell, hogy a Munka1 helyére a kívánt munkalap neve kerüljön. És nyilván lehet olyan eset, amikor azt akarjuk, hogy mindig az aktív munkalapon induljon a makró. Ilyenkor akkor a ThisWorkbook.Worksheets("Munka1") rész nem kell, tehát az eredeti megoldás részben jó.

De a "Set itt_van = ...." szerkezet használata továbbra is indokolt.

Ez a megoldás azért nem tökéletes, mert csak az aktív munkalapon működik, és ott is csak akkor, ha van rajta "XY" részértékű cella. Máskülönben hibára fut, és az nem mutat jól egy makróban. Helyette ajánlanám az alábbi megoldást. Kicsit többet kell hozzá gépelni, de cserébe nem fog csütörtököt mondani.

Dim itt_van As Range, sor As Long, oszlop As Long

Set itt_van = ThisWorkbook.Worksheets("Munka1").Cells.Find(What:="XY", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If itt_van Is Nothing Then
    'nincs találat
Else
    sor = itt_van.Row
    oszlop = itt_van.Column
End If

a$ = ActiveCell.Address
b%= ActiveCell.Row
c %= ActiveCell.Column

Sziasztok!

Hogyan tudom  makróban egy adott cellát megkeresni, majd az adott cella sorának értékét egy változóban eltárolni? A keresés még ok:

Cells.Find(What:="XY", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

utána viszont az aktiv cellának a pozicióját (sor, oszlop) hogyan tudom egy változóba eltárolni.

Köszönöm a segitséget!!!

R

Bizony így van. És ez nagy hibája az autószűrőnek. Mert azért úgy illene, hogy a 255 karakternél hosszabb stringekből is lássa az első 255 karaktert. De valamiért erre nem készítették fel.  Az írányitott szűrőnek azonban 32 ezer karakterig nincsenek ilyen korlátai. 

Úgy tűnik én tévedtem a múltkor. Nem mindet jeleníti meg a szűrés kiválasztásához. Ezek szerint cellánként a max. 255 karaktereseket jelenti meg.

Valahogy többnek tűnhetett felsorolás a szűrőben a 2007-esben mint a 2002-esben, de nem. Pedig nem bántam volna, ha a 2007-esben nincs ez a korlát.

Szia!

Meg fogom csinálni.

Előtte még megérdezem, hogy 1 cellában érvényes a 255 karakter vagy a szűrendő oszlopban az együttesre vonatkozik?

Ja, hogy te az e-mailre gondolsz! Bocsi, privinek a belső üzenőket szokták hívni.

Hát két eset van: vagy megjelenik a "küld" az adatlapon, vagy nem. Ha nem, akkor az illetőnek nem publikus az e-mail címe, meg kell kérni, hogy ő írjon neked. Egyébként ha ide beírod egy kicsit megbontva a címet, nem kockáztatsz sokkal többet, mint ha az adataidnál publikussá teszed a beállításokban.

Ha van küld, és mégis hiába kattintasz rá, akkor nincs jól beállítva a levelező azon a gépen, jobb egérgombbal lehet a címet kimásolni.

Vagy én nem értelek.

Működött régebben, azóta is levelezek INNEN néhány fórumtaggal.

A hozzászólásban rákattintasz a fórumtárs nevére, feljön az adatlapja, ott egy "küld" szövegre kattintva már írhattad is a levelet. Most kattintgatgatok estig, nem történik semmi.

2003-ban csináltam, szépen beteszi, ahova kell.

Ha nem is azonos vele, attól még transzponál. Illetve ami nagyobb baj: CSAK transzponál. Nálam legalábbis. Te hogy csinálod, hogy nálad ne transzponáljon a munkalapra kííratáskor? Mert fordítva, tehát a munkalapról vba tömbbe íratáshoz írt makródban nálam sem okozott gondot. 

Szia!

Írod, hogy egyelőre még maradsz  az excel 2003-nál.  Ezért felteszem neked ide a 2003-asra írt HAHIB nevű HAHIBA analalógomat.  Jól jöhet a 2003-ban a különböző keresőfüggvények #HIÁNYZIK! stb hibáinak lekezeléséhez.  Használata   megegyezik a HAHIBA-éval.

A modult bővítményként célszerű telepíteni.

Function hahib(parancs, hibanal)

'Lekezeli a hibát; excel 2003-ra írt hahiba

On Error GoTo cimke

    If IsError(parancs) Then

        hahib = hibanal

    Else

         hahib = parancs

    End If

    Exit Function

cimke:

    Resume 0

End Function

Feltöltöttem a datára és mellé egy txt file-ban azt, hogy mi lenne a 

célom! Remélem lehet valamit kezdeni vele!

http://data.hu/get/7082616/Desktop.rar

Szerintem ne jelezd, mert egy másik fórumra gondolhatsz. 13 és fél év fórumozáshoz és lassan 2¹⁶ hozzászóláshoz közeledve én még nem találkoztam ilyesmivel.

Eddig lehetett privátot küldeni. Most azt sem találom, hol kellene jelezni, hogy nem működik.

Miért, volt itt valaha ilyen szolgáltatás? :-O

Adnék, ha működne a privi küldése. Itt nem akarom megadni nyilvánosan a címemet, így is nyakra-főre le kell tiltanom a beérkező reklámokat.

Később megint megpróbálom, hátha helyreáll ez a szolgáltatás.

A transpose utasítás nem azonos a transzponálással.

Korrigálom ezt az állitásomat:

Ha ennél hosszabb szövegeket akarsz szűrni, használd a special (írányított) szűrőt. Annak is van korlátja, de lényegesen magasabb.

Utána néztem. A 2007-es excel special szűrésének már nincs stringhosszúsági korlátja. Ahány karakter befér a cellába (max 32 ezervalamennyi), azokat mind látja a szűrésnél. A 2003-as excelben ehhez még trükközni kellett

Igazad van, Delila tanácsát sikeresen félreértettem:-( Amit írsz, azzal tényleg működik.

???

Inkább privátban küldeném! Adsz egy címet, vagy megtalálom valahol itt az oldalon?

Rendben! Akkor holnap reggel átküldöm, és leírom, hogy mi is lenne a terv! Nem gondoltam, hogy ennyire bonyolult lesz az elkészítése ne haragudj! És köszönöm!

Nagyon fincsi. Köszi.

Szia!

Ha a tömb egy dimenziós és 9 elemű, akkor simán a következő az értékadás:

Range("M11:M19").value=tmb

Ez akkor működik, ha a tartomány sorainak és oszlopainak száma megegyezik a tömb dimenziójával.

Üdv.

Szia!

Neked és mindenkinek aki a tömbképlettel foglalkozott eddig:

A 2003-as azért nem tudja kezelni a teljes oszlopra vonatkozóan megadott 2007-es tömbképletet, mert a 2007-esben a sorok száma már nem 64 ezer x, 2010-ben több, mint 1 millió.

Ezt nem veszi be a 2003-as "gyenge gyomra".

Üdv.

Megismételném 22867-es kérdésem.  Nem csak Delilának.   Ebben a sorban:   

Range("M11:M19")=Application.Transpose(tmb)

mire kéne kicserélni a transpose-t, hogy a tmb() tomb adatait ne transzponáltként vigye az m11:m19 cellákba?

Szia! 

A magasabb verzióra bár érdemes áttérni, de a tömképletbeli problémád miatt felesleges. Ha Delila tanácsát nem értetted volna félre, akkor ezt már te is látnád. Delila nem az javasolta, hogy csak az első 7 sorba írd a tömbfüggvényt, hanem hogy a tömbfüggvényben vizsgálandó tartományokat precízen add meg. Tehát a 2003-as excelben  ez a képlet működik az 1-7 sorokra:

{=Max(HA(F1:F7=”aktív”;A1:A7))}

Éni is megnéztem a feltöltésedet  2007-tel.  Már az is konvertálta a #SZÁM! hibát. Amit a 2003-ban az okozhatott, hogy a 2003-as a tömbképleted az A:A, F:F hivatkozásokat nem tudta kezelni.

Szia. Örülök, hogy át tudtad hidalni a stringhosszbeli problémát. Az viszont meglepett, hogy a 2007 füzetben nem tapasztaltad a 255 karakteres határt. Ugyanis 2007-es füzetben mértem ki a 255-t. Ezek szerint rosszul. Megcsinálnád a kedvemért, hogy csinálsz egy garantáltan hosszabb stringet, és megnézed, hogy listázza-e a 2007-es autószűrő? Aztán írd meg légyszí, hogy mit tapasztaltál.

Nálam szépen muzsikál a 2000-es, nem kér támogatást. :-)

Olyan sűrűn változtatsz a lap felépítésén, hogy nem tudlak követni.

Legjobb lenne, ha kitennéd a füzetet egy elérhető helyre publikus adatokkal, vagy elküldenéd priviben, de előbb goldold jól át, mit hol szeretnél megjeleníteni.

Meg is van a hiba oka. A két verzió közti különbség okozta. Amikor a 2007-es alatt kompatibilis üzemmódban akarom menteni a fájlt, akkor a program figyelmeztető üzenetet küld: "A munkafüzetben lévő tömbképletek némelyike egy teljes oszlopra hivatkozik. Az Excel régebbi verziói ezeket a képleteket várhatóan #SZÁM! hibává fogják alakítani újraszámításkor."

Sajnos kénytelen leszek hamarosan áttérni, pedig nagyon nem szeretem a 2003 utáni verziókat:-(

Ebben nagyon konzervatív vagyok. Még mindig a 2003-assal dolgozom. (Csak végső esetben, ha majd jövőre beszűntetik ennek is a támogatását az XP-vel együtt - ha jól tudom - akkor fogok áttérni). De hát a tömbfüggvényt a 2003-as is ismeri.

Viszont a kérdésed után kipróbáltam egy masik gépemen 2007-es változat alatt, és ott működik. Akkor most már csak azt kell tisztáznom magammal, hogy a két verzió közti különbség okozza-e a hibát, vagy az asztali gépemen a 2003-as valamelyik beállítása okoz gondot.

Szia!

Milyen excel verziód van? Nálam 2010-en a kompatibilis üzemmódban megnyitva a #Szám!-ot azonnal átírja számra, amit dátumformátumosíthatok.

Üdv.

Azt hittem így már egyszerűbb lesz, de ahogy az lenni szokott, tévedtem! A makró amit küldtél tökéletesen működik le a kalappal!
Úgy gondoltam, hogy ha mégegyszer bemásolom a makrót, de módosítom a célokat, úgy frankón működni fog ugyanazon a lapon! Hát nem! Szóval az amire kellett, hogy az adatokat egy másik munkalapról áthozza hivatkozással együtt, az működik, de én ugyanezen a lapon szeretném ezt még egyszer alkalmazni, csak más célterületre! 

Jelenleg: A D oszlopban változtatok, és a hozzá tartozó dokumentum megjelenik a H oszlopban!

Viszont nekem szükségem lenne arra, hogy a C oszlopban amit kiválasztok, az ahhoz tartozó dokumentumot ugyanúgy áthozza a másik "ADAT" munkalapról a G oszlopba! 

Ha a makrót bemásolom, akkor a keres kifejezésre hibát dob ki, de valószínűleg, ha ezt orvosolnám, akkor jönnének a többi hibák is! Van megoldása ennek! Ha igen, akkor milyen infora lenne szükség a segítségben?

Köszi előre is!

De valami egyéb hiba kell, hogy legyen nálam. Ha az A és F oszlopokba számokat írok, és ehhez kötöm a tömbfüggvényt pl.: =MAX(HA(F:F=2;A:A)), akkor is #SZÁM! az egyes cellák értéke.

Köszönöm. Ha jól értem, arra gondolsz, hogy - tekintettel arra, hogy az F oszlopnak csak az első 7 sorát töltöttem ki - csak az első 7 sorba írjam a tömbfüggvényt?

Kipróbáltam így is, sajnos változatlan eredménnyel. Kipróbáltam úgy is, hogy egy munkalapon csak az első néhány sort töltöttem ki, a tömbfüggvény nekem így sem működik a mintapéldámban megadott szerkezetű adatokkal:-(

Oké, meglett a hiba és javítva! Most már minden ok! Köszönöm mindenkinek a sok segítséget! :)

Köszi, működik, még pluszba kért egy End If sort,  de végül is összejött! A baj az, hogy így az előző dátumbeíráshoz használt makró csak akkor írja ki a dátumot, ha a cél mezőbe szerkesztek! Eddig úgy zajlott, hogy a soron belül bárhol változtatok, a dátum azonnal beíródik! Ahhoz is használok modul-t és thisworkbook-ot

Ez a munka1 makrója:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sorBeir As Integer, nev 'helyfoglalás a változókhoz
If Target.Column = 4 Then 'ha a bevitel oszlopa a B, akkor
nev = Target.Value 'a nev válztozó vegye fel a kiválasztott értéket
sorBeir = Target.Row 'a sorBeir változó vegye fel a beírás sorának a számát
Keres nev, sorBeir 'Meghívjuk a Keres makrót, átadva a nev és sorBeir változók aktuális értékét
If Target.Count > 1 Then _
MsgBox "Ha több cellát szerkesztesz egyszerre, nem működik.": Exit Sub
If Target.Column > 1 Then
Call AddDate_sh(Target.Row)
With ActiveSheet
If Application.WorksheetFunction.CountA(.Range(.Cells(Target.Row, "B"), _
.Cells(Target.Row, "G"))) = 0 Then Call RemoveDate_sh(Target.Row)
End With

End If

End If

End Sub

Ez a ThisWorkbook:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Call LockCells_sh

End Sub

Private Sub Workbook_Open()

Call LockCells_sh

End Sub

Ez a modul1 (az első makrómhoz):

Option Explicit

'made by RHCPgergo
'nagy.gergely1888@gmail.com

Sub LockCells_sh()

Dim Rng As Range

With Munka1
.Unprotect "jelszavam"
.Cells.Locked = False
For Each Rng In .Range("A1:A30")
If Rng.Value <> "" Then Rng.EntireRow.Locked = True
Next Rng
.EnableSelection = xlUnlockedCells
.Protect "jelszavam", UserInterfaceOnly:=True
End With

End Sub

Sub UnProtect_sh()
ActiveSheet.Unprotect "jelszavam"
End Sub

Sub AddDate_sh(MyRow As Long)
Munka1.Range("A" & MyRow).Value = Now
Columns(1).AutoFit
End Sub

Sub RemoveDate_sh(MyRow As Long)
Munka1.Range("A" & MyRow).Value = ""
End Sub

És ez, amit Te küldtél:

Sub Keres(nev, sorBeir)
Dim sor As Integer
sor = Application.WorksheetFunction.Match(nev, Sheets("Adatok").Columns(5), 0) 'Az Adat lap G oszlopában (6) meghatározza a nev változó sorát (a HOL.VAN függvény VBA-s megfelelője a Match)
Sheets("Adatok").Range("E" & sor).Copy Sheets("Munka1").Range("H" & sorBeir) 'másolás
End Sub

Ezeket használom jelenleg!

NE teljes oszlopokra írd meg a tömbfüggvényt, hanem csak a kitöltött területekre. Akkor működik.

Olyan aprók a karakterek, hogy nem sokat tudok kivenni belőlük, pl. nem látszik, hogy a feltételek melyik oszlopokra vonatkoznak.

Azért próbáld meg, hogy a 2. makróból az összes sort átteszed az első elejére, a másodikat pedig megszünteted.

Hát akkor jobb híján megadom a tesztfájlt, hátha abból kiderítite, hogy mit bénázok el: http://data.hu/get/7079712/tombfuggveny_teszt.xls

Sajnos nem tudom futtatni a makrót, mert már azonos "nevű" függvény van a szerkesztőben, ami megadja a sorbeírás dátumát!

Adok egy képet! Össze tudom rakni a 2 makrót, hogy egy "néven" szerepeljenek?

Köszi. Annyira nem érdekes, mert egy külön oszlopban van egy sorszám azonosítója, az alapján tudok szűrni. Csak ugyebár a sorszámból nem látom, hogy az mit takar. Emiatt lenne jobb a szöveg szerinti szűrés.

2007-es excelben megnyitva ugyenezt a munkafüzetet viszont nincs ilyen hiányosság. Nem tapasztalom, hogy 255 karakter lenne a korlát.

Szia!

Próbáld így beírni az F oszlopot:  ="Aktív" és ="Inaktív"

Szerintem akkor működik a képlet.

(Az A oszlopban valódi dátumértékek legyenek a beíráskor.)

Üdv.

Szia!

Elképzelni sem tudom mi a probléma nálad. Most újra teszteltem a képletet dátumokkal, normál számokkal, és működik. A dátumokat beírtam stringnek is, de akkor 0-t ad eredményül és nem #SZÁM! hibát. A képlettel mindenféle hibát (#érték!, #név!), elő tudtam idézni, de #szám!-ot azt nem. Tehát elképzelni sem tudom, hogy nálad mi okozhatta. Talán a dátumok számformátuma nem megfelelő. Próbáld ki a képletetet normál számokkal is, ha azokkal működik, akkor nagy valószínűséggel a dátumfomádat nem szereti. Ha nem, akkor valami excelbeállítási probléma lehet. Nálam a Lotus kompatibilitás szokott időnként nem várt eredményhez vezetni. Lehet hogy nálad is van valami extremítás. Ha nem boldogulsz, küldd el priviben, hagy nézzem meg én is.

És végül: Van egy olyan gyanúm, hogy valamit egészen másképp csinálsz mint kéne. Ezt abból gondolom, hogy ezt írod:  "de valamennyi cellában #SZÁM! az érték, akár aktív, akár inaktív szó áll az F mezőben". Hol vannak ezek a valamennyi cellák? Amikor összesen  csak 1 cella értéke fűgg az F mezőbeli beírásoktól. A max képleté.

Nem hosszú 1-re, hanem hosszú í-re. És nem megoldásogra, hanem megoldásodra (és nem osztogatnak, hanem fosztogatnak:-)))

Akkor most egy pillanatra visszatérnék egy több mint 3 hete elhangzott megoldásogra, a tömbképletre.  Djmorphy 22505-ös kérdésére az =Max(ha(F:F=äktiv";A:A)) képletet javasoltad megoldásnak tömbképletként beírva.

Érdekelt a dolog, kipróbáltam, és nekem semmiképp sem akar összejönni. A tömbképlet rendben megjelenik {=MAX(HA(F:F="aktív";A:A))}, de valamennyi cellában #SZÁM! az érték, akár aktív, akár inaktív szó áll az F mezőben. Az A oszlopban dátumok vannak 2013.01.01, 2013.01.02 stb. formában, az F oszopban aktív, vagy inaktív, ügyelve a hosszú 1-re.

Ha a függvényből a MAX() részt elhagyom, akkor is ugyanez az eredmény.

Vajon ez miért nem működött nálam. Akkor nem akartam rögtön megzavarni a dolog megoldását a kérdésemmel, de azért továbbra is érdekel.

Ezt hívja Dale Carnegie mesterelmének, ezért érdemes ilyen fórumokban tagnak lenni.

Pont jókor. A probléma a tripletek munkafűzeti és vba sorbarendezési különbsége  volt. 

A legszebb ebben a történetben, ahogy egymásra épültek a fejlemények. Ahogy tisztázódott. 

És én még el sem olvastam, mi volt a feladat, csak a tripletek rendezésénél kapcsolódtam be. :-)

Valamit azonban nem értek ennél az autoszűrőnél. A 255 karakternél hosszabb stringeket is illene szűrnie az 1-255 karakter alapján. De nem teszi. Miért? Úgy dereng az írányított szűrőnél nem volt ilyen probléma.

Szia!

Benne van a VBA elején az Option utasítások között. Ugyanott van az Option Base is. Valamint a szöveghasonlító strcomp függvény magyarázata is hivatkozik rá.

Én sokkal izgalmasabbnak és újdonságnak találtam a magyar kettősbetűk ügyét.

Üdv.

Klassz! Máris megérte feltenni ide a problémát. 

Az autószűrőnek van korlátja. 255 karaktert képes szűrni. (excel 2007)

Ha ennél hosszabb szövegeket akarsz szűrni, használd a special (írányított) szűrőt. Annak is van korlátja, de lényegesen magasabb. Hogy mennyi, arra nem emlékszem, de sok, több mint ezer. Arra viszont emlékszem, hogy nekem még annak a korlátját is túl lépve kellett szűrnöm (excel 2003-mal). meg is oldottam. De József feltett ide a fórumra  egy az enyéménél elegánsabb megoldást, ami szintén többezres stringeket volt képes szűrni. De megtalálni...... Talán ha olvassa, kedve lesz újra ismertetni. Ha nem és szűkséges lesz, megírhatom az én módszeremet. 

Ja és elfelejtettem itt a táblázatba betenni az összetett magyar betűket, de kipróbáltam, és az opció alkalmazásával azokat is a magyar ABC szerint rendezi, ahogy ezt megírtad.

Ezt valahová fel kéne írni a topikkincstárba...

Megtaláltam a megoldást a VBA-ban. Ha a modul elején elhelyezzük az Option Compare Text utasítást, akkor az adott nyelvi beállításokat veszi figyelembe. Ki is próbáltam ezt, és az alábbi táblázatban szedtem össze az eredmények közti különbséget:

Option Compare Text

nélkül rendezve            Option Compare Text használatával rendezve

Az                                      Az

Er                                       az

Iz                                        Áz

Ok                                      áz

Ut                                       Er

az                                       er

er                                        Ér

iz                                        ér

ok                                       Iz

ut                                        iz

Áz                                      Íz

Ér                                       íz

Íz                                        Ok

Ók                                      ok

Ön                                      Ók

Út                                       ók

Üt                                       Ön

áz                                       ön

ér                                        Őn

íz                                        őn

ók                                       Ut

ön                                       ut

út                                        Út

üt                                        út

Őn                                      Üt

őn                                       üt

Űt                                       Űt

űt                                        űt

Ez kicsit csúnyácska lett, de a lényeg látszik. Tehát az opció nélkül lefuttatva a nagybetűk előre kerültek, az á, é, í ó, ö, ú és ü utánuk, ezen belül is a nagy-, majd a kisbetűk, aztán az Ő és ő végül az ű és Ű. Az opció használatával csak a nagybetűk kerülnek a saját kisbetűs párjuk elé. 

Sziasztok!

2002-es Excelben autószűrőt használok a mukalap oszlopaira. Az egyik oszlop celláiban (20 cella kb) elég sok szöveg van, van közte egyforma is és van különböző tartalmú is, kb 14 fajta van. A fönti szűrő gomb lenyílásakor azonban csak 6 szűrési lehetőség jelenik meg. Létezik, hogy van valami karakterbeli korlát? És emiatt nem listázza a többit?

:-)

Nem is olyan meglepő, hogy ezeket hátrébb sorolja, hisz így már másik betű. Ez az alapja az Excel sorbarendezésének.

Czanyik Katalin

Csabai Gyula

Pátzai Pál

Pátyi Lajos

Ezek Excellel ábécébe rendezett nevek. Tehát általában így előnyös. Néha meg nem. :-)

Kösz. De a transpose mellé kérnék egy másik kíírási utasítást is. Olyat, amelyik nem transzponal. 

Két makró szükséges hozzá. Az elsőt a Munka1 lapodhoz kell rendelned (ahogy az előzőnél).

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sorBeir As Integer, nev  'helyfoglalás a változókhoz
    If Target.Column = 2 Then  'ha a bevitel oszlopa a B, akkor
        nev = Target.Value   'a nev válztozó vegye fel a kiválasztott értéket
        sorBeir = Target.Row  'a sorBeir változó vegye fel a beírás sorának a számát
        Keres nev, sorBeir  'Meghívjuk a Keres makrót, átadva a nev és sorBeir változók aktuális értékét
    End If
End Sub

A másodikat modulba tedd. VB szerkesztőben Insert | Module. A kapott üres lapra másold be:

Sub Keres(nev, sorBeir)
    Dim sor As Integer
    sor = Application.WorksheetFunction.Match(nev, Sheets("Adat").Columns(6), 0)  'Az Adat lap G oszlopában (6) meghatározza a nev változó sorát (a HOL.VAN függvény VBA-s megfelelője a Match)
    Sheets("Adat").Range("G" & sor).Copy Sheets("Munka1").Range("G" & sorBeir) 'másolás
End Sub

Az első figyeli a Munka1 lapon történt változásokat. Mikor a B oszlopban kiválasztasz egy adatot az érvényesítésből, akkor a változás értékét (a megadott adatot), és a változtatás sorát átadja a modulba írt makrónak. Erre azért van szükség, mert az egyes lapokhoz rendelt makrók csk a saját lapjukon tudnak dolgozni.

SK! Megemelem elötted a kalapom. A munkafüzeten alkalmazott < reláció a magyar abc szerinti müködik, míg a vba-é az angol szerint.  Amint az a berakott táblázaton is látható, csak a magyar kettős betüknél borult a reláció. Nagy meglátás volt! Elismerésem.

(A táblázat elég nagy, ha a fórummotor nem fogadná felteszem egy elérhető tárhelyre)

A függvényként való működtetésnél egyszerűen a tömb nevét adom át paraméterként:

Dim tömb(elemszám) ' vagy ReDim tömb(elemszám)

' tömb feltöltés

Call quicksort(tömb) 

A stringgel kapcsolatos hiba okára nincs ötletem. Én is megnéztem, és nálam is jó volt a sorrend, de ellenőrzéskor hibásnak jelezte az Excel az általad megadott párokat.

Viszont, amikor kipróbáltam ezek rendezését, és találtam egy hibát a programban. Ugyanis az elmúlt évtizedekben eddig kizárólag számokkal használtam az algoritmust, így két változót hibásan numerikusnak (Double) deklaráltam Variant helyett. Az érintett sor helyesen: Dim aktelem As Variant, segédvált As Variant. De ezt Te nyilván korrigáltad, hiszen lefutott nálad a program a stringekkel.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sor As Integer
If Target.Column = 4 Then
sor = Application.WorksheetFunction.Match(Target, Columns(8), 0)
Cells(sor, 9).Copy Cells(Target.Row, 4)
End If
End Sub

Megpróbáltam, töröltem a Selection-t, beírtam a lapnevet, de nem történik semmi! 
A Munka1 fülön a G oszlopba kellene, hogy betegye a másolatot az Adat fül G oszlopából! Egyébként a Munka1 fül C oszlopában listázom ki az Adat fül F oszlop adatait, amiből választok! 

Egy részletes magyarázatot tudnál adni a kód sorairól, hogy ha itt és itt változtatok, akkor mi történik, csak, hogy több helyen is tudjam ezt alkalmazni, és a jelenlegi funkciójára is rá tudjam bírni?

A makró címéből vedd ki a Selection-t.

Add meg a füzet nevét, és a lapnevet, ahonnan másolni akarsz.

 Ez lemaradt! :)

Köszönöm Delila10 a kódot! Működik bár nem teljesen úgy, ahogy szeretném mert a B oszlopba, ha üres mezőre kattintok, hogy kilistázza választási lehetőséget, hibát ír ki! Ezt ki lehet valahogy küszöbölni? 
Úgy működik az egész, hogy a B oszlopban kilistázza a tételt én kiválasztom az egyiket és a D sorban a hozzá rendelt ajánlat megjelenik.
Jelenleg a hibánál, ha a stopra kattintok, majd újra a cellára, úgy már megjelenik az amire szükségem van!
Még egy kérdés: Mivel ez a táblázat, amikről a képeket készítem csak szemléltetésnek van így a valós táblázatom nem teljesen így nézne ki! Meg lehet ezzel a kóddal (valamelyik sor/sorok módosításával) azt oldani, hogy a cellákat egy másik munkafüzet lapjáról másolja be?

Range("M11:M19")=Application.Transpose(tmb)

Bocsánat, ez valószínűleg nem az Excel verziójától függ ilyenkor (főleg makróban), hanem a locale beállításaitól. Mi van, ha a vezérlőpultban full angolra állítasz minden nyelvi-területi beállítást?

Próbáld ki angol Excellel is. Az a vakmerő elképzelésem támadt, hogy esetleg a te verziód felismeri a mindegyik párban látható kétjegyű magyar mássalhangzókat, de valamiért az ábécé végére sorolja.

Na persze a data.hu link lemaradt. Természetesen :((((

Letöltőlink : http://data.hu/get/7076944/kisebb.xlsx 

Szia!

Úgy néz ki igazad van. Az 5000 tripletpárból 35-nél a bináris és a szöveges összehasonlítás valószinűleg eltérő eredményt ad.  De most mennyivel vagyunk előbbre azzal, hogy ezt megállapítottuk?  Gyakorlatilag semmivel. Mert ettől még teljesen érthetetlen, hogy ezeknél a textuális miért ad más eredményt mint a normális bináris? A többi meg a helyes relációt mutatja, mind textuálisan, mind binárisan.

Egyáltalán: mi az hogy bináris és mi az hogy szöveges összehasonlítás. A vbUse CompareOption-ról már nem is beszélve, mert azt meg nem is volt hajlandó végrehajtani.

A CSX-CTA triplet párt  vizsgálva az derült ki, hogy a CS párosítás gázos. Ugyanis a CS nem csak a CT-nél nagyobb, de T utáni többi betűs párosításnál is  (lásd az ábrát).  És ilyen gázos stringpárból még 34 akadt, de a résztvevő karakterek gyakoriságából semmi féle tendencia nem rajzolódik ki.

A gázos tripletpárokat felraktam a data.hu-ra. Hátha valakinek mondanak valamit.  

Szia!

Szerintem az összehasonlítási módtól függ, hogy melyiket látja nagyobbnak. Nézd meg az strcomp függvénnyel és látni fogod a különbséget.

Hogy miért van így azt "Redmondtól" kellene megkérdezni....

Üdv.

2000-ben jó a sorrend.

Kösz ezt a makrót!

Sub tmbinput1()
'Dim tmb(8)
tmb = Application.transpose(Range("h11:h19"))

End Sub

A kérdésem most az, hogy van-e ennek inverze? Tehát hogy tmb tömböt másolja be munkafüzet range-be ciklus nélkül?

Hát gratulálok!

Ott kezdeném, hogy már a buborékkal is nagyon meg voltam elégedve, mert még az 1000 elemű tömböt is 1 mp alatt sorbarendezte. A 10.000 elemü tesztömböt már észrevehetően lassabban, 14 mp alatt. (Megjegyzem, sok esetben még ez is elfogadható.)

A quicksortod azonban itt már mellbevágóan gyorsabb volt. 1 mp-n belül abszolválta a 10.000 string sorbarendezését.  Szóval ismételten gratulálok. Majd tanulmányozom, hogy miként és hogyan müködik.

Annyiban azonban segítsél  légyszí, hogy hogyan kell függvényként müködtetni. Mert úgy nem tudtam. Ezért a teszthez átírtam subrutinnak. De érdekelne, hogyan használod függvényként. Honnan töltödik fel az adattömb, melyik parancs írja ki a munkalapra, ha egyáltalán vmi kiírja???

És végül egy rejtély. Lecsekkoltam a sorbarendezést, hogy hibamentes-e. ÉS a legnagyobb meglepetésemre 35 esetben Hamis-nak jelezte a következő>előző relációt.  Megnéztem egy párat, de azok mind megfeleltek az abc szerinti sorbarendezésnek. Az excel azonban valamiért kisebbnek látta a következőt mint az előzőt. Ide teszek pár ilyet:

CSX-CTA, CZS-CZV, DDZ-DEK

Ezeknél miért látja az excel  a másodikat kisebbnek? Van valakinek vmi ötlete? 

Az excellel lehet valami gubanc, és nem az ÉN excelemmel, mert megnéztem egy másik gépen is, excel 2003-mal. De az is hibásnak jelezte a nagyobb relációt ezeknél triplet pároknál. Nagybetűsen is, kisbetűsen is.

Nagyon köszönöm. Majd beszámolok, hogy nálam hogy szerepelt.

Azért csak elküldöm a saját quicksort változatomat, hátha megkönnyíti a dolgodat:

Function quicksort(adattömb)  ' Quicksort egydimenziós tömbbel

Dim i As Integer, sp As Integer, s1 As Integer, s2 As Integer, l1 As Integer, l2 As Integer

Dim aktelem As Double, segédvált As Double

Dim st1(15) As Integer, st2(15) As Integer

sp = 1

st1(sp) = 1

st2(sp) = UBound(adattömb)

Do While sp > 0 ' 1. ciklus

    s1 = st1(sp)

    s2 = st2(sp)

    sp = sp - 1

    Do While s2 > s1 ' 2. ciklus (Ha egy elemű a tömb, akkor el sem kezdi)

        l1 = s1

        l2 = s2

        i = (s1 + s2) / 2

        aktelem = adattömb(i) ' ez azért kell, mert elmozdulhat a helyéről ez az elem

        Do While l1 <= l2

            Do While adattömb(l1) < aktelem And l1 < s2

                l1 = l1 + 1

            Loop

            Do While adattömb(l2) > aktelem And l2 > s1

                l2 = l2 - 1

            Loop

            If l1 <= l2 Then

                segédvált = adattömb(l1)

                adattömb(l1) = adattömb(l2)

                adattömb(l2) = segédvált

                l1 = l1 + 1

                l2 = l2 - 1

            End If

        Loop

        If s2 - l1 <= l2 - s1 Then

            If s1 < l2 Then

                sp = sp + 1

                st1(sp) = s1

                st2(sp) = l2

            End If

            s1 = l1

        Else

            If l1 < s2 Then

                sp = sp + 1

                st1(sp) = l1

                st2(sp) = s2

            End If

            s2 = l2

        End If

    Loop

Loop

End Function

Ha jól értem, hogy mit akarsz, akkor az A oszloppal nem kell törődnőd. A B-oszlopra meg jó lehet egy DARABTELI.

Szia!

Kösz a buborék ötletet. Kipróbálom. Quicksort algoritmust is találtam a neten. Azt is megnézzem. Ha elakadok, jelentkezem.

A lapodhoz kell rendelned a makrót. Lapfülön jobb klikk, kód megjelenítése. Bejutottál a VB szerkesztőbe. A jobb oldali üres mezőbe másold be.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sor As Integer
    If Target.Column = 2 Then
        sor = Application.WorksheetFunction.Match(Target, Columns(8), 0)
        Cells(sor, 9).Copy Cells(Target.Row, 4)
    End If
End Sub

Mikor a B oszlopban rákattintasz egy termékre, a D oszlopba beírja a hivatkozását.

A terméket listázva érvényesítéssel a H oszlopból veszem, az I oszlopban pedig a .doc file-ok hivatkozásai vannak, amiket szeretnék megjeleníteni a termék kiválasztásakor a D oszlopban

A merevlemez egyik mappájából! Mindegyiknek van egy-egy .doc kiterjesztésű fájlja.

Ehhez tudni kellene, honnan "hivatkozod be" a terméket.

Szerintem van megoldás. A rendezésre a létező legegyszerűbb algoritmus a buborék rendezés: http://hu.wikipedia.org/wiki/Bubor%C3%A9krendez%C3%A9s

Az algoritmus szerintem pár perces munkával megírható excel makróban. 

Ha az eredmény nem lenne elegendően gyors, akkor esetleg meg tudok írni egy programot a quicksort algoritmussal, amelyik nagyságrendekkel kevesebb lépésből rendez. Csak az kicsit összetettebb.

Számomra nem derül ki, hogy a termékeknek az árát, vagy darabszámát kell összegezned. Ettől a feltételtől függően a darabhatöbb, vagy a szumhatöbb függvényeket nézd meg.

Sziasztok!Megint segítséget szeretnék kérni. Azt hittem most menni fog de mégis feladta a leckét :D
A oszlopban 201300001-től sorfolytonosan növekvő számok vannak. B oszlopban pedig van egy dátum(mikor scannelték be).Az a lényeg hogy kapok egy papírt hogy 201300001-től 201300020-ig A termék 20 és 50 között B termék 51 és 78 között A termék stb. Ezt kellene szummáznom termékenként.Hogy lehetne ezt megvalósítani? Valami olyasmibe gondolkozok hogy a C oszlopba írja, hogy "A termék", "B termék" mert azt már tudom szummázni. Fkeressel akartam de az nem jó erre szerintem. Milyen irányba kellene keresgélnem?

Szóval azt szeretném elérni, hogy a "B" oszlopban a termék kiválasztásakor a "D" oszlopban megjelenjen a hozzá tartozó hivatkozás! Ebben kérném a segítséget! FKERES megoldást használok jelenleg! Köszi a segítséget!

Amúgy melékesen nekiálltam kigyomlálni a select utasításokat. Ugrásszerüen megnőtt a program sebessége.

Sziasztok! Felvettem egy másik munkalapra, 2 egymás melletti oszlobba tettem az értékeket, de az egyik oszlopban hivatkozások vannak, amiket szeretnék kiválasztani /.doc/! FKERES fügvénnyel viszont csak a hivatkozás nevét tudom megjeleníteni ami így nekem nem jó! Hogyan tudnám megtenni azt, hogy a hivatkozással együtt beillessze az adott cellába?

Szia!

A select azért nem segített, mert nem volt képernyő fissítés előtte.

Persze, hogy segítséged hasznos volt. Elkezdtem gondolkodni a probléma megoldásán.

Köszi.

Gavriel.

Szia!

Az excel mindig megjegyzi az utolsó select celláját/celláit és oda pozicionál, ha a lapra lépsz. Ez nem változóban van, az excel sajátossága. Úgy tudod megváltoztatni, hogy újabb cellát jelölsz ki, amire a select utasítás szolgál. Nem azt írtuk, hogy soha nem lehet a selectet használni, csak azt, hogy feleslegesen nem szabad.

A munkalap utolsó sorát többféleképpen is megtalálhatod. Én többnyire ezt szoktam használni az utolsó üres cella megtalálására:

range("A65000").end(xlup).select az aktív munkalap A oszlopának utolsó nem üres cellájára viszi a cursort és az látszik az ablakban.

A select utasítás csak az aktív munkalapon működik.

Remélem, tudtam segíteni.

Üdv.

Közben megtaláltam a megoldást. Megfelelő helyen bekapcsoltam a képernyő frissitést és a kivánt cellába pozicionáltam. Ezután minden tábla betöltesekor a tábla vége látható a képernyő közepén.

A probléma okát megtaláltam, csak a kiküszöbölését nem.

Egy korábbi fázisban kiadtam a következő parancsot:

Selection.SpecialCells(xlCellTypeLastCell).Select

Ez rendben is van csak, hogy a megtalált sort valamilyen VBA változóban megjegyzi ezért minden egyes áttöltés után a lapot oda pozicionálja. Na ezt az előttem ismeretlen változók kellene átírni egy általam definiált sorszámra.

Azt írtam, hogy én kevésbé szeretem, nem azt, hogy baj van vele. Nekem az indexholvan rugalmasabb, és egyáltalán nem kell a rendezettséggel törődni.

Egy másik munkalapon vedd el a termékeket és az árakat, és utána vagy az INDEX(HOL.VAN()) összetett függvény megoldja a munkát.

FKERES függvényt is szoktak ajánlani ilyesmire, amit én kevésbé szeretek, ott csak arra kell figyelni, hogy az árlista ábécében legyen.

 Melléklet :)

Újra itt! Remélem túlzottan nem fárasztalak le titeket, de a segítségre szükségem van! Melléletben szereplő dolgot szeretném úgy megcsinálni, hogy az "A" oszlopban egy listából kiválasztom mondjuk az "almá"-t, és ahogy ezt megtettem, a "D" oszlopban egyből megjelenjen az ára! Szóval valahogy összerendelni a két dolgot! Hogyan tudnám ezt elérni? 

Szia!

Nekem azt hiszem, elég lesz, ha csak a beágyazott makrót küldöd el, illetve a meghívás előtti és a meghívás utáni sort. A konkrétumokat maszkold ki benne (pl. amit keresel, csak jelezd).

Ha problémám lesz, megbeszéljük priviben.

Üdv.

Húha. Ezen el kell gondolkodnom mert be van ágyazva más makrók közé.

Köszi! Nem tudtam, hogy hol kell, de már megvan! Elkezdtem újra csinálni az egészet, de be is fejeztem, mert így sikerült szerkeszthetővé tennem! Köszi!

Szerintem a továbbfejlesztés idejére fel kéne oldani a Lapvédelmet.  

bocsánat, igazad van! Nem xlsx, hanem xlsm a kiterjesztése, de sajnos nem tudom újra szerkeszteni, vagyis tovább folytatni benne a munkát! Csak az eddig beállított dolgokat tudom elvégezni benne

Igazad van. Az rhcp link gazdája csinált is rá egy makrót. De nem hinném, hogy használja.

Ha valóban xlsx, akkor az sajnos nem makróbarát :(((.

Sziasztok!

Sikerültek a műveletek, pl: csak választani lehet a listából és beírni nem, és makróval megoldani a dátumkiírást! El is mentettem egy xlsx formátumba, ami makróbarát, de most hogy megnyitnám és szerkeszteném tovább, nem enged semmit se csinálni! Vagyis csak nagyon kevés funkciót! Ez miért van? Pedig még nincs levédve sem! Jó lenne, mert nem szeretném, hogy elvesszenek a dolgok! Please, somebody help meeee! :)

Szia!

Ha elküldöd priviben a kódodnak azt a részét, ami után a táblázat végére kell állnia, szívesen segítek.

Üdv.

"a stringek abc-be rendezése nem oldható meg a munkafüzet használata nélkül"

Ezt nem mondtam. Attól, hogy én nem ismerem, más még megoldhatja. :)

:))))))

Ennél azért lehetne valamivel egyszerübben is: az első 8 karakter ascii kódjaival....

Maradok a munkalapos megoldásnál.

Kösz a választ! Amiből számomra igazolódott, hogy sajnos a stringek abc-be rendezése nem oldható meg a munkafüzet használata nélkül. Pedig reméltem, hogy lesz valamiféle munkafüzet nélküli  megoldás a Novekvo és a Csokkeno tömbök létrehozására,  hasonlatosan a numerikus adatokhoz, amelyeknél ez elérhető a large és small parancsokkal.  

Lehet, hogy nem erre a megoldásra számítasz. A makrót régebben Micu írta a Prog.hu-n.

Az A1:A10 tartományt beviszi az eredeti tömbbe. Rendezéssel előállít egy novekvo, és egy csokkeno tömböt, amiknek az egyes tagjait le lehet kérdezni, ki lehet íratni. A tartományba az eredeti tömböt írja vissza.

Sub tömb_rendez()
    eredeti = Application.Transpose(Range("A1:A10"))
    
    Range("A1:A10").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    novekvo = Application.Transpose(Range("A1:A10"))
    Range("M1:M10") = Application.Transpose(novekvo)
    
    'Összefőzés kiíráshoz
    For i = 1 To 10
        kiiras = Join(novekvo, vbCrLf)
    Next
    MsgBox kiiras
    MsgBox "A 'novekvo' tömb 6. értéke: " & novekvo(6)
    
    Range("A1:A10").Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    csokkeno = Application.Transpose(Range("A1:A10"))

    Range("A1:A10") = Application.Transpose(eredeti)
    Range("N1:N10") = Application.Transpose(csokkeno)
End Sub

Na most olvasgatok a kapott linkről és pár oldalt a makrók használatáról! Úgyhogy egy kicsit lépek! Köszönöm a segítséget, adtál sok kiindulópontot, hogy miket is keressek, hogyan is álljon össze a dolog! Ha megakadnék, jelentkezni fogok! Sokat kell még tanulnom asszem :D Köszi mégegyszer!

[quote]Valahogyan át lehet másolni a dátumos oszlopot a makróiddal együtt az én munkafüzetembe, hogy működjön is?[/quote]

Mentsd el más néven.

[quote]Nálam engedi a választást és az írást is, míg nálad csak választani lehet![/quote]

Nem tudom miért lehet ez. Esetleg amiatt, hogy az adatérvényesítésnél a hibejelzés fülön kikszelted, hogy hibaüzenet jelenjen meg?

http://www.cpearson.com/excel/SortingArrays.aspx

Elég nagy falat lehetett egy ilyen makrót megírni...

Megcsináltam egy új munkafüzeten, de ugyanaz a probléma! Valahogy levédted? Mert ugyan azt megpróbáltam, amit Te. Nálam engedi a választást és az írást is, míg nálad csak választani lehet! Valahogyan át lehet másolni a dátumos oszlopot a makróiddal együtt az én munkafüzetembe, hogy működjön is?

Alt + F11-gyel meg tudod nézni, hogy milyen kód (makrók) van mögötte. (Ez megnyitja a kódszerkesztő ablakot.)

Hogy érted, hogy "nincs táblázatnak formázva"?

Elméletileg a B oszlopba csak azt írhatod, ami a Munka2 munkalapon az A1:A3 részen található.

Apró hiba: csak ha egyszer rámentesz a fájlra, akkor gátolja meg az első oszlop meg az első sor szerkesztését.

Júj ez nagyon BABAr :) Köszi, de lenne egy gondom ezzel! Nem tudom megnézni ebből, hogy hogyan hoztad össze!

Látom, hogy nincs táblázatnak formázva , úgyhogy lehet, hogy emiatt enged mást is beírni, mert én formázztam!

Megpróbálom nem megformázni az oszlopokat és hátha úgy csak a lista elemeit használhatom, de a dátumot, ahogy megcsináltad, úgy szeretném én is!

Sziasztok!

Az lenne a kérdésem, hogy lehet-e egy egydimenziós vba-tömbben levő stringeket abc sorrendbe rendezni?  Ha igen, hogyan? Nekem az is jó lenne, ha a sorbarendezés egy másik tömbbe történne.

Ehun van. Makrókkal tudtam csak megoldani (excel 2007 btw), können lehet hogy a másik táblázat más módszerrel készült.

http://data.hu/get/7072147/Zsoltinak_gmod1.xlsm

Azt még mindig nem értem, hogy listából való adatérvényesítésnél neked miért enged más értékeket is beírni.

Köszönöm!

Köszönöm a választ!

Az első sikerült.
Sajnos a 2.-nál listából tudok választani, de ha akarok, akár beírni is tudok bármit!
A 3. : Igen, azt a dátumot akarom, amikor a sort szerkesztették és utána már, ha mentve van, ne lehessen szerkeszteni!

Találkoztam hasonló táblázattal, ami korlátozta a felhasználók jogait! PL: én csak egy adott listából tudtam választani, ki is töltöttem a sorokat, majd el is mentettem! Miután újra beléptem az általam kitöltött sort már nem tudtam szerkeszteni, de az, aki csinálta a táblázatot, tudta! Szóval az én hozzáférésem korlátozva volt! Szeretném valami ilyesformán megcsinálni és ki is próbálni! 

Nem tűnik túl egyszerűnek.

http://peltiertech.com/WordPress/fill-under-between-series-in-excel-chart/

http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=590

1. Teljes oszlopok kijelölésével el tudod rejteni őket. Ha mondjuk csak 10 oszlopot akarsz hagyni, akkor:

i) jelöld ki a 11. oszlopot (katt a fejlécre)

ii) ctrl+shift+jobbra (ezzel kijelöli az oszlopokat egészen az utolsóig)

iii) jobbklikk --> elrejtés

2. Ha a listából való adatérvényesítést megcisnáltad, akkor elméletileg nem lehet mást beírni. (legalábbis 2003-as excelnél biztos)

3. Makróval meg lehet csinálni. Azt a dátumot akarod, amikor utoljára írtak valamit az adott sorba?

(Ahhoz egyébként, hogy egy cellát ne lehessen változtatni, le kell védeni jelszóval a munkalapot és a cellának zároltnak (locked) kell lennie.)

Helló,

Két függvény által közbezárt terület szertnék kiszinezni. Erre milyen megoldások vannak? 2013as verzió. Előre is köszönöm.

Sziasztok!

Ismét kérdésekkel bombázlak titeket!

1: Hogyan tudom azt megcsinálni, hogy csak egy adott mennyiségű oszlop legyen látható?
2: Tegnap sikerült RHCPgergo segítségével listázni az adatérvényesítéssel, de szeretném azt is megcsinálni, hogy csakis a listából lehessen választani, mást beírni ne lehessen! Próbáltam ilyen-olyan védelemmel ellátni az adott oszlopokat, de nem sikerült!
3: Az egyik oszlopot dátum mutatására szeretném használni! Szóval azt ne lehessen módosítani, szeretném, hogy a sor kitöltésével automatikusan kitöltse az adott dátummal! Szóval, ha a sort elkezdem kitölteni, a dátum oszlop azonos sorában megjelenjen a dátum! Bár ezt nem hiszem hogy meg lehet csinálni, de hátha! 

Remélem jól leírtam a kérdéseket, amúgy 2007-es verzsönt használok, ha számít!

Előre is köszönöm a válaszokat!

Áttöltés után kézzel dolgozik az illető ezért kell a tábla végére menni vagy kézzel, vagy automatikusan. Ez csak egy kényelmi ok és nem funkcionális azaz a program működését nme érinti. A megirt programjaimnál mindig ügyelek arra, hogy minél kevesebbet kelljen klikkelni, keresgélni azaz a program kínálja magát. Manapság ezt kicsit bombasztikusan felhasználói élménynek nevezik. Mindig abból indulok ki, hogy a számítógépet nem ismerőknek is tudnia kell kezelni.

Köszönöm!

Köszönöm!!!!

Szerkeszteni akarok. :(

Szia!

Íme a makro:

Sub torlo()
Dim c As Range
With Columns(1)
    Set c = .Find(what:="xy", LookIn:=xlValues, lookat:=xlWhole/xlPart)
    If Not c Is Nothing Then
        Do
            c.EntireRow.Delete
            Set c = .FindNext
        Loop While Not c Is Nothing
    End If
End With
End Sub

Egy kis magyarázat hozzá:  lookat paraméter azt mondja meg, hogy teljesen egyeznie kell a cellában a szövegnek, vagy csak részben. Ha csak részben, akkor xlPart. Ekkor minden olyan sort kitöröl, ahol xy előfordul a cellában valahol.

Üdv.

Fontos, hogy makró legyen? Egszerű szűréssel is egjelenítheted azokat a sorokat, ahol egy oszlop cellái bizonyos szöveget tartalmaznak, majd az egészet kijelölve törölheted.

1. autofilter bekapcsolása
2. az A oszlopnál custom szűrés (contains "xy")
3. sorok kijelölése, egész sor törlése

Makrót se lenne olyan nehéz írni, de így egyszerűbb, ha csak egyszer kell megcsinálánod.

Sziasztok!

Egy olyan makróra lenne szükségem, ami megkeresne egy adott szöveget "xy" az első oszlopban, és miután megtalálta annak a sorát kitörölné, majd tovább keresne az A oszlopban ugyanarra a kifejezésre, addig amig az összes sort ki nem törölte azzal a szöveggel.

Tudtok ere vmilyen megoldást?

Köszönöm a segitségeteket!

üdv, Roley

Köszönöm mindenkinek a segítségét.

Köszönöm a választ! Összejött és így is akartam! Legördülő menüsen, úgyhogy ez sikerült is! Hálás vagyok, köszi mégegyszer!

Kösz a választ.  Meg a linkeket hozzá. 

Kösz! Múködik. De lenne 2 kérdésem: Miért kell a transpose? Ugyanis ha kiiktatom az Option Explicitet ami szükséges a makródhoz, akkor beolvassa a ranget anélkül is.  Másrészt meg itt mit transzponál? 

Üdv! :)

Ami neked kell az a "Data Validation" avagy adatérvényesítés. Ha ezt használod, be lehet állítani, hogy egy adott cella (vagy tartomány) csak egy lista értékeit vehesse fel. Nem ablakban ugrik fel, hanem lenyíló listából lehet választani.

1. jelöld ki azt a cellát/tartományt, ahol be akarod kapcsolni az adatérvényesítést

2. data / data validation (valami ilyesmi, csak angol 2003-as excelben tudom)

3. válaszd ki, hogy listából akarod, itt meg lehet adni, hogy az a lista hol van

4. OK

Kb. ennyi, itt van egy részletesebb magyar leírás:

http://office.microsoft.com/hu-hu/excel-help/legordulo-lista-letrehozasa-cellatartomanybol-HP010072599.aspx?CTT=5&origin=HP010072600

Ha ablakban akarod felugrasztani, azt szerintem csak VBA-ban lehet megoldani. (Az excel mögötti programnyelv.)

Szia!

A beírás korlátozását az Adatok->Érvényesítés menüpontban tudod elvégezni. Itt beállítod, hogy megengedve lista. Forrásnak csak azonos munkafüzetben levő adatokra hivatkozhatsz, de az adatok lehetnek másik munkalapon. A listát elnevezed, pl gyümölcsök.

Akkor a forrásban hivatkozhatsz így: =gyümölcsök.

Akár az egész oszlopot is kijelölheted érvényesítésre, akkor minden egyes cellára igaz lesz az, hogy csak a megadott értékek közül lehet választani.

Üdv.

Megpróbálom egy kicsit átfogalmazni a kérdésem, bár lehet hogy a válasz egyszerű, de mint mondtam, még kezdő vagyok! :)

Adott egy munkafüzet melyben az A oszlop soraiban ezek szerepelnek:

Alma
Körte
Banán
Narancs

...és adott egy másik munkafüzet, ahol ha rákattintok az A oszlop bármelyik sorára, egy lista jelenik meg (Alma, Körte, Banán, Narancs) és csak ezek közül tudok választani, szóval mást beírni nem rudok!

Hogyan tudnám ezt megcsinálni? Ismétlem kezdő vagyok ezért kicsit a szájbarágósság segítene! Ha valakinek van erre kis ideje és segítene, annak nagyon hálás lennék!

Köszönöm!

Az első azért akad ki, mert egy statikus tömböt hozol létre, amihez egy lépésben nem lehet hozzárendelni egy Range objektumot - ha jól tudom. Amikor egy dinamikus tömbhöz rendelsz Range-et, akkor egy kétdimenziós tömb jön létre. Még akkor is, ha egy egy oszlopot vagy sort (ekkor az egyik dimenzió értéke mindig 1 lesz).

A második makróban dinamikus tömbként deklarálod a H() változót. Hiába a Redim, ez akkor is fel fogja venni bármilyen Range tartomány értékét.

A harmadik makróban egyenként adsz értéket egy egydimenziós statikus tömb elemeinek, ez működik.

Innen vagyok okos:
http://www.cpearson.com/excel/ArraysAndRanges.aspx
http://www.cpearson.com/excel/vbaarrays.htm

@ Delila 22782
Ha kikommenteled azt a sort, ahol a változót hozod létre, akkor a következő sor:

tmb = Application.transpose(Range("h11:h19"))

fogja létrehozni a tmb változót Variantként - ami ugye bármi lehet - és ehhez is lehet bármilyen Range-et hozzárendelni. A transpose-ra nem is lenne szükség, ez is simán működne:

Sub tmbinput1()
'Dim tmb(8)
tmb = Application.Range("h11:h19")
End Sub

Szia!

Ha tudnánk egy kicsit többet a feladatról, nyilván könnyebben segíthetnénk, ahogy Jimmy is megjegyezte.

Az áttöltés után kézzel kell tovább dolgoznia a felhasználónak, vagy makro dolgozik tovább is? Miért kell a végére menned?

Üdv.

Szia!

Ok, persze, ha végignézed a történetet, én is ezt javasoltam neki (scrollrow). A magyarázat is alapvetően nem neked szólt, csak kifejtettem a "tömörebb" megjegyzésedet.

Üdv.

Sziasztok!

Még nagyon kezdő vagyok az excel-ben és érdekel, ezért itthon próbálkozom! Lehet többször is teszek majd fel kérdéseket, persze csak akkor, ha nem gond!

Szóval a mai napi: Van egy munkalapom ahol szeretnék egy oszlopot úgy kialakítani, hogy a sorait ne szerkeszteni lehessen hanem rákattintva egy adott listát dob ki, amit egy másik munkalapon készítek el és csak ebből lehet kiválasztani az adott sor tartalmát!

PL: Munkalap1 / A3 ra katt és ott a választási lehetőségem 1, 5, 15, 55, stb... ! Munkalap2-őn az a oszlop számai ezek! Szóval semmi mást ne lehessen bevinni, csak az adott számokat!
Van ilyenre lehetőségem?

Igen, mást csinál, de a cél az, hogy a táblázat alsó sorai látsszanak a képernyőn.

Be lehet vinni egy feltételt. Ha az utolsó sor >26, akkor az utolsó sor= utolsó sor-25.

Sub tmbinput1()
'Dim tmb(8)
tmb = Application.transpose(Range("h11:h19"))

End Sub

Sziasztok!

Lenne egy fogós kérdésem: Az alábbi 3 makró közül a tmbinput1 miért akad ki "Can't assign to array" hibaüzenettel, amikor a többi meg tök normálisan lefut?

Sub tmbinput1()    'KIAKAD
Dim tmb(8)
tmb = Application.Range("h11:h19")

End Sub

Sub tmbinput2()    'OK
Dim H()
ReDim H(8)
H = Application.Range("h11:h19")
End Sub

Sub tmbinput3()   'OK

Dim H(8), k

For k = 0 To 8
H(k) = Range("h11").Offset(k, 0)
Next k

End Sub

Azt jelenti, hogy most az áttöltést után a tábla elsősorától látszik a táblázat már pedig normál szituációban a tábla végén folytatódik a munka ezért a betöltés után manuálisan scrollozni kell. Apró, bosszantó kényelmetlenség.

A tábla vége megtalálására a Te módszered jó.

Most a javitás után egy kicsit megbolondult és nem mindig pozicionál a tábla végére. Majd holnap végig bogarászom miért tesz ezt.

Szia!

Mit értesz a tábla végére való pozicionálás alatt?

Legyen az aktív cella a tábla utolsó sorában (azaz legyen az utolsó sor első/vagy valamelyik cellája kiválasztva)? - ez a select.

Látszódjon a tábla vége, de ne legyen benne a cursor?

A tábla vége megtalálására a Te módszered jó. A megmutatására - hogy ne az eleje látsszon -  Veled együtt legalább 3 féle módot is találtunk.

Üdv.

Elegánsabb amit írtál, működik. A tábla végére való pozicionálás azonban még nem megoldott.

Megnézem amit írtál.

Megjegyzem a helpből szedtem ezt a makrót, csak a változúkat írtma át a szükségleteim szerint.

 Elöljáróban annyit, hogy:

- Azt mondod, ez egy leegyszerűsített kód, ami nyilván azt jelenti, hogy nem látjuk a lényegi funkciót. Ha látnánk, akkor talán tudnánk egyszerűbb, jobb módszert javasolni, így azonban csak az eredetileg megkezdett irányba tartó utat tudjuk kiegyenesíteni. Ha az eleve rossz, úgy is marad, hiába igyekszünk.

- Elhangzott itt már több megoldásféle, amiket én nem próbáltam, de a beküldők bizonyára igen, és valószínűleg működnek. Ezért nekem most nem az a célom, hogy elmondjam a tuti módszert, hanem csak két hibás gyakorlatra hívnám fel a figyelmed.

Az egyik ez:

Range(c.Address).Select

Helyette így kellene (ha már szelektálni akarsz):

c.Select

Mert ugye a Select ebben az esetben a Range típusú objektum metódusa, tehát direktben ki lehet adni. A Te verziód először előállítja a c tartomány címét, aztán azt konvertálja vissza tartománnyá. Olyan, mintha egy számot először megszoroznál 6-tal, aztán elosztanád 2-vel, aztán elosztanád 3-mal, hogy elvégezhesd rajta a tulajdonképpeni műveletet.

A másik a Select használata, ami az esetek döntő többségében tök fölösleges, csak mindenki azért használja, mert a makrórögzítőből ez jön ki. (Ahogy Fferi is mondta.)

Valójában a Select használata pont olyan redundáns, mint a *6/2/3 a fenti példában. Aktiválsz egy cellát pusztán azért, hogy aztán az aktív cellán hajthass végre egy műveletet. Nem lenne egyszerűbb eleve az adott cellán végrehajtani azt a műveletet?

Range(c.Address).Select
arrIndex(arrIndexAdress) = ActiveCell.Row

helyett

arrIndex(arrIndexAdress) = Range(c.Address).Row

volna helyesebb, és beépítve az első észrevételemet, így volna a legjobb:

arrIndex(arrIndexAdress) = c.Row

Ismétlem, ez nem válasz a kérdésedre, hanem két kódolási típushibának a kijavítása.

A kérdésedre azt mondanám, hogy van a kódodban egy algoritmushiba is. A FindNext utasításnak közvetlenül a Loop While előtt kellene lennie. A jelenlegi formában az első találat feldolgozása kimarad, ehelyett rögtön ugrik a második találatra, és az elsőt csak akkor dolgozza fel, amikor újra megtalálta. Pedig akkor már nem kellene.

Szia!

Bocsi a közbekotyogás miatt, de nem tömörebb, hanem egészen mást csinál.

smallscroll (metódus/method) az adott pozíciótól lép le,fel,jobbra,balra x egységet (sort, vagy oszlopot) - relatív a meghatározás, attól függ, honnan indulsz és a lépés nagyságát határozod meg az adott értékkel, ami akár negatív  is lehet.

scrollrow, scrollcolumn (tulajdonság/property) konkrétan az adott sort, oszlopot helyezi az ablak legfelső sorába/bal oldalába, vagyis mindegy, hogy éppen hol van a pozíció az utasítás kiadásakor. (És vigyázni kell rá,hogy 0-nál nagyobb legyen a megadott érték.)

Üdv.

Tömörebb. :)

Szipmatikus. Megpróbálom.

Kérdés: kipróbáltad amit a find-re javasoltam korábban (22765-ös hozzászólás)?

A ciklus azért kell mert egy sorozatot kell megtalálnia és az transzportálnia a főtáblába.

Ez miért jobb mint a SmallScroll ?

Szia!

Van még egy olyan metódus is, hogy show.

Range("A3500").show hatása, hogy a 3500-as sor lesz az ablak közepén, ha addig nem látszott a sor.

Range("U200'").show hatása, hogy az U200-as cella lesz az ablak közepén, ha addig nem látszott volna.

Figyelem, arra itt is vigyáznod kell, hogy a sor ne legyen 1-nél kisebb!

Pl. range("A" & tablazatveg).show a táblázat végét az ablak közepére pozicionálja.

Természetesen, ha az adott cellát ki is akarod jelölni, akkor a select utasítás használandó.

Kérdés: kipróbáltad amit a find-re javasoltam korábban (22765-ös hozzászólás)?

Üdv.

Sub valami()
    Dim usor As Integer
    usor = ActiveSheet.UsedRange.Rows.Count
    
    With ActiveWindow.Panes(1)
        .ScrollRow = usor
        .ScrollColumn = 2
    End With
End Sub

Ez a B oszlop – .ScrollColumn = 2 – utolsó sorát mutatja a bal felső sarokban.

Jó. Akkor mond meg,hogy tudom ráveni, hogy a tábla végére álljon és ne az elejére.

Szia!

Hát igen, minden excell makróval foglalkozónak legelőször azt kellene megtanulni, hogyan távolítsa el a makrórögzítő select-jeit, mivel azok csak azért vannak benne, mert úgy van a természete megfogalmazva, hogy az objektumot először kijelöli selecttel.(Na meg a sok scroll is remek szokott lenni benne...)

De minden objektumra lehet közvetlenül hivatkozni, ráadásul az biztosan be is talál (már persze, ha nem írtam el a nevét...). Ezért én még az "activecell, activesheet, stb." hivatkozásokat is csak nagyon-nagyon módjával használom.

Üdv.

Már megint egy fölösleges Select. Sőt, itt nem pusztán fölösleges, de még kárt is tesz...

Köszönöm, bevált:)

Szia!

Próbáld a keresést így:

 Set c = .Find("keresett string", LookIn:=xlValues,lookat:=xlwhole,searchdirection:=xlprevious)

Ez szerintem a legutolsó előfordulást fogja adni, és nem kell hozzá ciklus sem - ha nem akarod megszámolni, hányszor fordul elő.

(A lookat paramétert azért érdemes megadni mindig, mert egyébként megőrzi az előző értékét. Tehát, ha csak szövegrészletet keresel akkor =xlpart, egyébként =xlwhole.)

Üdv.

Szia.

A probléma miatt a cursor mindig az elsősorban van ezért van az, hogy smallscroll igy paraméterezve hibátlanul működik. Ez a megoldás azonban a jelenség megkerülését jelenti. A probléma okát már kezdem sejteni.

Leegyszerűsítve a következő folyamat után van ez a gond:

With Sheets("sheet").Range("A1:A65000")
       Set c = .Find("keresett string", LookIn:=xlValues)
       If Not c Is Nothing Then                'elso sor keresese
           firstAddress = c.Address
           Range(c.Address).Select
           Do                                         'tovabbi sorkereses
              Set c = .FindNext(c)
              Range(c.Address).Select
              arrIndex(arrIndexAdress) = ActiveCell.Row
           Loop While Not c Is Nothing And c.Address <> firstAddress
       End If

A "do" ciklusban az utolsó találat ujra az első sor ezért a pozicionálás is ide történik. Ha ezt megtudnám akadályozni akkor nem lenne szükség erre a hókusz pókuszra és azonnal az utolsó sorra pozicionálna

Szia!

Mivel az excel sorainak száma 1-től kezdődik, így természetesen negatív számú sorra nem tud rápozicionálni a scrollrow. Ez komoly hibája, ezért nekünk kell erre figyelni, pl. így:

Activewindow.scrollrow=iif(arrIndexMax - 25<1,activewindow.scrollrow  de ide írhatod ezt is: 1,arrIndexMax - 25)

Ebben az esetben vagy marad az ablak tetején az a sor, ami eredetileg is volt, vagy az első sor kerül oda, attól függően, mit írtál középre.

A smallscroll ezek szerint "intelligensebb", tudja kezelni, hogy negatívba nem viszi a sorszámot, hanem marad az első sorban.

Kipróbáltad amit azzal kapcsolatban írtam? (Nyilván a 25 sor az elméleti, az a kérdés, mennyi látszik az ablakodban.) De nézd meg nagyított nézetnél is lsz (amikor az ablakban pl. 10-12 sor látszik csak).

Valószínű, hogy amikor behívod a táblázatot, akkor az első sor kerül az ablak legfelső részébe, ezért múködik a smallscroll jónak tűnően.

Mégegyszer hangsúlyozom, a fontos különbség, hogy a smallscroll relatív - az aktuális helytől számol, a scrollrow pedig abszolut, konkrétan megadott sort ugratja az ablak tetejére.

Üdv.

Szia!

A te javaslatod 25-nél kevesebbsorszámnál hibáz hoz:

  ActiveWindow.ScrollRow = arrIndexMax - 25

Ez a megoldás hiba nélkül fut teszőleges sorszámnál:

  ActiveWindow.SmallScroll Down:=arrIndexMax - 25

Nem pontos ez így. A megadott változó az utolsó sor sorszámáta daja meg amiből visszaszámol 25-öt. Nagyobb táblázatnál mindig a megjelenített sorok közül az utolsó 25-öt mutatja míg 25 sornál kisebbnél csak annyit amennyi van. Hibát nem hoz.

olvastam

OK. Buktam. Filgyelmetlenül olvasta a parancsot amit írtál. Mindjárt megnézem a te verziódat is.

Szia!

Még annyit az előzőekhez: Te nem 25 sorral a táblázat vége előttre pozicionáltál, hanem a srollozandó sorok számát állapítottad meg a táblázat vége - 25 sorban. Így pl. 100 soros táblázatnál a scroll mértéke 75 sor lesz.

Ez akkor működik úgy, ahogyan szeretnéd, ha max a 25. sorban áll a cursorod. Ha viszont a 25-dik sornál lejjebb vagy, azt fogod tapasztalni, hogy "eltűnik" a táblázat, mert akkorát scrollozik az utasításod.

Üdv.

Szia!

Igen, csak a smallscroll-nak és a scrollrow-nak más-más a funkciója:

A smallscroll egy metódus és görgeti az ablakot abba az irányba amerre akarod és olyan lépéssel, amekkorával akarod, onnan ahol éppen állsz.

A scrollrow (és scrollcolumn) egy tulajdonság, ami megmondja, hogy hányadik sor/oszlop legyen a bal felső szélén az ablaknak. Azaz itt direktben megadhatod, hova "scrollozzon" a képernyő, melyik legyen az első sor, vagy első oszlop amelyik látszik.

Üdv.

Amit a 22751-ben megadtam az a "arrIndexMax" a táblázat utolsó sora amihez képes 25 sorral vissza pozicionáltam. Igy szépen látszik a táblázat vége és még marad néhány üres sor.

Szia!

Próbáld ki az activewindow.scrollrow=táblázatvége sor -x utasítást.

A táblázatvége sor  jelenti azt az utolsó sort, ameddig a táblázat tart (ezt neked kell megállapítanod!), az x pedig, ahány sort akarsz még látni a táblázatból. (Mert gondolom, nem csak a legutolsó sort szeretnéd látni.)

Üdv.

Megtaláltam az autószűrő VAGY feltételes opcióját. De úgy látom, hogy nem alkalmas több oszlop vagylagos szűrésére. Jól látom? 

Nem tudom de tény, hogy mindig a táblázat elejét mutatta. Elegánsabb lett volna amikor a tábla áttöltődik (ugyanis más lapról érkezik szűrve) azonnal a végére ugrana és azt mutatná. Kistáblázatról van szó tehát a sebességet nem igen befolyásolja ez a módszer.

Ha a cursort ráállítom valamelyik távoli oszlopra, mondjuk BA-ra, majd az alsó gördítősávval visszahúzom a képernyőt a táblázat elejére, miközben a cursor marad a BA oszlopon, és így mentem, akkor pont az történik, amit írsz. Nem lehet, hogy nálad is ez történt?

Kitoltam vele.

ActiveWindow.SmallScroll Down:=arrIndexMax - 25

Gyönyörűen mutatja a tábla végét

Erre én is gondoltam már de nem segít.

nézd meg, nincs e ablaktábla rögzítés alatt a munkalap.

esetleg futtasd le ezt:

application.screenupdating = true

Hátha valami kikapcsolva hagyta...

Megnyitok egy táblázatot annak mindig az elejét látom miközben a végére kellene ugrania és azt látnom. Hiába próbálkozom cella cimzéssel, select utasítással. A cusor oda megy de a tábla nem ezért mindig scrolloznom kell.

Van valami ötlet?

Javaslatom a "kimutatás tábla", vagy másként "pivot tábla" készítése a táblázatodból.

A dimenzókat szabadon mozgathatóak, a szűrést úgy állítod be ahogy akarod.

Pedig a szűrés jó ötlet. Úgy emlékszem az autószűrő is tud több oszlopra a VAGY feltétlellel szűrni (azaz egyaránt kiszűrni az otthoni és az idegen oszlopbeli előfordulásokat), de most hogy keresem, nem találom ezt a lehetőséget.  A Speciál szűrő (a 2003-ban Írányitott szűrő) azonban biztosan alkalmas erre. Amit egyaránt használhatsz helyben szűrésre vagy új helyre történőre. A trükkje, hogy kritérium tartomány 3 soros legyen. 1. Fejléc: otthon/idegen 2. A keresett csapat az otthoni oszlopban. 3. A keresett csapat az idegen oszlopban is. Ha ennyi kevés lenne, az excel súgója elég jól elmagyarázza.

Még annyit érdemes tudnod, hogy a kritérium cellákba nem muszáj a keresett teljes nevét beírni. Elég belőlük néhány egyedi betűsorozat 2 csillag között. Pl. *Liver*, *city* stb.

Mivel a csillagos beírás frankón működik, a belinkelt web táblázatból sem muszáj a otthoni és idegenbeli oszlopokat szekesztened, mert mérközésoszlopra rászűrve a ** közé írt csapatjelöléssel kiszűri neked az összes előfordulást.  Persze ekkor a kritériumtartományt  2 sorosnak kell meghatároznod.

Sziasztok!

A segitségeteket szeretném kérni. Adott egy táblázat foci bajnokság meccseredményeivel:

A oszlop=hazai csapat, B oszlop= vendég csapat, C oszlop =hazai gólok, D oszlop= vendég gólok. Pl mint az alábbi oldalon, csak ez excelbe bemásolva: http://www.fogadoportal.hu/foci/anglia/premier-league-2012-2013/eredmenyek/

 Azt szeretném kérdezni, hogy hogyan tudok egy olyan szűrést megcsinálni, ami kidobná x csapat eredményeit, mind a hazai, mind a vendég meccseket egyszerre, időrendei sorrendben. 

Próbálkoztam úgy hogy táblázattá alakitottam és ott szűrés, de ott csak vagy a hazainál, vagy a vendégnél engedi meg a szűrést külön-külön, együtt nem. Esetleg vmilyen kereséses fügvvény alkalmazása, stb, nem tudom mi lehetne a megoldás.

Bármi ötleteteket nagyon hálásan fogadom!

Köszönettel,

Roley

Kösz. Jó helyen kerestem,  és bár majd kibökte a szemem, mégis átsiklottam rajta :((((

Miután elküldtem a makrót, rájöttem, hogy sokkal praktikusabb lenne a beforesave makrót  open-ként megadni és kiegészíteni  a beirás makro subrutinnal. Így a filemegnyitáskor már rögtön  bekéri a user nevét. Ha rossz nevet ad meg, akkor javíthat  a beirás makró direkt indításával. 

A beforesave makró átírva, a változtatások kivastagítva. A beirás makró változatlan.

Private Sub Workbook_Open()

Cells.Select

Sheets("Munka1").Unprotect ("xxx")

Selection.Locked = True

Selection.FormulaHidden = False

Sheets("Munka1").Protect ("xxx")

beiras

End Sub

Sub beiras()

Dim ppw, oszlopNo

ppw = InputBox("Mi a titkos neved?")

If ppw = "pali" Then oszlopNo = 3: GoTo cimke

If ppw = "peti" Then oszlopNo = 4: GoTo cimke

If ppw = "poka" Then oszlopNo = 5: GoTo cimke

Exit Sub

cimke:

Sheets("Munka1").Unprotect ("xxx")

Sheets("Munka1").Columns(oszlopNo).Select

Selection.Locked = False

Sheets("Munka1").Protect ("xxx")

End Sub

Szia!

Néztem a makródat, de már az első sorban elakdtam :))).  Azt hogyan kell csinálni, hogy 3 nevet megadni egy érvényesítésben? Próbálgattam, de nem jöttem rá.

Szóval az alábbi 2 makróval oldottam meg. Mindkettőt az adott füzet ThisWorbook moduljába másold.  A védett munkalap a Munka1, a védelmi jelszó xxx, a három felhasználó titkos nevei, pali, peti és poka, akik 3, 4, 5 oszlopokhoz férhetnek hozzá.  A felsorolt beállításokat igazitsd a te lapodhoz. Miután megvan a makró, mentheted a füzetet.  A fiúk amikor be akarnak írni, a beírás makrót indítsák. A kijelölt tartományba írhatnak.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cells.Select
Sheets("Munka1").Unprotect ("xxx")
Selection.Locked = True
Selection.FormulaHidden = False
Sheets("Munka1").Protect ("xxx")
End Sub

Sub beiras()
Dim ppw, oszlopNo
ppw = InputBox("Mi a titkos neved?")
If ppw = "pali" Then oszlopNo = 3: GoTo cimke
If ppw = "peti" Then oszlopNo = 4: GoTo cimke
If ppw = "poka" Then oszlopNo = 5: GoTo cimke
Exit Sub
cimke:
Sheets("Munka1").Unprotect ("xxx")
Sheets("Munka1").Columns(oszlopNo).Select
Selection.Locked = False
Sheets("Munka1").Protect ("xxx")
End Sub

Védett munkafüzet tartományai szerkesztésének engedélyezése egyes felhasználók számára

Fontos:    Ha egyes felhasználóknak engedélyt szeretne adni a védett munkalap tartományainak szerkesztéséhez, Microsoft Windows XP vagy újabb operációs rendszert kell használnia, és a számítógépnek tartományba kell tartoznia. A tartomány használatát megkövetelő engedélyek helyett jelszót is megadhat valamely tartományhoz.

1. Jelölje ki a védelemmel ellátni kívánt munkalapot.
2. Kattintson a Korrektúra lap Változások csoportjában a Tartomány szerkesztésének engedélyezése gombra.

Megjegyzés:    Ez a parancs csak akkor érhető el, ha a munkalap nem védett.

1. Az alábbi lehetőségek közül választhat:
• Új szerkeszthető tartomány hozzáadásához kattintson a Megadás gombra.
• Korábban megadott szerkeszthető tartomány módosításához jelölje ki a kívánt tartományt a Lapvédelemnél csak jelszóval módosítható tartományok listában, majd kattintson a Módosítás gombra.
• Szerkeszthető tartomány törléséhez jelölje ki a kívánt tartományt a Lapvédelemnél csak jelszóval módosítható tartományok listában, majd kattintson a Törlés gombra.
2. Írja be a Cím mezőbe a zárolni kívánt tartomány nevét.
3. Írjon a Hivatkozás mezőbe egy egyenlőségjelet (=), majd a zárolni kívánt tartomány hivatkozását.

 Tipp   Másik lehetőségként kattintson a párbeszédpanelt összecsukó gombra, jelölje ki a munkalapon a tartományt, majd a teljes párbeszédpanel ismételt megjelenítéséhez újra kattintson a párbeszédpanelt összecsukó gombra.

1. Írja be a Tartományjelszó mezőbe azt a jelszót, amellyel majd hozzá lehet férni a tartományhoz.

Megjegyzés:    Hozzáférési engedélyek használatakor nem kötelező jelszót megadni, de ha jelszót alkalmaz, megtekintheti, hogy a tartomány módosításához jogosultsággal rendelkező személyek milyen felhasználói hitelesítő adatokat használnak.

1. A hozzáférési engedélyek megadásához kattintson az Engedélyek, majd a Hozzáadás gombra.
2. Írja be az Írja be a kijelölendő objektumok nevét (példák) mezőbe azoknak a felhasználóknak a nevét, akiknek engedélyezni kívánja a tartományok szerkesztését.

 Tipp   Tájékoztatást kaphat arról, hogy hogyan kell megadni a felhasználóneveket, ha a példák hivatkozásra kattint. A megadott nevek helyességének ellenőrzéséhez kattintson a Névellenőrzés gombra.

1. Kattintson az OK gombra.
2. A kijelölt felhasználóhoz rendelendő engedély típusának megadásához jelölje be az Engedélyek mezőben az Engedélyezés vagy a Megtagadás jelölőnégyzetet (vagy törölje annak jelölését), és kattintson az Alkalmaz gombra.
3. Kattintson az OK gombra, majd a még nyitva lévő másik párbeszédpanel OK gombjára.

 Tipp   Kérés esetén írja be a megadott jelszót.

1. Kattintson a Tartomány szerkesztésének engedélyezése párbeszédpanelen a Lapvédelem gombra.
2. A Minden felhasználónak engedélyezve listában adja meg azokat az elemeket, amelyeket a felhasználók módosíthatnak.

További információ a munkalapelemekről

Munkalapelemek

Törlendő jelölőnégyzetMegakadályozandó felhasználói műveletZárolt cellák kijelölése Az egérmutató mozgatása olyan cellákhoz, melyeknél be van jelölve a Cellák formázása párbeszédpanel Védelem lapján a Zárolt jelölőnégyzet. A felhasználók alapértelmezés szerint kijelölhetik a zárolt cellákat.Nem zárolt cellák kijelölése Az egérmutató mozgatása olyan cellákhoz, melyeknél törölve van a Cellák formázása párbeszédpanel Védelem lapján a Zárolt jelölőnégyzet jelölése. A felhasználók alapértelmezés szerint kijelölhetik a nem zárolt cellákat, és a TAB billentyű lenyomásával lépegethetnek a nem zárolt cellák között a védett munkalapokon.Cellák formázása A Cellák formázása és a Feltételes formázás párbeszédpanelen található beállítások módosítása. Ha a munkalap védetté tétele előtt feltételes formázást alkalmazott, az ennek megfelelő változások továbbra is megtörténnek, ha egy felhasználó valamely más feltételt kielégítő értéket ír be.Oszlopok formázása Az oszlopok formázására vonatkozó parancsok használata, beleértve az oszlopszélesség módosítását és az oszlopok elrejtését is (Kezdőlap lap, Cellák csoport, Formátum gomb).Sorok formázása A sorok formázására vonatkozó parancsok használata, beleértve a sormagasság módosítását és a sorok elrejtését is (Kezdőlap lap, Cellák csoport, Formátum gomb).Oszlopok beszúrása Oszlopok beszúrása.Sorok beszúrása Sorok beszúrása.Hivatkozások beszúrása Új hivatkozások beszúrása, beleértve a nem zárolt cellákba történő beszúrást is.Oszlopok törléseOszlopok törlése.

 Megjegyzés:   Ha az Oszlopok törlése beállítás védelem alatt áll, az Oszlopok beszúrása azonban nem, a felhasználók beszúrhatnak oszlopokat, melyeket aztán nem tudnak törölni.

Sorok törléseSorok törlése.

 Megjegyzés:   Ha a Sorok törlése beállítás védelem alatt áll, a Sorok beszúrása azonban nem, a felhasználók beszúrhatnak sorokat, melyeket aztán nem tudnak törölni.

Rendezés Az adatok rendezésére szolgáló parancsok (Adatok lap, Rendezés és szűrés csoport).

 Megjegyzés:   A felhasználók e beállítástól függetlenül nem rendezhetnek zárolt cellákat tartalmazó tartományokat a védett munkalapokon.

AutoSzűrő használataA legördülő lista használata a tartományszűrés módosításához AutoSzűrők alkalmazása esetén.

 Megjegyzés:   A felhasználók e beállítástól függetlenül nem alkalmazhatnak, illetve nem távolíthatnak el AutoSzűrőt a védett munkalapon.

Kimutatások használata Kimutatások formázása, elrendezésük módosítása, kimutatások frissítése vagy egyéb módosítása, illetve új kimutatások létrehozása.Objektumok szerkesztéseAz alábbi műveletek:

1. Módosítások elvégzése azokon a grafikus objektumokon (beleértve a térképeket, beágyazott diagramokat, alakzatokat, szövegdobozokat és vezérlőelemeket), amelyeknek a zárolását nem oldotta fel a munkalap védetté tétele előtt. Ha például egy makrót futtató gomb található egy munkalapon, a felhasználók a gombra kattintva futtathatják a makrót, nem törölhetik azonban a gombot.
2. Beágyazott diagram módosítása, például formázása. A diagram továbbra is frissül a forrásadatok módosítása esetén.
3. Megjegyzések írása vagy szerkesztése.

Esetek szerkesztéseAz elrejtett esetek megtekintése, azoknak az eseteknek a módosítása, amelyekre ezt letiltotta, és ezen esetek törlése. A felhasználók módosíthatják a változó cellák értékét, ha a cellák nincsenek zárolva, és megadhatnak új eseteket.

DiagramlapelemekBejelölendő jelölőnégyzet Megakadályozandó felhasználói műveletTartalomA diagram részét képező elemek módosítása – ilyenek például az adatsorok, a tengelyek és a jelmagyarázatok. A diagram továbbra is megjeleníti a forrásadatok módosításait.ObjektumokA grafikus objektumok megváltoztatása (például alakzatok, szövegdobozok és vezérlőelemek), amennyiben a diagramlap védelme előtt a zárolás alól nem oldotta fel az objektumokat.

1. Írjon be egy jelszót a Jelszó a védelem feloldásához mezőbe, kattintson az OK gombra, majd megerősítés végett ismét írja be a jelszót.

Megjegyzések:    

• A jelszó megadása nem kötelező, ha azonban nem ad meg jelszót, bármely felhasználó megszüntetheti a munkalap védelmét, és módosíthatja a védett elemeket.
• Olyan jelszót válasszon, amelyre emlékezni fog, ellenkező esetben nem tud hozzáférni a munkalapon lévő védett elemekhez.