- Brogyi: CTEK akkumulátor töltő és másolatai
- <Lacy85>: Időmilliomosok előnyben - Játékfejlesztés #1
- btz: Internet fejlesztés országosan!
- urandom0: Kicsit most elfáradtam...
- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: Bye PET Palack, hello SodaStream
- gban: Ingyen kellene, de tegnapra
- Pajac: PassMark - Intel Atom D2700
-
LOGOUT
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
-
#32199
Fferi50
Topikgazda
Bjørgersson
#32198
Fferi50
Topikgazda
válasz
Bjørgersson
#32198
üzenetére
Szia!
Próbáltam, de úgy pl. a 11:00-ból 0,46-ot kapok.
Ami teljes mértékben egyezik is az Excel dátum/idő tárolási szabályaival, ami a következő: A dátumot/időt az Excel számként tárolja, az egész rész a dátumszámolás kezdetétől eltelt napokat jelenti, a törtrész pedig a napon belüli időt 24 órás napra vetítve.
Tehát az előző hsz-ban helyesen tetted, hogy az időt (azaz a törtrészt) megszoroztad 24-gyel. Arra viszont figyelni kell, ha napok is vannak, akkor (is) csak a törtrészt szabad szorozni (kivéve, ha a napokat is órákká szeretnéd alakítani)!Üdv.
-
#32197
lappy
őstag
Bjørgersson
#32195
lappy
őstag
válasz
Bjørgersson
#32195
üzenetére
Próbáld a cella formatumot számkent kezelni
-
#32196
Bjørgersson
félisten
Bjørgersson
#32195
Bjørgersson
félisten
válasz
Bjørgersson
#32195
üzenetére
Na közben csak sikerült megfejtenem.
Az adott idő formátumú cellát megszorozva 24-gyel megkapom az adott időt szám formájában. -
#32195
Bjørgersson
félisten
Bjørgersson
félisten
Sziasztok!
Olyan függvényt keresek, ami óó:pp formátumú időt alakít át egész vagy törtszámokká. Pl. 12:00 = 12; 6:30 = 6,5; 7:15 = 7,25; stb.
Az óra függvényt már megtaláltam, viszont úgy tűnik, hogy lefele kerekített egész számokká alakítja az időket, az pedig nekem nem jó. Lehetséges, hogy átsiklottam valami fölött? -
Delila_1
veterán
válasz
bteebi
#32191
üzenetére
Kihagytam a másik füzet megnyitását, csak a saját minta füzetemben kerestettem. Majd beírod.
Sub Ugras()
Dim srch As String, ws As Worksheet, lel
srch = "KeresettSzoveg"
For Each ws In Worksheets
On Error Resume Next
lel = ws.Cells.Find(What:=srch, LookIn:=xlValues, LookAt:=xlPart).Address
If lel Then
Application.Goto reference:=Sheets(ws.Name).Range(lel)
Exit Sub
End If
Next ws
End Sub -
-
bteebi
veterán
Sziasztok! Egy adott értéket (ami a D8-as cellában található) szeretnék megkeresni egy makróval megnyitott, elég sok lapot tartalmazó munkafüzetben. Azt szeretném, hogy a keresett értéket tartalmazó cellára ugorjon a makró (elvileg csak egy ilyen cella van). A keresés része nem működik. Megnéznétek, hogy mi a gond vele? Előre is köszönöm!
Sub holvan()
Dim srch As String, ws As Worksheet
srch = ActiveSheet.Range("D8")
Workbooks.Open Filename:="D:\proba\minta.xls", ReadOnly:=True
For Each ws In Workbooks("minta.xls").Worksheets
Set found = ws.Cells.Find(What:=srch, LookIn:=xlValues, LookAt:=xlPart)
Next ws
End Sub -
gaben1117
senior tag
Sziasztok!
Egy elég fura kérésem lenne felétek. Össze kéne írnom 6 db elméleti excel kérdést, ami arra lenne hivatott hogy konkrét feladat vagy teszt íratása nélkül nagyjából kiderüljön, hogy a válaszadó mennyire van képben az excel-lel.
Kb. olyan felosztásba kéne nehézség szerint, hogy 2 alap, 2 közepes és 2 gyakorlottabb kérdés, amit már csak az tudhat jól megválaszolni, aki rendszeresen használja.
Előre is köszönöm a segítséget!
-
#32189
dellfanboy
őstag
dellfanboy
őstag
megvan sumif
f*sze vagyok neha ennyire balek 
mentsegemre legyen mondva mennek mar haza es en tartom mar csak a frontot -
#32188
dellfanboy
őstag
dellfanboy
#32187
dellfanboy
őstag
válasz
dellfanboy
#32187
üzenetére
ill ha #N/A-t kapok eredmenynek hogy tudom automatikusan 0-va varazsolni?
elozo HSz-hoz a1 cella erteke A b1 cella erteke 2
a2 cella a b2 erteke 3 -
#32187
dellfanboy
őstag
dellfanboy
őstag
melyik az a fv amivel osszetudom adni a kulonbozo sorokban levo ertekeket
igy nez ki a tabla
Aoszlop Boszlop
sor1 a 2
sor2 a 3
sor3 b 4
sor4 b 2
azt keresem hogy a =5, b=6 -
bexinho23
őstag
Üdv!
Van egy viszonylag jól összedobott "finance management"-em, amit szerintem még jobban le lehetne egyszerűsíteni. Viszont ötletek híján vagyok. Sokat kerestem google-ben template-eket, amikből átemelhetnék hasznos funkciókat az enyémbe, de alig találni valóban kreatívat, nem önismétlőt.
VBA-t elég jól ismerem, tehát nem lenne akadály annak használata sem. De mivel mobilról is megnyitom ezt az excel fájlt, így jó lenne, ha nem ütköznék akadályba megnyitáskor. Így lehet ezt most mellőzném.
Ti használtok saját költségvetésetek kezelése céljából ilyen ilyen "programot"?
-
Delila_1
veterán
válasz
Mittu88
#32184
üzenetére
Mivel Feri csak estére ígérte a választ, megpróbálom helyettesíteni.
A Téma összefoglalóban elolvashatod a personal füzet létrehozásának a módját. Ebbe másold be a már működő makró(i)dat.
Itt meglátod, hogyan tehetsz ki ikont a makró(k) indításához a gyorselérési eszköztárra.
-
Mittu88
senior tag
válasz
Fferi50
#32183
üzenetére
ActiveX verzérlőket használok. Munkalap vezérlőt még sose használtam, az ActiveX vezérlőben eddig mindent meg tudtam oldani.
Ribbonra fel tudom úgy tenni, hogy akármelyik gépen nyitják meg, ugyanott jelenjen meg?
Szívesen megismerném ezt a módszert is. Én délután 4 után nem leszek, holnaptól meg nyaralok vasárnapig. Írnál egy gyorstalpalót privátban (vagy akár itt, hátha másokat is érdekel)?
-
Fferi50
Topikgazda
válasz
Mittu88
#32182
üzenetére
Szia!
Nem tudom, hogy az Office újratelepítés segíthet-e. Erre mondják, hogy próba-szerencse. De az általad linkelt problémát sem oldották meg....
Valószínűleg a gép memóriája "zavarodik meg" időnként, ezért írja a típushibát. A parancsgombok is okozhatják - milyen típusúak? ActiveX vagy Munkalap vezérlők?Helyette inkább javasolnám a Ribbonra feltenni saját menüként - ha szeretnéd, tudok benne segíteni - a Custom UI programmal lehet megoldani.
Üdv.
Ui: csak estefelé leszek elérhető újra.
-
-
Mittu88
senior tag
válasz
Fferi50
#32180
üzenetére
Az makrós fájlban jelenleg 220 sornyi adat van, kb 18 oszlop szélesen. Van még egy háttéradat munkalap, de azon jelentéktelen mennyiségű adat van.
A fájlszerveren lévő fájlban (amit megnyit a makró) 1200 sornyi adat van.
Amúgy úgy működik a rendszer, hogy a makrós fájlban rögzítik a gépekhez tartozó adatokat (termelés, műszaki hiba, stb.)
Ha mindegyik esemény (sor) lezárt, vagy törölt állapotú, akkor engedi bezárni a fájlt.
Ha bezárja, megnyitja a fájlszerveren lévő adatbázisfájlt, és oda feltölti azokat, amik még nem rögzítettek. Ezek a sorok utána a Rögzített oszlopba kapnak egy 1-es értéket.
Megpróbálhatom a kisebb munkalapra váltást, de a háttéradatos munkalap nagyon rejtettben van, úgyhogy max. beszúrok egy munka1-et.
-
Fferi50
Topikgazda
válasz
Mittu88
#32179
üzenetére
Szia!
Sajnos csak tippelgetek (mint anno a rabbi a juhoknál
).
Milyen tartalma van annak a fájlnak, amiből megnyitod a másikat? Nem lehet, hogy nagy munkalap aktív éppen benne?
(Nekem volt olyan problémám régebben, hogy diagram makrós beszúrásánál nem adta hozzá a címet meg még egy-két dolgot makró futáskor, ha lépésenként futtattam, akkor viszont nem jött elő a hiba... Hosszú idő után az derült ki, hogy egy nagyon sok adatot tartalmazó munkalap után próbáltam beszúrni a diagramot és ez vitte "tévútra" a folyamatos futású makrót - valami miatt az aktív munkalapról akart adatot rakni a diagramba beszúráskor. Amint egy kis adattartalmú munkalap volt aktív, ez a probléma megszűnt.!)Nem tudom, hogy munkafüzet nyitáskor ilyen okozhat-e problémát.
Talán meg kellene próbálni egy teljesen üres, csak a makrókat (+ egy munkalap) tartalmazó munkafüzettel futtatni.Üdv.
-
Mittu88
senior tag
válasz
Fferi50
#32177
üzenetére
Szia Feri!
Megpróbálom a chdir-t, és szólok, hogy javult-e a helyzet.
Amúgy szerintem nem a wb változóra írja, bár tény, hogy Nothing-on marad.
Találtam neten egy hasonló problémát: ITT
A srác nem Workbook változóra állítva nyitja meg a fájlt, és mégis jelentkezik nála a probléma NÉHA.
Ez az érthetetlen amúgy, hogy nálam is, elsőre hibára fut, de ha lelövöm a makrót hibára futás után, és utána be akarom zárni az excelt (workbook_close esemény hatására fut ez is), akkor simán lefut.
u.i.: szinte ugyanaz a hardver mindkét gépen. A szoftver meg teljesen ugyanaz.
-
Fferi50
Topikgazda
válasz
Mittu88
#32176
üzenetére
Szia!
Nem oka a hibának szerintem, de felesleges az Err változót definiálnod, mivel az rendszer függvény, ami az ErrObjectet adja vissza - alapértelmezett tulajdonsága a Number.
Talán az lehet a probléma, hogy sok időbe telik megtalálnia a fájlt a hálózaton, esetleg érdemes lenne megpróbálni, hogy előtte arra a könyvtárra ugrassz a makróban a chdir paranccsal.
A Type Mismatch hibát a wb változódra írja ki?
Üdv.
-
Mittu88
senior tag
Sziasztok!
Van megint egy olyan problémám, amire még Stackoverflow-on se találok megoldást...
Van ez a kép:
Az én gépemen hiba nélkül lefut, a belső hálózatról megnyitja a Database.xlsx-et, a wb változó kap is nevet meg minden.
VISZONT: egy másik gépen hibára fut ( Type Mismatch '13' ). Azaz érdekes a jelenség. Megnyitja a fájlt, de dobja ezt a hibaüzenetet. Ezután rámegyek az End-re, vagy Debug-ra (aztán a négyzetre kattintva leállítom, lényegtelen), majd a következő futtatáskor lefut...
Számít az, hogy azon a gépen le van tiltva az internet, és csak hálózat van?
Más különbség nincs a gépek között. Talán még annyi, hogy ott lehet, hogy 32 bites a windows, nálam meg 64.
u.i.: a fájlszerveren az adott mappához mindenkinek van írási-olvasási joga.
-
bteebi
veterán
válasz
Delila_1
#32173
üzenetére
Ezt is köszönöm!
Végül összeállt minden, és jó is lett. Bemásolom ide a végső kódokat:
Sub listakereso()
Dim datum As Long, file As Variant
datum = ActiveSheet.Range("C4")
file = Dir("D:\Proba\lista_" & datum & "*.pdf")
Do While (file <> "")
UserForm1.ListBox1.AddItem file
file = Dir()
Loop
If UserForm1.ListBox1.ListCount = 0 Then
MsgBox "Nem találom a listát!", vbExclamation
Exit Sub
End If
UserForm1.Show
End SubAz OK gombhoz rendelve pedig:
Private Sub ButtonOK_Click()
Dim sor As Integer
For sor = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(sor) = True Then
Shell CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AcroRd32.exe\") _
& " /A " & Chr(34) & "&zoom=95" & Chr(34) & " " & Chr(34) & "D:\Proba\" & ListBox1.List(sor) & Chr(34), vbNormalFocus
End If
Next sor
Unload Me
End SubLényeges elem, hogy bár a kiválasztást a
ListBox1.Selected(sor)adja, a listaelem nevét viszont aListBox1.List(sor)- időbe telt, amíg megtaláltam. -
-
bteebi
veterán
válasz
Delila_1
#32170
üzenetére
Nagyon köszönöm!
Már majdnem teljesen jól működik . A UserForn-on létrehoztam egy OK és egy Cancel gombot. A Cancel gombbal csak be akarom zárni a formot, és megszüntetni a kijelölést/törölni a listát. Ha jól gondolom, akkor arra jó ez a két sor:UserForm1.Hide
UserForm1.ListBox1.ClearA ListBox-ban kijelölt elem(ek)re egyébként hogy kell hivatkozni (engedélyeztem a MultiSelect-et)? Én azt hittem, hogy a
ListBox1.Selectedjó lesz erre, de azzal nem működik, "Argument not optional" hibaüzenetet kapok. Hogy kellene hivatkoznom rá?Shell CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AcroRd32.exe\") _
& " /A " & Chr(34) & "&zoom=95" & Chr(34) & " " & Chr(34) & "D:\Proba\" & ListBox1.Selected & Chr(34), vbNormalFocus -
Delila_1
veterán
válasz
bteebi
#32169
üzenetére
Másik módszer, ha a C5-be akarsz érvényesítést bevinni a fájlnevekhez.
Az M oszlopba írtam be pár adatot, az M1-ben címmel. A tartományt táblázattá alakítottam, M2-től lefelé elneveztem a tartományt. A C5 forrásához ezt a nevet vittem be.
Sub ListaFeltoltes_1()
Dim FN As String, sor As Long
Range("M2:M" & Range("M" & Rows.Count).End(xlDown).Row).ClearContents
FN = Dir("D:\Proba\lista_" & datum & "*.pdf")
sor = 2
Do While FN <> ""
Range("M" & sor) = FN
sor = sor + 1
FN = Dir()
Loop
End SubFuttatás után a kiválasztott fájlok nevei lesznek a C5 érvényesítésében.
Azt is megteheted, hogy a fájlnevek betöltése után emelkedő sorrendbe rendezed az M oszlopot, majd a C5-ben az M oszlop alsó értékét jeleníted meg az érvényesítés helyett.
=INDEX(M:M;HOL.VAN("zzzz";M:M;1);1) -
Delila_1
veterán
válasz
bteebi
#32169
üzenetére
Létrehozol egy userformot, ami egy listboxot tartalmaz, meg egy gombot.
Modulba:
Sub ListaFeltoltes()
Dim FN As String
FN = Dir("D:\Proba\lista_" & datum & "*.pdf")
Do While FN <> ""
UserForm1.ListBox1.AddItem FN
FN = Dir()
Loop
UserForm1.Show
End SubEz a makró feltölti a feltételeknek megfelelő fájlok nevével a listboxot, és indítja a formot.
A gomb click eseményébe írhatod be, hogy mi legyen a listboxban kiválasztott 1 vagy több fájllal. Ha többet is ki akarsz választani, akkor a listbox MultiSelect tulajdonságát fmMultiSelectMulti-ra kell állítanod, az alapértelmezett fmMultiSelectSingle helyett.
-
bteebi
veterán
válasz
Fferi50
#32163
üzenetére
Köszönöm!
Módosítottam a makrót, így már egy dropdown-ba (vagy bármi másba) ki tudom gyűjteni a file-okat az általad megadott módon. Hogy lehetne ezt megjeleníteni egy message/input boxban?Sub listakereso()
Dim datum As Long, file As Variant, lista As String
datum = ActiveSheet.Range("C4")
file = Dir("D:\Proba\lista_" & datum & "*.pdf")
lista = ""
Do While (file <> "")
If lista = "" Then
lista = file
Else
lista = lista & "," & file
End If
file = Dir()
Loop
With ActiveSheet.Range("C5").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:=lista
.IgnoreBlank = True
.InCellDropdown = True
End With
If lista = "" Then
MsgBox "Nem találom a listát!", vbExclamation
End If
End Sub -
ipij
csendes tag
-
Fferi50
Topikgazda
válasz
Pikkolo^^
#32160
üzenetére
Szia!
Igen, meg kell nyitnod hozzá a Word alkalmazást az Excel makróban, abba kreálni egy új dokumentumot és az Excel tartalmat belemásolod.
Sub wordos()
Dim wrd As Object, wd As Document
Set wrd = CreateObject("word.application") 'Word nyit
wrd.Visible = True
Set wd = wrd.documents.Add 'új dokumentumot nyit
ActiveSheet.UsedRange.Copy 'kijelölöd a másolandó területet (pl. Range("A1:F25")
wrd.Selection.Paste 'ha képként szeretnéd beilleszteni, akkor PasteSpecial, paraméterekkel HELP segít
wrd.Activate
wd.Save 'itt meg kell adnod, hogy milyen néven mented
wrd.Quit ' Word bezár
End SubFigyelem! A makró futtatása előtt a VBA ablak Tools Menüjében a References menüpontban be kell jelölnöd a megfelelő Microsoft Word könyvtárat!!! (pl. 2016-os nál Microsoft Word 16.0 Object Library).
Üdv.
-
Fferi50
Topikgazda
válasz
bteebi
#32157
üzenetére
Szia!
Szerintem a dir() paranccsal végig tudsz menni az összes fájlon.
file=Dir("D:\Proba\lista_" & datum & "*.pdf"
do while file<>""
lista=lista & "," & file
file=dir()
loop
A listát használhatod egy cella érvényesítéséhez, amiből kiválasztható amelyiket meg kell nyitni, vagy csinálhatsz egy drop-down-t a munkalapon, aminek a forrása a lista.Ezen kívül lehet még olyan, hogy a FileDateTime(file) függvénnyel lekérdezed az adott fájl dátumát és a legfrissebbet kiválasztod megnyitásra.
Üdv.
-
Fferi50
Topikgazda
Szia!
Sajnos ezt csak úgy tudod megoldani, ha minden alakzathoz rendelsz egy makrót, ami alapján fogod tudni az adott alakzat nevét.
A közös makrót pedig a névvel paraméterezve hívod meg.
Pl.Sub makro_teglalap1
makro_kozos "teglalap1"
End Sub
Sub makro_kozos(ByVal neve As String)
Select Case neve
Case Is = "teglalap1"
'ide jön amit csinálnia kell
Case Is = "valami mas........"
'ide jön amit csinálnia kell
End Select
End SubAz egyenkénti makrót egyszer megírod, utána másolod és változtatod benne a neveket.
Üdv.
-
-
ipij
csendes tag
Sziasztok!
Segítséget szeretnék kérni EXCEL MAKRÓ ügyben.
Több alakzatokhoz (pl. téglalap) szeretnék rendelni egy makrót.
A makró attól függően futna le, hogy melyik alakzatra kattintottam.
A kérdés, hogy hogyan tudom lekérdezni az alakzat nevét amire kattintottam?
(Kijelölt alakzat nevét letudom kérdezni, de az nem jó.)
(Nagyon kezdő vagyok!)
Előre is köszönöm.
Üdv:
ipi -
bteebi
veterán
Sziasztok! Egy mappából szeretnék egy cellában megadott file-t megnyitni. A file-ok elnevezése lista_"dátum".pdf, pl. lista_201601.pdf. A dátumot kérem be a C4-es cellába. Ezt a makrót írtam hozzá:
Sub listakereso()
Dim datum As Long
datum = ActiveSheet.Range("C4")
If Dir$("D:\Proba\lista_" & datum & ".pdf", vbDirectory) <> "" Then
Shell CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AcroRd32.exe\") & " /A " & Chr(34) & "&zoom=" & 95 & Chr(34) & " " & Chr(34) & "D:\Proba\lista_" & datum & ".pdf" & Chr(34), vbNormalFocus
Else
MsgBox "Nem találom a listát!", vbExclamation
End If
End SubTeljesen jól működik - vagyis működne -, viszont a file-oknak esetenként több verziója van (és mindegyik verzió benne van a mappában), a fenti példánál maradva pl. lista_201601 v1.pdf (és akár v2, v3, stb.). Emiatt szükség van arra (?), hogy egy loop-pal végignézze az összes file-t:
Sub listakereso2()
Dim datum As Long, file As Variant
datum = ActiveSheet.Range("C4")
Do While (file <> "")
If Mid(file, 7, 6) = datum Then
Shell CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AcroRd32.exe\") & " /A " & Chr(34) & "&zoom=" & 95 & Chr(34) & " " & Chr(34) & "D:\Proba\" & file & Chr(34), vbNormalFocus
Exit Sub
End If
file = Dir()
Loop
MsgBox "Nem találom a listát!", vbExclamation
End SubEz azonban még mindig csak ugyanazt csinálja, amit az előző makró, csak jóval bonyolultabban. A feladat pedig igazából az lenne, hogy a legutolsó file verzió nyíljon meg. Ennél viszont már sajnos elfogy nálam a tudomány. Tudnátok ötletet adni arra, hogy hogy lehetne folytatni?
A legideálisabb megoldás egyébként az lenne, ha pl. egy message boxba (vagy input boxba) össze lenne gyűjtve az összes file verzió (beleértve az eredeti file-t is), és pl. egy radio button-nel (vagy esetleg drop down-nal) lehetne kiválasztani a megfelelő file-t.
Előre is köszönöm a segítségeteket!
-
bsasa1
csendes tag
válasz
DeFranco
#31836
üzenetére
Szia!
Bár nem hiszem, hogy már érdekes, de ha mégis, akkor ez a te mátrixodra is tud működni.
2 sor képlete:
Oszlopok megtalálása:
HAHIBA(KICSI(HA(($A2:$T2)<>"";OSZLOP($A2:$T2);"");1);""), tömbképlettel, annyi, hogy az 1-est kell cserélni attól függően hányadik találatot szeretnéd.
Mellé értékek:
HAHIBA(INDEX($A2:$T2;;V2);"") -
bsasa1
csendes tag
-
Delila_1
veterán
válasz
Pikkolo^^
#32149
üzenetére
Nem látszanak a sor- és oszlopazonosítók a képen.
Modulba tedd a makrót.
Sub Kigyujtes()
Dim sor As Long, oszlop, ide As Long
sor = 3
Do While Cells(sor, "B") <> ""
oszlop = Application.Match(Cells(sor, "C"), Rows(2), 0)
If VarType(oszlop) = vbError Then
MsgBox "Nincs " & Format(Cells(sor, "C"), "yyyy.mm.dd") & " dátum a 2. sorban"
Else
ide = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
Cells(ide, oszlop) = Cells(sor, "B")
End If
sor = sor + 1
Loop
End SubNézd meg a képen, hogy a keresendő dátumokat tartalmazó sor feljebb van, mint a C oszlop első dátuma, ez fontos.
-
Bazs-
tag
Sziasztok,
Valamilyen módon megoldható, hogy egy excelből olyan másolatot készítsünk, amiben a képletek nincsenek már bent, csak az adatok és a formátum marad meg?
Azonkívül, hogy mindent manuálisan másolok és utána egy másik munkafüzetbe irányított beillesztéssel beteszem.Nagyon köszönöm előre is.
-
-
Pikkolo^^
addikt
Adatok lekérdezésére eddig az F/VKERES függvényt alkalmaztam most viszont olyan a feladat, hogy több db azonos tétel van a keresési feltételek között és ezek mindegyikét meg kellene jeleníteni egy cellában vagy több külön sorban a hozzá tartozó dátummal együtt. Ezt meg lehet-e oldani valamelyik függvénnyel vagy makrót kell hozzá írni?
-
-
Mittu88
senior tag
válasz
Delila_1
#32140
üzenetére
A méretük nem változik, csak a helyük. A cég logoja ugrik be, és háttérképként viselkedik. Ha rányomnak ennek a munkalapnak a "nyomtatására", a kép beugrik az A1 cellába (oldalon belül marad), beállítja a makró az oldaltörést (ez nem működik), kiexportálja pdf-be a munkalapot (2 oldalasra kéne, úgy, hogy a sortörés az 54. és az 55. sor között legyen), aztán törli a kitöltött mezők adatait, a képeket elrakja a BD1 mezőbe (hogy ne legyen szem előtt kitöltéskor), végül e-mailt küld a célszemélyeknek.
-
Mittu88
senior tag
válasz
Delila_1
#32138
üzenetére
Az aktív lapon, de a lap neve egy Worksheet változóba is el van mentve, szóval elég sokféle módon hivatkozhatok rá, de egyikkel se csinálja meg az oldaltörést. Két kép is van a munkalapon, amik valamennyire transzparensek, nem tudom számít-e, de próbáltam már nélkülük is beszúrni az oldaltörést, és egyszerűen nem csinálja meg.
Az lehetséges, hogy nem tudja összenyomni olyan picire, hogy egy oldal ráférjen, és ezért nem teszi be?
-
Delila_1
veterán
válasz
Mittu88
#32137
üzenetére
Az az 1 sor, amit írtam, bármelyik lapról indítva a makrót, bármelyik másik lapra beteszi az oldaltörést.
Ha az aktív lapon akarsz oldaltörést létrehozni, az
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A22")sorral is megteheted.
Akár ciklust is szervezhetsz köré, ami x soronként szúr be oldaltörést.
Sub Oldaltores()
Dim x As Long
For x = 53 To 300 Step 53
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & x)
Next
End Sub -
Mittu88
senior tag
válasz
Delila_1
#32136
üzenetére
Ez így nem csinálja meg az oldaltörést:
ActiveWindow.View = xlPageBreakPreview
Application.PrintCommunication = False
Thisworkbook.Worksheets("GépbeállítóTÉR").Activate
ActiveWorkbook.Sheets("GépbeállítóTÉR").HPageBreaks.Add Before:=Range("A55") 'Nincs látszata
Set ActiveWorkbook.Sheets("GépbeállítóTÉR").HPageBreaks(1).Location = Range("A55") 'Subscrypt out of range hibaImmediate ablakban a ?ActiveWorkbook.Sheets("GépbeállítóTÉR").HPageBreaks.Count eredménye 0 az Add parancs lefutása után is!
Fferi50: nem hiszem, hogy parancsot írtam el, csak trehány módon írtam le. Bocs
-
Fferi50
Topikgazda
válasz
Mittu88
#32128
üzenetére
Szia!
Thisworkbook.Worksheets("mlapnév").HpageBreak.Add "Adott cella" helyett
Thisworkbook.Worksheets("mlapnév").HpageBreakS.Add "Adott cella"
Az "Adott cella" egy Range objektum pl. worksheets("mlapnev").Range("A56") legyen.
A másik verzió pedig azért hibás, mert a Location objektum, ezért set és = formában kell értéket adni neki.
Set Thisworkbook.worksheets("mlapnév").HpageBreak(1).Location = "Adott cella"
Továbbá csak akkor működik, ha oldaltörés nézetben vagy.
Üdv.
-
szente
addikt
Sziasztok!
Igazából OpenOffice Calc-ban dolgozok, de hátha tudtok segíteni.
Szóval kellene nekem egy olyan fügvény,makró,bármi amivel eltudom azt érni, hogy 50Ft-ra kerekítsen a szabályoknak megfelelően. Már ha létezik ilyen.
Ha lehet, akkor majd kicsit szájbarágósabban, mert nem vagyok valami expert. Nagyjából bármilyen megoldás érdekel, mert 3000 db számot kellene kerekítenem, kézzel kicsit macerás lenne.Köszi!
-
Mittu88
senior tag
válasz
lenkei83
#32126
üzenetére
Na igen, de valamiért nem teszi be az oldaltörést.
Arra a kódra, hogy
Thisworkbook.Worksheets("mlapnév").HpageBreak.Add "Adott cella"
nem csinál semmit, a
Thisworkbook.worksheets("mlapnév").HpageBreak(1).Location "Adott cella"
meg Subscrypt out of range hibára fut.Hogy tudok oldaltörést beszúrni egy adott sor fölé, hogy ne dobjon hibaüzenetet?
-
sajog159
aktív tag
válasz
sajog159
#32117
üzenetére
Meglepő e-mailt kaptam az OTP-től:
„Tisztelt Sajó Gábor!
Szíves elnézését kérjük, hogy az OTPdirekt internetes szolgáltatás igénybevétele során kellemetlenséget tapasztalt.
Bankunknak tudomása volt a levelében jelzett átmeneti technikai problémáról. A hiba elhárítását szakembereink elvégezték, ezért az OTPdirekt internetes szolgáltatás újra zavartalanul igénybe vehető.
Köszönjük türelmét és megértését.
Az OTP Bank NyRt. szolgáltatásaival a továbbiakban is állunk az Ön szíves rendelkezésére.
Tisztelettel:
XXXXX Gabriella
OTP Bank Nyrt. ”A levél azért meglepő, mert most leellenőriztem és a probléma egyáltalán nem szűnt meg!
De nagyon örülnék, ha valaki itt a fórumon hozzá tud szólni ehhez.
-
lenkei83
tag
válasz
Mittu88
#32125
üzenetére
Kb annyi a lényege, hogy nincs oldaltörésed. Magyarul ha nyomtatsz egyet, akkor egyetlen egy oldalad lesz kinyomtatva vagyis az oldaltörésed ugyanaz mint az első oldalhoz kapcsolódó nyomtatási terület nagysága.
Van a linken minta kód is, teljesen jól mutatja hogy mi a gond.
Vélhetően Nálad így néz ki az oldaltörés, na ezt nem tudja értelmezni a kódod:
Ezt már tudja:
Üdv
P. -
#32124
Delila_1
veterán
Juditta_56
#32123
Delila_1
veterán
válasz
Juditta_56
#32123
üzenetére
Örülök. hogy sikerült beüzemelned.
-
oke
senior tag
válasz
Delila_1
#32118
üzenetére
köszi
Érdekes, mert AD-vel is működött..Még egy dolog tűnt fel. Ha az összesítő tábla 5 sorában, ahol a napok vannak az egyik nap dátumát - mondjuk a 7-ét - átírom 8-ára, akkor nem az átírt oszlopban változnak az adatok és jelenik meg a 8-ához tartozó adat, hanem a következő oszlopban történik változás. Nyílván erre műveletre nincs szükség, csak a függvényt próbáltam értelmezni, mi mit csinál és erre ez jött ki, amit kicsit furcsállok
-
lenkei83
tag
válasz
Juditta_56
#32120
üzenetére
Feltöltöd a tábládat?
-
Delila_1
veterán
-
sajog159
aktív tag
Egy, feltehetően Excel probléma jelent meg a napokban. Office/Excel 2013 van a gépemen.
Egy összesítő fájlban gyűjtöm az OTP átutalási számla adatait. Pár napja nagyon furcsa jelenséggel találtam szembe magamat. Az XLS formátumban exportált fájlokat nem tudom kinyitni a gépemen. Ha exportálási ablak kinyílik az OTP Direktnél, két opció van:
1. Open with (MS Excellel). Ilyenkor elindítja az Excelt – ha nem volt nyitva – de semmit nem olvas be. Magát a fájlt ilyenkor a „C:\Users\Gábor\AppData\Local\Temp” könyvtárba teszi le és - eddig – kinyílt az Excel fájl. Két kép erről:
2. Save file. Ilyenkor a „…/Letöltések” könyvtárba menti a fájlt (ahonnan ki lehetett nyitni, eddig!)
Még pár furcsaság, ami eddig nem volt. A „…/Temp” könyvtárból a letöltött fájl eltűnik/kitörlődik, amikor bezárom a Mozillat !?Ha másik PC-re küldöm át e-malben, ott nincs gond a kinyítással.
Ha másik PC-ről lépek be OTP Direktbe, ott nincs ez a jelenség.
Ha saját PC-ről, de MS Edge-el lépek be azOTP Direktbe, ugyanaz a probléma lép fel.Ha Firefox bezárása előtt átmásolom másik könyvtárba, ott megmarad, de onnan sem nyitható ki. Ha PDF fájlt töltöm le és átmásolom „/Temp” könyvtárból, onnan kinyitható, vagy ha eleve a „Open with” opciót választom akkor is kinyílik, de /Temp könyvtárból ez is eltűnik Firefox bezárása pillanatába.
Hát, röviden nem sikerült leírni, de remélem valakinek lesz türelme elolvasni és tanácsot is adni mit tehetek a probléma megszüntetésére!
Előre is kösz,
-
-
oke
senior tag
válasz
Delila_1
#32108
üzenetére
külön excel fájlok. Összesen 3 db. Mindegyiknél külön fülön a hónapok, azaz ilyen szempontból azonosak a felépítések..gyakorlatilag mintha a képen látható fájlból lenne 3 db, csak más fájlnévvel. Lényegében a a dolgozók neveik különböznek. Szerencsére nincs azonos.
A közös excelnek is így kell kinéznie (ez lenne a 4. excel), csak az összes név és a hozzá tartozó adatok szerepelnének benne havi bontásban. -
#32109
bsasa1
csendes tag
Juditta_56
#32100
bsasa1
csendes tag
válasz
Juditta_56
#32100
üzenetére
Bocsi, közben leesett, hogy igazából ez is egy makró, úgyhogy nem fogod tudni sima xlsx-be lementeni.
-
oke
senior tag
Sziasztok!
Több szolgálati beosztást használunk excelben, ezekből kellene készítenem egy olyan közöset is, ahol egyben is látszana mindenki. Maga az adatok módosítása továbbra is a külön szolgálati exceleken történne.
A jelenlegi táblázatok majdnem egységesek. Felépítésük hasonló:
Az oszlopban vannak a nevek, az 5, sorban a napi dátumok egy hónapra vonatkozóan, ezek metszeténél pedig az, hogy dolgozik e a kolléga az adott napon, délutános, délelőttös stb. Minden hónap külön fülön van, a fenti adatokkal
Hogy lehetne ezt egyszerűen megoldani? Próbálkoztam azzal, hogy sima egyenlőségjellel hivatkoztam a másik excel adott cellájára, de ha valamit variáltak az eredeti excelen, akkor borult minden.
Itt egy példa kép, Márciusig látszanak a fülek, de egész évre vonatkozik:
Excel 2007
-
#32106
bsasa1
csendes tag
Juditta_56
#32100
bsasa1
csendes tag
válasz
Juditta_56
#32100
üzenetére
Szia,
ha megfelel úgy, hogy egy tömbbe íratod ki a munkalapneveket, akkor egy megoldás pl:
bármelyik szabad cellára: Képletek / Név megadása: ide beírsz egy nevet, alulra a hivatkozásba a képlet:
=HELYETTE(MUNKAFÜZETET.VESZ(1);"["&MUNKAFÜZETET.VESZ(16)&"]";"")ezután kijelölsz egy vízszintes tartományt, amennyi lapod van (vagy többet), és beírod a nevet, amit megadtál és Ctrl+Shift+Enter egyszerre.
De így csak tömbben sorban tudod megjeleníteni a neveket, innen még be kell őket hivatkozni abba a cellába ahová szeretnéd.
Bár lehet a legújabb exceleken már nem működik a dolog.
-
Fferi50
Topikgazda
válasz
Ded&Dad
#32102
üzenetére
Szia!
"de bármit írtam a textboxokhoz nem akarta nekem kidobni a többi infót"
Valóban jó lenne látni, hogy mit sikerült eddig összehoznod, mivel többféle megoldás is lehetséges.
A textboxot hozzá lehet kötni cellához, akkor onnan veszi az értéket, de közvetlenül is lehet bele írni makróval - attól függ, milyen tipusú vezérlőt használsz.Üdv.
-
arpiodzo
újonc
Szia Gyga!
Nem tudom, hogy kaptál-e érdembeli választ vagy rájöttél-e azóta hogy mi volt az a rejtett kitörölhetetlen csatolás, de pont most találkoztam ezzel a problémával. Jó egy napot szívtam vele, végül rájöttem a titok nyitjára. Oszloponként másoltam át új fájlba az adatokat, figyeltem mikor fog élesedni a hivatkozások gomb. Persze ezt is többször elvégeztem és tényleg csak akkor tűnt el a csatolás, ha az egész lapot töröltem. Így megpróbálkoztam azzal is, hogy irányított beillesztés, és csak a képleteket másoltam. Láss csodát, így nem lett egyetlen külső hivatkozásom sem, bezzeg, amikor a formátumot is rámásoltam, akkor rögtön megjött. Na, át is néztem azonnal a feltételes formázásokat, itt derült ki, hogy némelyik másolt formátum között voltak bizonyos munkalapra illetve azok celláira való direkt hivatkozások. Ezeket töröltem vagy átalakítottam, ezután pedig már a hivatkozások közül is sikerült kiírtanom. Remélem segített.... -
Ded&Dad
újonc
Sziasztok!
Szeretném a segítségetek kérni egy kis makro probléma megoldásában.Van egy táblázatom nem olyan sok adattal egyenlőre, de késöbb bővítés lesz. És szeretném az egyik oldal szűrőként használi. Legyen a neve nyitóoldal. Ezen az oldalon létrehoztam egy ComboBoxot és hat textboxot. Ha a Comboboxból kiválasztok egy kódot akkor a hozzátartozó infókat dobja a mellete lévő hat textboxba. Annyit sikerült megcsinálnom hogy a comboboxba beletettem a kódokat, de bármit írtam a textboxokhoz nem akarta nekem kidobni a többi infót. Még a FilterOff sem működik rendesen.
Kivagyok tőle rendesen már
Ebben szeretném a segítségeteket kérni nagyon S.O.S-ben.
Előre is köszi a segítséget.
A táblázatot tudom küldeni majd.
-
#32101
Fferi50
Topikgazda
dajkapeter
#32095
Fferi50
Topikgazda
válasz
dajkapeter
#32095
üzenetére
Szia!
Ha nem a tartomány első oszlopában kívánsz keresni, illetve a céloszlop előrébb van, mint ahol a keresés tárgya, akkor az INDEX - HOL.VAN függvény párost lehet használni, nem kell megvátoztatni az oszlopok helyzetét, Pl:
=INDEX(A:D;HOL.VAN(Keresem;C:C;0);2)
a B oszlopból írja ki azt az értéket, ami a C oszlopban keresett értékkel egy sorban van.Üdv.
f*sze vagyok neha ennyire balek 
mentsegemre legyen mondva mennek mar haza es en tartom mar csak a frontot
Ha lehet, akkor majd kicsit szájbarágósabban, mert nem vagyok valami expert. 
Új hozzászólás Aktív témák
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Küszöbön az androidos PC-k
- Gyúrósok ide!
- Kertészet, mezőgazdaság topik
- Apple iPhone 17 Pro Max – fennsík
- A Temu diktál Magyarországon, a hazai e-kereskedők fulladoznak
- SkyShowtime
- iPhone topik
- Filmvilág
- PlayStation 5
- További aktív témák...
- HIBÁTLAN iPhone 14 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3527, 94% Akkumulátor
- Acer TravelMate P214 i3-1115G4 16GB 512GB 14" FHD 1év garancia
- BESZÁMÍTÁS! Lenovo Legion Go S 32GB/1TB kézikonzol garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 14 256GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3534
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest