Excel + vba összetett probléma kezdőnek
2007-02-15T14:42:54+01:00
2007-04-17T19:47:03+02:00
2022-07-26T10:16:13+02:00
  • 1. keresd meg a normal.dot fájlt a gépeden és töröld le.
    Utána indítsd el a wordöt.

    2. Nézd meg, hogy milyen egyéb dolog van betöltve. (Eszközök > Sablonok és bővítmények)

    3. Nézd meg van-e valahol makró.

    4. futtass egy jó víruskeresőt a gépeden.

    +1 Hogy jön ez a "Excel + vba összetett probléma kezdőnek" témakörbe?

    Mutasd a teljes hozzászólást!
  • Pontosan úgy értem.
    Akármit is akarok csinálni (egy karakter törlésétől kezdve bármit) kiírja hogy csak olvasásra van megnyitva az állomány és ez a művelet nem hajtható végre.Újat se tdok létrehozni.
    Mutasd a teljes hozzászólást!
  • Mármint ezt úgy érted, hogy legközelebb már csak readonly módon tudod megnyitni?
    Mutasd a teljes hozzászólást!
  • Sziasztok!

    Olyan problémám van, hogy a Word-om zárolja a megnyitott fájlokat írásra. Hiába szedem le és rakom fel újra, ugyanaz a helyzet. Gondolom ez valami Windows-os beállítás probléma. Miért van ez és hogyan tudom visszaállítani?
    Köszi
    Mutasd a teljes hozzászólást!
  • Szívesen
    Mutasd a teljes hozzászólást!
  • Köszönöm szépen
    Mutasd a teljes hozzászólást!
  • Pontot? Társalgóban? Akkor már inkább libacombot
    Mutasd a teljes hozzászólást!
  • Beírod egy cellába, hogy
    100

    Kiadsz rá egy másolást (ctrl+C)

    Kijelölöd az adatokat, amit osztani kell.
    Szerkesztés > Irányított beillesztés > (középtájt) Osztás

    És kész.
    ----
    B. megoldás.
    Mellé egyoszlopba beírod (pl. ha az adat a "B"-be van, akkor beszúrsz egyet utána, és a C-be pl. C1-től kezdődően (ha nincs címsorod)
    =B1/100
    A kitöltőnégyzetre (aktív cella jobb alsó sarka) kettőt rákattintasz. Így végig kitölti a képlettel.
    Másolsz (Ctrl+C)
    Kijelölöd a B1-et
    Szerkesztés > Irányított beillesztés > Értéket.
    Törlöd a "C" oszlopot
    És kész
    Mutasd a teljes hozzászólást!
  • Akkor kapna pontot vagy egy liba combot:)
    Mutasd a teljes hozzászólást!
  • Ha valaki venné a fáradságot és segítene,


    Akkor mi?
    Mutasd a teljes hozzászólást!
  • hali

    Olyan problémám lenne hogy van két oszlopom amiben számok vannak elég sok 2-3000 sor. Ezt a két oszlopot kéne nekem gyorsan egy gombnyomásra átalakítani úgy hogy a benne lévő számokat százal kell osztani pl: 2222=22.22
    Ha valaki venné a fáradságot és segítene, üdvözlettel: Rónusz
    Mutasd a teljes hozzászólást!
  • Akkor szólj, hogy mikor teszed fel a kérdéseket, hogy én kapjam a pontot.
    Mutasd a teljes hozzászólást!
  • akkor most megcsinálom azt, h lebontom és részenként felteszem ujra a témát egy bizonyos kérdésre fókuszálva a tudástárba. mindenkit várok a megfelelő kérdéshez, aki itt segített h oda tudjam adni a pontot neki.

    utána le is lehetne innen ezt törölni és akkor a többit intézem a tudástárban, ahogy azt kell.
    Mutasd a teljes hozzászólást!
  • Mutasd a teljes hozzászólást!
  • Ezt a topicot a
    tanfolyamok
    kategóriába kellene helyezni. Ott igazán helyénvaló lenne.
    Mutasd a teljes hozzászólást!
  • He ezek 2* szerepelnek:
    Dim r As Range
    Dim foundCell As Range

    Akkor töröld ki a 2-at.

    De ilyenkor megmondhatnád, hogy melyiken jelzi, hogy rossz.
    Mutasd a teljes hozzászólást!
  • namost: az a felállás, hogy a gombom megnyit egy filet, kimásolja vágólapra az adatait, majd becsukja, megnyit egy uj file-t, ott megint megkeresné az első üres sort hogy beillesszen, és itt problémázik a gép, hogy kétszer alkalmazom ugyanazt a módszert egy ablakon belül (?)

    Dim r As Range
    Dim foundCell As Range
    Set r = ActiveSheet.Range("A1:A1000")
    Set foundCell = r.Find("", LookIn:=xlValues)
    If Not foundCell Is Nothing Then
    foundCell.Select
    Else
    MsgBox "NEM TALÁLOK ÜRES SORT"
    End If

    tehát az a baja hogy ezekből a range-ekből kettő van vagy mi...
    mit kéne tennem hogy jó legyen?
    Mutasd a teljes hozzászólást!
  • Ez a második csak a megjegyzések miatt látszik bonyolultabbnak.
    De az első kicsit egyszerűbb, de ez meg máskor jó.


    A UsedRange aktív cellája a bal felső cella, így ahhoz képest méri.
    Mutasd a teljes hozzászólást!
  • ú ez a második ez sokkal bonyolultabbnak tűnik...

    az elsőnél (meg akkor gondolom minden esetben) ezek szerint mindig lefelé irányul a kijelölés?

    nade most aztán bajban vagyok: fordítási hiba, ismételt deklaráció... valamit nem zártam le de az end sub nem jó. (igazábol eddig még semmit sem kellett)
    Mutasd a teljes hozzászólást!
  • De mutatok egy másikat:
    ter = ActiveSheet.UsedRange.Address ' Lekéri a tartomány címét cim = Split(ter, ":") ' ":"-nál szétvágja 2 tömb elembe (kezdet a 0., vég az első) Range(Range(cim(0)).Offset(1, 0).Address & ":" & cim(1)).Select ' A kezdethez egyel lejjebbtől a végéig legye az új terület.

    tőlem visszatolhatja Árnyék...


    Az egyes kérdéseid valók oda , nem az egész téma.

    melyik dolog micsinál benne...?


    Offset(1,0) egy sorral lejjebb viszi a kijelölést
    resize: átméretezi a kijelölést
    activesheet.usedrange.rows.count : lekérdezi a sorok számát (ezt kell csökkenteni 1-el, hiszen most 1 sorral kevesebb kell.)

    Mutasd a teljes hozzászólást!
  • de várjál de várjál ez biztos jó de melyik dolog micsinál benne...?

    tőlem visszatolhatja Árnyék...

    eeeeez kegyetlen király!!! köszi! nagyon tutin működik!

    húha! mostmár kezdek berezelni mert egyre összetettemm lesz ennek a gomnak a funkciója és kezdem egyre kevésbbé átlátni...
    Mutasd a teljes hozzászólást!
  • Egy megoldás:

    activesheet.usedrange.offset(1,0).resize(activesheet.usedrange.rows.count-1,activesheet.usedrange.columns.count).select

    De ha már nekivágtál, akkor ezek azok a kérdések, amik már a tudástárba valók
    Mutasd a teljes hozzászólást!
  • hú ez is jónak tűnik! keresni fogom!

    az usedrange frankón kijelöli nekem az adatokat tartalmazó részt, de most akadt egy újabb probléma (amit ki tudnék küszöbölni de csak barbár módszerrel) ebből a kijelölésből ki kéne hagynom az első sort, mert az fejléc...
    Segítenétek ebben? már egy csomót kerestem a neten és bár sokan szembesültek hasonló szükséggel, mindenhol nekem nem igazán hasznos infora akadtam csak.
    Mutasd a teljes hozzászólást!
  • Mutasd a teljes hozzászólást!
  • megvan! usedrange!
    Mutasd a teljes hozzászólást!
  • Cells.Select
    Selection.End(xlDown).Select
    Rows("2:16").Select
    Range("A16").Activate
    Selection.Copy

    makróval próbáltam meg arra késztetni a programot, hogy a megnyitott xls-ben jelölje ki az adatokat tartalmazó mezőket, de ebből sajnos nem derül ki a program számára hogy pontosan azt a részt jelölje ki ahol adat van. így mindig ugyanazokat a sorokat fogja kijelölni, ami nem az igazi mert van hogy több-kevesebb sort kéne kijelölni. mondanátok nekem valamit amin el tudok indulni?
    Mutasd a teljes hozzászólást!
  • basszus ez nagyon király! azt hittem nem fogok tudni mit kezdeni ezzel de közbe rájöttem hogy nem is kell megkeresni az utolsó nem-üres mezőt. sokkal egyszerűbb ha mindjárt az alapján nyitja meg amit beirok a formba! köszi ez sokat segített!

    olyat lehet vba-ban hogy úgy copy-zzon sorokat ki egy xls-ből hogy nem nyitja meg azt? nem annyira fontos csak érdekességképp.
    Mutasd a teljes hozzászólást!
  • eddig úgy probáltam logikázni hogy meg tudtam keresni az első üres sort, innen megpróbáltam azt, hátha az eggyel előtte lévőt valahogy ki tudom választani. de ez a kisebb gond, mert ezt még meg tudnám oldani sztem azzal, hogy megfordítom az egészet és mindig az első sorba szúrok be egy üres sort, feltöltöm adattal és akkor a megnyitni kivánt file-ok nevét mindig ugyanaz a cella tartalmazza. igazábol lehet hogy így még jobb is lenne mint úgy hogy mindig lefelé építkezek... ezen még gondolkodnom kell.
    Mutasd a teljes hozzászólást!
  • Ha xls kell:
    workbooks.open cells(1,1) & ".xls"
    Mutasd a teljes hozzászólást!
  • eddig hogy probaltad?
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd