Hirdetés
-
LOGOUT.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Balinov
titán
válasz
Delila_1
#14751
üzenetére
[link] az error utani VBasic debugot elinditva kiexportaltam .bas kiterjesztessel, a "Sub ConsolidatedBacklog_v2" cimu resz az erdekes, ha gondolod kukkantsd meg a bas fajlt, feltettem a publikus dropbox mappamba, par 10 kbyte
En nagyon nem talalom a kerdeses hivatkozast/adatot.
Koszonom szepen
[ Szerkesztve ]
6yrs, 19.5kg :) Realme X2 Pro 12/256, Fizetési elvárás: hát, én már a Google-ban is sokat kerestem.... Flickr fotoim: http://www.flickr.com/photos/magdabalinko/
-
Delila_1
veterán
válasz
Balinov
#14752
üzenetére
Így első látásra
Windows("Benelux Backlog 20120827.xls").Activate
Windows("Consolidated Backlog Report_2808.xls").ActivateA két sor közül a második felülírja az elsőt. Az első a Benelux... fájlt teszi aktívvá, a második a Consolidated...-et.
A nagy halom ActiveWindow.ScrollColumn =... sor törölhető, azok csak követték a képernyőgörgetésedet, de a végükön a pl. Range("$A$1:$GP$27658") adja meg a tartományt, ahol végre kell hajtani valami utasítást.
[ 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.
-
Balinov
titán
válasz
Delila_1
#14754
üzenetére
kiprobalom, bar itt a cel, hogy a sajat nevemen kivul mindenki mas sora ki legyen jelolve, amit sorokat torolni akarok
6yrs, 19.5kg :) Realme X2 Pro 12/256, Fizetési elvárás: hát, én már a Google-ban is sokat kerestem.... Flickr fotoim: http://www.flickr.com/photos/magdabalinko/
-
repvez
addikt
Még egy egyszerünek tünő problémám van, a pár napja kérdezett excel lapon nem tudom a másolás áthelyezést alkalmazni mivel szürke a hozzá tartozó rész, csak a lap feloldás és a kód megjelenités aktiválható.
Ezen hogy lehet segiteni?, hogy egy másik munkalapba be tudjam illeszteni és egy fájl legyen ezekután és persze minden funkciója és a makrok is átmásolodjanak.
-
bandus
veterán
sziasztok!
kellene egy kis vlookup segítség, vagyis inkább vkeres, mert magyar excelt kényszerülök használni.
tehát elvileg minden rendben van, így néz ki a képletem: =vkeres(A4;adatok;2;HAMIS)tehát minden megadva, mégis #hiányzik hibaüzenetet kapok, és nem értem mi lehet a baj, hiszen mindent legfelelően írtam be, és a tréning videóban is működik tökéletesen, de az enyém nem akarja az igazságot
köszi előre is!megvan
tökjó, elég csak beírni és eszembe is jut a megoldás. természetesen a vlookup nem a vkeresnek, hanem az fkeresnek felel meg... be kell szereznem egy nagol nyelvi csomagot, de valahogy 27 euróért nem akaródzik 
[ Szerkesztve ]
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Balinov
titán
válasz
bandus
#14758
üzenetére
tippelek csak, de:
ugye az ket osszehasonlitott cella formatuma megegyezik (vagy valu/ertek)
probaltad hamis helyet 0-t irni a vegen?ha ezeken tul vagy, akkor elnezest kerek.
6yrs, 19.5kg :) Realme X2 Pro 12/256, Fizetési elvárás: hát, én már a Google-ban is sokat kerestem.... Flickr fotoim: http://www.flickr.com/photos/magdabalinko/
-
Delila_1
veterán
válasz
repvez
#14757
üzenetére
A personal-ba tedd be a lenti pár sort, és rendeld egy ikonhoz.
Sub Lap_masol()
ActiveSheet.Unprotect
Cells.Copy Sheets("Másik_lap").Range("A1")
End SubA másolandó lapon állva rákattintasz az ikonra, és már másolja is a védett lap tartalmát a lapra, aminek a nevét beírtad a Másik_lap helyére.
A personalról, és az ikonhoz rendelésről több helyen volt már szó, keress rá, ha nem ismered.
Jó munkát!Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bozsozso
őstag
Sziasztok,
Excel makróban az alábbi sorral szúrok be egy megnyitott word dokumentumba dátumot, de sehogy nem tudom elérni, hogy magyarul írja ki a hónapot. Nem tudnátok valami megoldást rá. Az excel és a word is magyar nyelvű.
.Selection.TypeText Text:=" " & Application.WorksheetFunction.Text(Cells(sor, 8), "yyyy.mmmm d.") & " - " & Application.WorksheetFunction.Text(Cells(sor, 9), "yyyy.mmmm d.")
Ha tudnátok segíteni az jó lenne. Ha a kód többi részére is szükség van akkor bemásolom azt is.
Előre is köszönöm.
-
Delila_1
veterán
-
repvez
addikt
válasz
Delila_1
#14760
üzenetére
Hát rákerestem erre a personalra,de nem lettem okosabb
A megadott elérési utvonalon nálam nincs ilyen nevű és kiterjesztésű fájl.
A készitést meg nem teljesen értem a folyamatot , hova és mikor mit nyitok meg?
A VB programban találtam egy tools manüt azon melul a macro és uj ,de ott nincs semmi rögzités meg egyéni listába mentés vagy ilyesmi.Az márcsak hab a tortán, hogy az excelem magyar,de a VB az angol.
Ugyhogy egy kicsit részletesebb leirást kérhetnék? A multkori volt életem első VB megnyitása ugyhogy ehhez lehet viszonyitani.
-
repvez
addikt
válasz
Delila_1
#14766
üzenetére
Ezt a hozzászólást néztem,de most egy kicsit jobban átkutatva a menüket rátaláltam a megfelelóre.
DE az eszközök helyett a nézet menü macrok-nál volt.DE még nem olyan felhötlen a dolog,mert ikont azt nem tudom hogy tegyek ki ehhez,de addig is a VB-ben F5-el futtatva hibát dobot ki, valószinuleg a másik lap név helyére beirt név nem tetszik neki azt húzta ki sárgával.
Arról nem irtál, hogy csak a neve kell vagy a kiterjesztése is. bár probáltam mindegyikkel ugyan az a hiba volt. beallitasS32.xlsm ahova kéne másolni ,ebben a fájlban van már 5 lap és a mostanit szeretném 6.nak mellémásolni. -
#14768
marchello1
csendes tag
marchello1
csendes tag
Sziasztok,
Egy olyan problémám lenne, hogy szeretném használni az AB.SZUM függvényt, de vízszintesen nem akaródzik működni.
Valahogy ez lenne a cél csak mind vízszintesen. Tehát az "P"-hez csak azt a számokat adja össze ami mellett "P" betű áll.1 2 3
12 P
14 P
15 SÖsszegzés
S 15
P 26Segítséget előre is köszönöm nektek
Marchello -
#14769
lappy
őstag
marchello1
#14768
lappy
őstag
válasz
marchello1
#14768
üzenetére
Szia!
Nem igazán értem a problémád de talán ez kell neked:1 2 3
P 105 =AB.SZUM($A$4:$B$10; "2";A4:A5)
S 96
C 105
P 75
S 76,8
P 45[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
#14772
Delila_1
veterán
marchello1
#14771
Delila_1
veterán
válasz
marchello1
#14771
üzenetére
Szumha függvénnyel is megoldható.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
#14773
Delila_1
veterán
marchello1
#14771
Delila_1
veterán
válasz
marchello1
#14771
üzenetére
Az előbb nem látszott a beszúrt képed.
A H3 és H5 képletét jobbra másolhatod az I oszlopba.
[ 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.
-
#14775
Delila_1
veterán
marchello1
#14774
Delila_1
veterán
válasz
marchello1
#14774
üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Cuci3
tag
Sziasztok!
Teláltam neten egy jó kis kódot, ami egy cella háttérszínének RGB kódját adja vissza:
Dim R As Integer
Dim G As Integer
Dim B As Integer
Dim RGB As Long
RGB = ActiveCell.Interior.Color
R = RGB And 255
G = RGB \ 256 And 255
B = RGB \ 256 ^ 2 And 255
ActiveSheet.Cells(3, 2) = RGB
ActiveSheet.Cells(4, 2) = R
ActiveSheet.Cells(5, 2) = G
ActiveSheet.Cells(6, 2) = BValaki el tudná magyarázni, hogy ez az RGB and 255 mi a manót is jelent?
Előre is köszi!
-
Delila_1
veterán
A personalba írt kis makrótól kérdezem meg az aktuális cella karakter- és háttérszínét.
Sub Szin_lekerdezes()
MsgBox "Karakter: " & Selection.Font.ColorIndex & _
Chr(13) & "Háttér: " & Selection.Interior.ColorIndex
End SubIgaz, ez a ColorIndexet adja meg.
Kipróbáltam a makródat egy sárga hátterű cellán állva. Utána átállítottam ezt a sárgát a beállításoknál egy kislibazöldre, de ugyanazt az RGB összeállítást kaptam.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
veterán
válasz
repvez
#14785
üzenetére
Tehát előállítottad a personal.xlsm-ben a makródat.
Így rendelheted egy ikonhoz: a gyorselérési eszköztár jobb oldalán legördíted a nyilat, a "További parancsok"-at választod. A "választható parancsok helye" listából kiválasztod a Makrók-at. Az alatta lévő felsorolásban megtalálod a makródat, amit a Felvétel gombbal átmásolsz a jobb oldali listába. Ott a fel- és le nyíllal beteszed a kézre eső helyre. A makró nevén állva aktív lesz a lenti Módosítás gomb, amivel a fejlesztők által kreált rajzok között válogathatsz. Van itt pillangótól a vasmacskáig minden, csak olyan nincs természetesen, ami utalna a makród tartalmára.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
repvez
addikt
válasz
Delila_1
#14786
üzenetére
Oké ez is megvan, márcsak a folyamatot nem értem teljesen, hogy hogyan kell csinálnom a másolást egyik fájlból a másikat.
Tehát van egy beallitasS32.xlsm fálom melyben van 5 lap
És van egy másik fájlom ami védett és vannak benne szöveges hivatkozások is.
Szóval ezt utóbit szeretném a beallitas fájlba 6. lapként átmásolni.A personal makróba melyik nevét irjam és kiterjesztéssel vagy anélkül, hogyan fogja tudni hogy a lapok közül hova menjen.
Probáltam az elözö jelszótörós funkcióval is másolni,de a látható részeket átmásolta viszont a hivatkozásokat nem igy a legördülö menükből hiányoztak az adatok és nem müködött a tábla.
-
lappy
őstag
Sziasztok!
Az alábbi macrót kellene 2007 ben használnom, de nem vagyok toppon a macróban hogy hogyan tudom átalakítani.
Private Sub UserForm_Initialize()
Dim KERES As Object
Dim FILEOK() As String
Set KERES = Application.FileSearch
KERES.LookIn = "C:\TRS\Munka"
KERES.Filename = "*.xls"
If KERES.Execute > 0 Then
DARABSZAM = KERES.FoundFiles.Count
ReDim FILEOK(DARABSZAM)
For I = 1 To DARABSZAM
FILEOK(I) = KERES.FoundFiles(I)
Next I
File_lista.List = FILEOK
End If
File_lista.SetFocus
End SubBámulatos hol tart már a tudomány!
-
Anachen
csendes tag
Sziasztok!
Az alábbit szeretném megcsinálni:
Csináltam egy legördülő választéklistát érvényesítéssel, ki tudom választani mondjuk egy adott listából egyes elemeket.
Viszont azt szeretném még elérni, hogy ha kiválasztom mondjuk a listában a "Karcsi"-t akkor az alatta lévő cellában megjelenjen mondjuk egy olyan adat, amit karcsiról akarok tudni.Két munkafüzetben tárolom az adatokat. egy "ADATOK" ahol a személyek adatai és egy "KÁRTYÁK" ahol a megadott kártyaszámokat szeretném hozzárendelni bizonyos személyekhez, de mivel több egyező nevű emberem is van, ezért szeretném a születési dátumát is megjeleníteni, ami viszont szintén az "ADATOK" munkafüzetből hívható elő.
Köszönöm a tippeket!
Üdv.
-
Delila_1
veterán
válasz
repvez
#14787
üzenetére
A makrókat tartalmazó füzetbe tedd be.
Sub Masol()
Sheets("Munka1").Copy After:=Workbooks("Ide_Masol.xlsx").Sheets(5)
End SubTermészetesen írd át a Munka1 és az Ide_Masol.xlsx paramétereket.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
zhari
csendes tag
Sziasztok!
A következő két makrót szeretném összekombinálni egy működő macróvá. A cél az, hogy egy mappa minden Excel tábláját megnyissa és belemásolja (és mentse) az éppen aktív munkalapot.
eddig ezeket találtam:
Dim fs As FileSearch
Dim i As Integer
Dim wbk As WorkbookSet fs = Application.FileSearch
With fs
.LookIn = ThisWorkbook.Path 'ide kell a táblákat tartalmazó mappa útvonala?
.FileName = "*.xls"
For i = 1 to .Execute()
Set wbk = Workbooks.Open(.FoundFiles(i))
' beillesztő makrót kb ide másolnám
wbk.Close(SaveChanges:=True)
Next i
End With
---------------------------------------------------------------------------------------------------------------------
munkalap másolás:Dim sourceSheet As Worksheet
Dim destSheet As Worksheet'' copy from the source
Workbooks.Open Filename:="c:\source.xls"
Set sourceSheet = Worksheets("source")
sourceSheet.Activate
sourceSheet.Cells.Select
Selection.Copy'' paste to the destination
Workbooks.Open Filename:="c:\destination.xls"
Set destSheet = Worksheets("dest")
destSheet.Activate
destSheet.Cells.Select
destSheet.Paste'' save & close
ActiveWorkbook.Save
ActiveWorkbook.Close
-------------------------------------------------------------------------------------
lelkesen fogadok minden segítséget... -
kutga
nagyúr
Sziasztok!
Kaptam egy excel munkafüzetet, van benne egy csomó adat, név szerint könyvelt értékek, mindegyik mellé oda van írva hogy melyik projekthez tartozik (van kb 20 db projekt, de a könyvelt értékek ennek a többszöröse, tehát egy projekthez több könyvelt érték is tartozik).
Ez egy elég hosszú lista (100 oldalon felül) és szeretném valahogy szétdobálni őket, mégpedig projektek szerint, lehetőleg úgy, hogy egy projekthez tartozó könyvelt értékek egy külön munkafüzetre kerüljenek (remélem érthetően írtam le).
Hogy tudnám ezt könnyen megtenni?
Let the Zone take me if I am.
-
bandus
veterán
pivot-táblával nagyon egyszerűen. vagy ha nem kell a csicsa, akkor csak simán az adatok fülön bekapcsolod a szűrőket. így a legördülő listából kiválaszthatod egyenként a projekteket, onnan pedig már csak kontrolcékontrolvé.
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
bandus
veterán
igazából ez is egyfajta szűrő, nagy mennyiségű adat kezelésére. cska kicsit byonolultabb, több lehetőséggel. de ha neked minden projektre külön munkalapon van szükséges, akkor nem ez a megoldás.
valami makró biztosan meg tudja ezt csinálni, valami kompetensebb ember tud majd segíteni benne
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Delila_1
veterán
-
#14797
marchello1
csendes tag
marchello1
csendes tag
Sziasztok ismét,
Nos újabb helyen akadtam el, ezúttal kissé bonyolultabb problémánál.
Amit készítek az egy éves napló, hetekre bontva. Minden Munkalap egy hetet foglal magába.
Nos az első lapon szeretném megadni a kezdés dátumát ami szépen hetes bontásokban mutatja a dátumokat. Ez már elkészült és működik dinamikusan.
Amit szeretnék, hogy minden Munkalapon innét kinyerje a dátumot és szépen a hozzá tartozó naphoz hozzá rendelje azt.
Kép:
Amit eddig gondoltam, hogy szépen végigmegyek mind az 52 Munkalapon és végig irogatom, hogy: =A2 =A3 stb.
Abban reménykedem van ennél talán egyszerűbb megoldás is. Nézegettem már Makrókat is, és próbálgattam valamit összehozni, de nem sok sikerrelKöszönöm előre :
Marchello[ Szerkesztve ]
-
kutga
nagyúr
válasz
Delila_1
#14796
üzenetére
Üdv!
Köszi, a formázandó munkalap egy lapból áll, pivot táblával csináltam rá kimutatást, szerintem így jó lesz, mert így projektenként látszódik hogy mi van rájuk könyvelve, úgy hogy fenti sorokban vannak a projekt nevek, oszlopokban pedig a könyvelt tétel megnevezések, adat mezőben pedig maga a könyvelt érték.
Már csak egy problémám van, a könyvelt tétel elnevezésekhez tartozik egy kódszám. Ha a pivot tábla beállításainál a sor mezőbe húzom az elnevezéseket, szépen meg is jelennek, de ha melléjük húzom a kódszámot, minden elnevezés-kód páros alá beszúr még egy 'kód összesen' sort, amitől áttekinthetetlen lesz az egész.
Szóval vagy a kódot használom, vagy a megnevezést. Van rá valami mód hogy a kettő együtt menjen, részösszeg sorok nélkül?
Let the Zone take me if I am.
-
köszi előre is!
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Vodafone mobilszolgáltatások
- Formula-1
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- PlayStation 5 Pro teszt
- Elektromos autók - motorok
- A fociról könnyedén, egy baráti társaságban
- BMW topik
- Ukrajnai háború
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Android szakmai topik
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- AMD Game Bundle: Warhammer 40,000: Space Marine 2 és Unknown 9: Awakening - LEGOLCSÓBB!
- ESET termékek hivatalos forgalmazója / NOD32 / Internet Security / Smart Security Premium
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
Állásajánlatok
Cég: HC Pointer Kft.
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest