- Radeon RX 9060 XT: Ezt aztán jól meghúzták
- Atomenergiával dübörögnek tovább az Amazon adatközpontok, SMR-ek is jöhetnek
- Macron betiltatná az EU-ban a közösségi médiát a 15 év alattiaknak
- Az NVIDIA ipari AI-felhőt épít a németeknek, együtt az OpenAI és a Google
- Két új Ryzen közül választhatnak a kézikonzolok
-
PROHARDVER!
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
-
slashing
senior tag
válasz
Delila_1
#22197
üzenetére
Gyártásfüggő, egyszerre csak egyet, ha nincs elmaradás
ami a jelenlegi rendszert nézve mindig van mivel most az ember van a számítógépért elv érvényesül és nem fordítva, szokás szerint senki nem gondolkozott mielőtt kitalált valamit.Kapaszkodj mert így működik jelenleg:
Elindul a gyártás az egyik termékkel, lemér az ellenőr mondjuk 10 darabot egyik oldalt vagy másik oldalt. Ebből kap 10 db PDF-et! A 10 darab PDF-et jelenleg mivel nincs converter kézzel megnyitogatja majd bemásolja egy excel táblába és elmenti ezt 10-szer, nem ám csv pdf az kell. Az így kapott 10 excel táblázaton lefuttat egy arra a termékre vonatkozó makrót(makró rögzítés rulez) ami kitörli a felesleges adatokat és csak a szükséges marad benne. Majd ezeket átmásolja még kézzel egy copy of all-ba(nah ezt a feladatot oldottuk most meg úgy hogy csak az adott oszlop adatait össze ollózza) ahonnan szintén kézzel átmásolja az adatokat az adott termék adott méretre vonatkozó excel táblájába. Ez azért k**** jó mert van olyan hogy 100 méret van szóval 100 különböző fájlba kell szétdobálni a copy of all-ból az egyes méreteket. Ezek után már csak egy sima cellahivatkozás kell majd mindegyikbe bevinni hogy ebből a táblából frissítse eddig ezt azért nem lehetett megcsinálni mert egy munkalapra volt ömlesztve minden terméknek az értékei. Ha akartam volna sem találok ki ilyen bonyolult és időigényes dolgot. Így is baromi sok munka lesz feltölteni a cellahivatkozás képletekkel a meglévő sacc/kb 3000 táblázatot.
Ez a leggyorsabb embernek is több óra műszakonként és akkor még nem beszéltünk olyanról hogy termékváltás van vagy csak szimplán méretellenőrzés
-
Delila_1
veterán
válasz
slashing
#22195
üzenetére
Szívesen.
Igen, a WS változó az aktív lap nevét tárolja, és ezt adja át a Pathname változónak is.
Kiteszed a gombot az első 6120-... lapra, hozzárendeled a ProcessFiles makrót. A gombon a szöveg olyasmi lehet, hogy Adatok bemásolása. Ezt a gombot másolod az összes többi lapra. Bárhonnan indítod, mindig a saját könyvtárából hívja be a fájlokat. -
slashing
senior tag
-
Delila_1
veterán
válasz
slashing
#22192
üzenetére
A DoWork makró End With fölötti sora legyen
Workbooks(WBN).Sheets(WS).Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Szerk.:
Inkább leírom a 2. makrót is.
Sub DoWork(wb As Workbook, WBN, WS)
Dim usor As Long, cell As Range, selectRange As Range
With wb
usor = .Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row
For Each cell In .Sheets(1).Range("A3:A" & usor)
If (cell.Value <> "") Then
If selectRange Is Nothing Then
Set selectRange = cell
Else
Set selectRange = Union(cell, selectRange)
End If
End If
Next cell
usor = Workbooks(WBN).Sheets(WS).Range("A" & Rows.Count).End(xlUp).Row + 1
selectRange.Copy
Workbooks(WBN).Sheets(WS).Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
End Sub -
Delila_1
veterán
válasz
slashing
#22192
üzenetére
Próba nélkül az első makró (nálam most éppen bedöglött az Excel).
Sub ProcessFiles()
Dim Filename, Pathname As String, WBN As String, WS As String
Dim wb As Workbook
Application.ScreenUpdating = False
WBN = ActiveWorkbook.Name
WS = ActiveSheet.Name
Pathname = "C:\teszt\" & WS & "\"
Filename = Dir(Pathname & "*.xlsx")
Do While Filename <> ""
Set wb = Workbooks.Open(Pathname & Filename)
DoWork wb, WBN, WS
wb.Close SaveChanges:=True
Filename = Dir()
Loop
Application.ScreenUpdating = True
End SubBármelyik oldalról indítva elméletileg a saját könyvtárából hívja be, és másolja a füzetek adatait.
-
Delila_1
veterán
válasz
slashing
#22185
üzenetére
Akkor ugorj neki újra.
1 db fájlba, különböző lapokra akarod bemásolni több füzet lapjainak a tartalmát?
A gyűjtő füzet lapjait úgy nevezted el, hogy a név egyúttal a mappa neve, ahonnan be akarod gyűjteni az adatokat?Ahonnan másolsz, azok a füzetek hány lapot tartalmaznak?
-
slashing
senior tag
válasz
Delila_1
#22184
üzenetére
Egy fájlban lesz az egész sok-sok lap-al kb. 50<>100
nehézkes lenne a lapok mozgatása nah meg a userek betanítása erre akiknek sokszor gondot okoz az is hogy egy könyvtárat két kattintással nyitunk meg áhhhh ugyhogy vagy maradok a másolás átírásnál vagy ha egyszerűen megoldható akkor listaválasztó vagy űrlapos 
megoldás vagy bármiAz első munkalap amolyan termék választóként funkcionál ahol most gomokkal indítható az egyes termékek moduljai amik ugye csak a fájl elérési útjában és másolandó adatok lapjának nevében különböznek.
De ha bonyolult megoldani akkor lemásolom annyi példányban amennyiben kelleni fog annyira nem tervezem módosítgatni benne a dolgokat.
-
Delila_1
veterán
válasz
slashing
#22183
üzenetére
Legegyszerűbb, ha minden füzetben a másolandó oldalt az első helyre mozgatod. Ekkor a DoWork makróban a
usor = .Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row
sor helyett
usor = .Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
kerül, a
Workbooks(WBN).Sheets("6120-1121 PCB OLDAL").Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True
helyett pedig
Workbooks(WBN).Sheets(1).Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Az összegző füzetben is első legyen a lap, ahova bemásolod a többi füzetből az adatokat.
-
slashing
senior tag
A fenti Makróban azt meg lehet oldani hogy a fájl elérési útjának a vége, jelen esetben /6120-1122/ illetve a lapnak a neve jelen esetben 6120-1121 PCB OLDAL egy listából változzon, lenne egy lista mellette egy indító gomb vagy valami hasonló? mert ezt a kettőt könnyedén egy nevezőre tudom hozni és ha megoldható akkor nem kéne vagy 100 variációban lemásolni a module-t ami egy esetleges módosítás után kellemetlen lenne mindegyiken végigzongorázni nem beszélve arról hogy mekkora hibalehetőséggel járna.
-
lappy
őstag
válasz
tgumis
#22180
üzenetére
Nagy M betűvel írja, hogy megkülönböztesse a perctől (m).
M: Ez a formátumelem számjeggyel jeleníti meg a hónapokat, egyszámjegyű hónapok esetén kezdő 0 (nulla) nélkül. Július esetében például: 7.
MM: Ez a formátumelem számjeggyel jeleníti meg a hónapokat, egyszámjegyű hónapok esetén kezdő 0-val. Július esetében például: 07.
MMM: Ez a formátumelem rövidítésként jeleníti meg a hónapneveket, július esetében például: júl.
MMMM: Ez a formátumelem teljes névvel jeleníti meg a hónapokat. -
slashing
senior tag
Kiegészítettem két sorral hát ha kell másnak is az első ami kikapcsolja vagy legalábbis nem mutatja a megnyitás bezárást(Application.ScreenUpdating = False) így gyorsul a program kb. 25-50%-ot illetve ha sok adat kerül a vágólapra a kilépésnél mindig feldobott egy ablakot hogy megtartom-e vagy sem(Application.CutCopyMode = False).
A ScreenUpdating-et vissza kell amúgy kapcsoltatni a makró végén vagy nem szükséges?
Sub teszt_61201121()
Dim Filename, Pathname As String, WBN As String
Dim wb As Workbook
Application.ScreenUpdating = False
WBN = ActiveWorkbook.Name
Pathname = "c:\teszt\6120-1121\"
Filename = Dir(Pathname & "*.xls")
Do While Filename <> ""
Set wb = Workbooks.Open(Pathname & Filename)
DoWork wb, WBN
Application.CutCopyMode = False
wb.Close SaveChanges:=True
Filename = Dir()
Loop
End Sub
Sub DoWork(wb As Workbook, WBN)
Dim usor As Long, cell As Range, selectRange As Range
With wb
usor = .Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row
For Each cell In .Sheets(1).Range("C3:C" & usor)
If (cell.Value <> "") Then
If selectRange Is Nothing Then
Set selectRange = cell
Else
Set selectRange = Union(cell, selectRange)
End If
End If
Next cell
usor = Workbooks(WBN).Sheets("6120-1121 PCB OLDAL").Range("A" & Rows.Count).End(xlUp).Row + 1
selectRange.Copy
Workbooks(WBN).Sheets("6120-1121 PCB OLDAL").Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
End Sub -
Delila_1
veterán
válasz
slashing
#22169
üzenetére
Az előbbi makró csak a megnyitott fájl adatainak a másolását oldotta meg. A mostaniban a fájlok megnyitása, és zárása is szerepel.
A Pathname változóban írd át az útvonalat. Nem érdemes az összefűzendő fájlokat és azt, amelyikben összefűzöd, azonos mappában tartani.
Sub ProcessFiles()
Dim Filename, Pathname As String, WBN As String
Dim wb As Workbook
WBN = ActiveWorkbook.Name
Pathname = "F:\Eadat\valami\"
Filename = Dir(Pathname & "*.xls")
Do While Filename <> ""
Set wb = Workbooks.Open(Pathname & Filename)
DoWork wb, WBN
wb.Close SaveChanges:=True
Filename = Dir()
Loop
End SubSub DoWork(wb As Workbook, WBN)
Dim usor As Long, cell As Range, selectRange As Range
With wb
usor = .Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row
For Each cell In .Sheets(1).Range("A3:A" & usor)
If (cell.Value <> "") Then
If selectRange Is Nothing Then
Set selectRange = cell
Else
Set selectRange = Union(cell, selectRange)
End If
End If
Next cell
usor = Workbooks(WBN).Sheets("mega").Range("A" & Rows.Count).End(xlUp).Row + 1
selectRange.Copy
Workbooks(WBN).Sheets("mega").Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
End Sub -
slashing
senior tag
válasz
Delila_1
#22171
üzenetére
Uhh ez tök jól működik és naivan azt hittem az összefűzés a másik makróval már gyerek játék lesz de valamiért hibaüzenetet dob ki miután megnyitotta az első fájlt(Object variable or With block variable not set). Szerintem az zavar be neki hogy nem tudja hol dolgozzon vagy valami hasonló most így néz ki kb. csak összemásoltam a kettőt. A kiemelt résznél van gondolom a hiba hogy melyik workbook-al mit szeretnék csinálni de nem jövök rá mit kéne átírnom hozzá...
Sub ProcessFiles()
Dim Filename, Pathname As String
Dim wb As WorkbookPathname = ActiveWorkbook.Path & "\Files\"
Filename = Dir(Pathname & "*.xls")
Do While Filename <> ""
Set wb = Workbooks.Open(Pathname & Filename)
it wb
wb.Close SaveChanges:=Yes
Filename = Dir()
Loop
End SubSub it(wb As Workbook)
With wb
'Do your work here
Dim cell As Range, usor As Long
Dim selectRange As RangeFor Each cell In ActiveSheet.Range("A3:A1000")
If (cell.Value <> "") Then
If selectRange Is Nothing Then
Set selectRange = cell
Else
Set selectRange = Union(cell, selectRange)
End If
End If
Next cellusor = Sheets("mega").Range("A" & Rows.Count).End(xlUp).Row + 1
selectRange.Copy
Sheets("mega").Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
End SubÚgy kéne összefűzni a két makrót hogy van egy összesítés.xls amiben csak egy makróindító gomb van illetve a mega munkalap. Ha elindítom a gombbal a makrót akkor a files könyvtárban lévő fájlokból kimásolgatja ide az a3:a1000 nem üres celláit transzponálva egymás alá.
-
Delila_1
veterán
válasz
slashing
#22169
üzenetére
[Sub it()
Dim cell As Range, usor As Long
Dim selectRange As Range
usor = Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row
For Each cell In ActiveSheet.Range("A3:A" & usor)
If (cell.Value <> "") Then
If selectRange Is Nothing Then
Set selectRange = cell
Else
Set selectRange = Union(cell, selectRange)
End If
End If
Next cell
usor = Sheets("mega").Range("A" & Rows.Count).End(xlUp).Row + 1
selectRange.Copy
Sheets("mega").Range("A" & usor).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End Sub -
slashing
senior tag
válasz
slashing
#22168
üzenetére
de istenigazából az is tökéletes megoldás nekem ha a mega munkalapra kerül egymás alá.
És akkor a munkafüzeten1-en lenne egy makró indítás gomb a mega lapon meg ott lenne minden fájlból az adat. Ez még jobb is mint a ha külön fájlba menne!faszán össze flood-oltam a fórumot
-
slashing
senior tag
Szép lassan összelopkodom innen onnan ami kell de most kicsit megakadtam.
Ez a makró jelenleg azt csinálj hogy az A3:A1000 tartományban megkeresni a nem üres cellákat, kijelöli azokat majd átmásolja a Mega lapra transzponálva.
Na most én azt szeretném hogy ne a mega lapra másolja hanem a mega.xlsx-be és oda is úgy kellene hogy mindig az első üres sorba egymás alá. Ez azért fontos mert a két hozzászólással feljebb lévő minden munkafüzeten lefutó makróba kell majd ezt bele applikálnom(a hello world helyére). Szóval a végén a Mega.xlsb-ben elvileg annyi sorban lesznek adatok ahány munkafüzet van az adott könyvtárban ahol le fog futni a makró.Sub it()
Dim cell As Range
Dim selectRange As RangeFor Each cell In ActiveSheet.Range("A3:a1000")
If (cell.Value <> "") Then
If selectRange Is Nothing Then
Set selectRange = cell
Else
Set selectRange = Union(cell, selectRange)
End If
End If
Next cellselectRange.Select
Selection.Copy
Sheets("mega").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub -
tgumis
tag
Sziasztok!
Kérdésem a következő. Egy excel táblát használok körlevél adatfájljának. Kérdés a következő hogy tudom azt megoldani hogy a world doksiban ne így jelenjen meg a dátum:
Fizetési határidő 7/25/2014
hanem úgy ahogy az excelben szerepel:
fizetési határidő 2014.07.25
Excelben a formátum dátumra van állítva ráadásul számolás eredménye. -
slashing
senior tag
válasz
slashing
#22165
üzenetére
tárgytalan google segített:
Sub ProcessFiles()
Dim Filename, Pathname As String
Dim wb As WorkbookPathname = ActiveWorkbook.Path & "\Files\"
Filename = Dir(Pathname & "*.xls")
Do While Filename <> ""
Set wb = Workbooks.Open(Pathname & Filename)
DoWork wb
wb.Close SaveChanges:=True
Filename = Dir()
Loop
End SubSub DoWork(wb As Workbook)
With wb
'Do your work here
.Worksheets(1).Range("A1").Value = "Hello World!"
End With
End Sub -
#22162
lappy
őstag
atillaahun
#22161
lappy
őstag
válasz
atillaahun
#22161
üzenetére
Szia!
Nézd meg ezt! -
#22161
atillaahun
veterán
atillaahun
veterán
Sziasztok,
van arra valami (egyszerű) függvény, hogy ékezetes városokat szűrjek ki egy listából (oszlopból)? -
Delila_1
veterán
válasz
cadgers
#22158
üzenetére
A1-ben van az első érvényesítés, ahol az 1-4 számok közül választhatsz.
A másik érvényesítéshez a G1:G8 tartományba bevittem a számokat 1-től 8-ig. Az érvényesítésben itt is lista a megengedett érték, mint az elsőnél, a forrás pedig
=HA(A1=1;$G$1:$G$2;HA(A1=2;$G$3:$G$4;HA(A1=3;$G$5:$G$6;$G$7:$G$8)))
-
cadgers
aktív tag
Sziasztok, kis segítséget szeretnék kérni!
2 legördülő listát szeretnék csinálni, mindkét listában kizárólag számok vannak
Az egyik listában 1-től 4-ig lehet választani, a másikban 1-től 8-ig.
Azt szeretném megoldani hogy ha az első listában 1-es szerepel, akkor a másodikban csak 1 és 2 lehessen a választható szám, ugyanígy a többinél is, pl 2-höz 3-4, 3-hoz 5-6, és végül 4-eshez 7-8.Megvan a 2 oszlopom a számokkal, meg a dropdown listák is, csak ez a kritériumos dolog nem tudom hogy van. Valaki segítsen plz
-
Ingenium
újonc
válasz
Delila_1
#22156
üzenetére
Nos ide eljutottam, be is irtam, jo is lett - reszben
Ha az A1=1 es B1=1 vagy ha 2 vagy 3 vagy mindegy mennyi de egyforma az ertekuk, akkor gyonyoruen formaz, mukodik es ha nincs ertekuk vagyis uresek, akkor szep feher, de
Amint az ertekuk 0 es 0, akkor nem formaz, tudom ,h az ures az 0 de itt szeretnem becsapni az excelt ha fizikalisan szerepel a cellakban mindket hely4n a 0, akkor az olyan legyen neki mint az 1-1
Tudom h nem tudok magyarazni, bocsanat es koszonom,h foglalkoztok a problemammal es meg jopar szamomra nagyon nehez dolog jon majd de ezt elobb meg kell csinalnom.
-
Ingenium
újonc
Sziasztok!
Segitsegre van szuksegem.Szeretnek egy halmazt feltetelesen formazni, pontosabban szinezni.
Ha a1 es b1 cellak ertekei (egyidoben) 0es0,1es1,2es2,3es3,4es4... es igy tovabb, akkor a halmazom legyen zold, DEHa a1 es b1 cellak uresek, akkor maradjon szep feher es formazatlan
Es mindezt az 1.feltetelben szeretnem megvalositani
A masik ket feltetelre meg szuksegem lesz
Remelem ertheto voltam es koszonom,h segitetek
-
wolfman
veterán
Szaisztok!
Az miért van, hogy az Excel 2010-ben ha rákattintok egy cellára, akkor a néggyel lejjebb lévő cellát jelöli ki? Valamint ha ki akarok jelölni sorokat, akkor is a kijelöléstől számítva pár sorral többet jelöl ki. Szóval ha csak kettőt akarok kijelölni, akkor az nem lehetséges, mert alapból vagy ötöt bejelöl. Olyan mintha egy okostelefonnak az érzékelője rosszul lenne bekalibrálva.
Erre ötlet mitől hülyült be? -
#22142
Delila_1
veterán
King Unique
#22141
Delila_1
veterán
válasz
King Unique
#22141
üzenetére
Szívesen.
-
#22140
Delila_1
veterán
King Unique
#22139
Delila_1
veterán
válasz
King Unique
#22139
üzenetére
Úgy is jó, de inkább egy feltételbe tenném.
if jelölő=true then
ide jön a minden max értéket színező ciklus
else
ide meg az, ami az első megtaláltat színezi
end ifA jelölő szó helyett a CheckBox-od nevét írd be.
A formon lévő vezérlőkhöz nem modulba írjuk a makrókat. Vezérlőn dupla klikk előhozza a form modullapját, és még a hozzá tartozó makró kezdő-, és utolsó sorát is beírja.
A fenti makrót annak a gombnak a click eseményéhez kell beírnod, ami a max értékeket színezi.
-
#22139
King Unique
titán
Delila_1
#22138
King Unique
titán
válasz
Delila_1
#22138
üzenetére
OK. Ez a megoldás is jó nyilván, de nekem, mint kezdőnek bonyolult, az alap UserForm-on megcsinálva kell nekünk, majd esetleg megpróbálom módosítani egy olyan változatra.
Amiről korábban szó volt az összes jelölőnégyzet kapcsán [link], azt Modul1-be írtam Sub Összes() címmel, az úgy jó gondolom (?)Köszönöm a segítséget!
-
#22138
Delila_1
veterán
King Unique
#22137
Delila_1
veterán
válasz
King Unique
#22137
üzenetére
Teheted UserFormra is, nem szükséges a füzet lapjára tenni. A feladatban nem szerepelt a vezérlők helye.
-
#22137
King Unique
titán
Delila_1
#22136
King Unique
titán
válasz
Delila_1
#22136
üzenetére
Igen, megvan ez a beszúrás rész, de ez a munkafüzetre kipakolja az egyes nyomógombokat, legördülő listákat stb.
Tehát csak így lehet megoldani, h a munkalapon is ezáltal létrehozok egy "második UserForm-ot" ??
Nekem kissé már bonyolult így, jobb lenne egyszerűbben megoldani, de megpróbálom ezt is akkor. -
#22136
Delila_1
veterán
King Unique
#22135
Delila_1
veterán
válasz
King Unique
#22135
üzenetére
A gombokat és a comboboxot neked kell bevinned a lapra.
Nincs 2013-as verzióm, de valószínű, hogy abban is a Fejlesztőeszközök | Beszúrás | ActiveX -ben találod meg.Az egyes vezérlők nevét (Name) is add meg a tulajdonságuknál úgy, ahogy a makrókat hozzájuk rendeltem.
-
#22134
Delila_1
veterán
King Unique
#22133
Delila_1
veterán
válasz
King Unique
#22133
üzenetére
A füzetben, amit küldtem tegnap, megtalálod.
-
#22132
Delila_1
veterán
King Unique
#22131
Delila_1
veterán
válasz
King Unique
#22131
üzenetére
Fejlesztőeszközök | Vezérlők | Tulajdonságok.
Ilyenkor a Tervező mód legyen érvényben. Ha kész, kapcsold ki a tervező módot.
-
#22131
King Unique
titán
Delila_1
#22112
-
Delila_1
veterán
válasz
enelna
#22123
üzenetére
Ez meg az óraszámot is beírja a H oszlopba:
Sub Szabi_Ora()
Dim sor As Integer, sz As String, hova As Integer
Dim ora As Integer
hova = Columns(5).Find("Szabadság").Row
For sor = 10 To 40
If Cells(sor, "E") = "Szabadság" Then
sz = sz & Cells(sor, "A") & "; "
ora = ora + 8
End If
Next
Cells(hova, "F") = Left(sz, Len(sz) - 2)
Cells(hova, "H") = ora
End Sub -
Delila_1
veterán
válasz
enelna
#22123
üzenetére
Ez a makró beírja:
Sub Szabi()
Dim sor As Integer, sz As String, hova As Integer
hova = Columns(5).Find("Szabadság").Row
For sor = 10 To 40
If Cells(sor, "E") = "Szabadság" Then
sz = sz & Cells(sor, "A") & "; "
End If
Next
Cells(hova, "F") = Left(sz, Len(sz) - 2)
End Sub -
Delila_1
veterán
válasz
enelna
#22118
üzenetére
Másképp oldanám meg. Az A és B oszlopra feltételes formázást adnék, ahol a képlet
=$B1="SZ"
és a háttérszínt pl. pirosra állítanám. Minden sor A és B oszlopában, ahol a B oszlop tartalma SZ, pirosra váltana a háttér.
A szabadságok darabszámát a
=DARABTELI(B:B;"SZ")
képlet adja meg a lapon.
-
Pilács
senior tag
Sziasztok!
Az alábbi dologgal nem jutok előrébb:
adott két táblázat, az egyikben A oszlopban kódok, a másikban A oszlopban kódok de szövegkörnyezetben és a B oszlopban árak
Az szeretném elérni az első táblázat B oszlopában, hogy keresse meg az A oszlopban található kódot a második táblázat A oszlopában ahol a kód szövegkörnyezetben van, majd térjen vissza a második táblázat B oszlopában lévő árral.
Pl
1. tábla:
A B
1 ET-4556 függvény?
2 EC-5689
3 EK-5568892. tábla:
A B
1 kicsi kocsi EC-5689 zöld 23222
2 nagy kocsi EK-556889 lila 2566898Hogyan tudom ez megcsinálni?
Köszönöm! -
enelna
csendes tag
Sziasztok !
Szeretném a segítségeteket kérni.
A1- A31 oszlopban a hónap napjai 1-2-3-4……….
B1- B31 oszlopban a beosztást jelölő betű például „A” „B” „C” „SZ” .......
Azt szeretném, hogy ,amikor „SZ” betű szerepel a „B” oszlopban akkor „C1”mezőben írja ki az „SZ”betű melletti „A” oszlopban szereplő számot.
Ha hatszor szerepel az „SZ” akkor mind a hat számot pontosvesszővel elválasztva egymástól.
Ez egy munkalap lenne és az adott hónapon belüli szabadságos napok felsorolása lenne a feladat.
Köszönöm -
#22117
Delila_1
veterán
King Unique
#22116
Delila_1
veterán
válasz
King Unique
#22116
üzenetére
-
#22115
Delila_1
veterán
King Unique
#22114
Delila_1
veterán
válasz
King Unique
#22114
üzenetére
A legördülőnél meg kell adnod, hogy honnan vegye az adatait, ez a ListFillRange tulajdonság. A küldött füzetben Munka1!AA1:AA8. A cellacsatolás az a hely, ahova a kiválasztott érték kerül, LinkedCell, ebben az esetben Munka1!AB1.
Mindkettő akkor igaz, ha az ActiveX vezérlőket használod a lapon. Alkalmazhatod az Űrlapvezérlőket is, ott a tulajdonságainál magyarul írják a két terület nevét.
-
#22113
Delila_1
veterán
King Unique
#22111
Delila_1
veterán
válasz
King Unique
#22111
üzenetére
Bemásoltam innen a makrókat egy füzetbe, elküldöm.
-
#22112
Delila_1
veterán
King Unique
#22111
Delila_1
veterán
válasz
King Unique
#22111
üzenetére
Állandónak ajánlom, és mindenkinek. Sok új függvényt elérsz vele a füzetben, és a VBA-ban is, amik enélkül nem mennek.
A Combobox cellacsatolását betetted az AB1 cellába?
-
#22111
King Unique
titán
Delila_1
#22110
-
#22110
Delila_1
veterán
King Unique
#22109
Delila_1
veterán
válasz
King Unique
#22109
üzenetére
Kapcsold be az Analysis Toolpak és az Analysis Toolpak - VBA nevű bővítményeket.
-
#22109
King Unique
titán
Delila_1
#22096
King Unique
titán
válasz
Delila_1
#22096
üzenetére
Röstellem, de akadt némi problémám:
Az angol ABC feladatnál lefut rendesen, de angol nagybetűket nem generál a makró..
Ha beírom a cellákba manuálisan, akkor törli a beírtakat (ahogy kell elvileg az előzőt), de újakat nem hoz létre.
Azt külön utasítással kell neki megadni, v melyik sor utal erre??A másodiknál a generál gomb For Each CV In Range(Cells(1, 1), Cells(szam, szam)) sorral van baja a programnak, illetve a Max nyomógombnál maxx = Applicition.Max(Range(hely)) sorral.
Próbálgattam, beírtam többször is, de mindig hibát dob rá. Ügyeltem arra, h olyan nevet adtam a gomboknak, ami a makróban is van. Mit kéne átírni benne?? -
-
Delila_1
veterán
válasz
csendes
#22105
üzenetére
Egyszer egy ilyen esetben a következőt csináltam (eredménnyel):
Ctrl+g-vel behívtam az Ugrás menüt, ott az Irányított gomb megnyomása után kiválasztottam az Objektumokat. Kijelölt egy nagy halom objektumot, képeket, gombokat, amiknél csak a sarkaikon lévő jelölők látszottak. Nem léptem ki a jelölésből, hanem a Delete gombbal az összeset egyszerre töröltem. Mentés után drasztikusan csökkent a fájl mérete.
A fájl tulajdonosa nem tudta, mikor és hogy kerültek be ezek.
Egy próbát megér. -
csendes
addikt
Volt egy xlsx állomány néhány ábrával, pivottáblával kb. 100kB. Ebből kimásoltam egy 27 soros és 14 oszlopos táblázatot (szöveggel, számokkal, néhány egyszerű képlettel), kicsit megformáztam és elmentettem xlsx-ként. Viszont ez már hirtelen 6MB-osra nőtt, miközben sokkal kevesebb dolgot tartalmaz, mint a 100kB-os, amiből kimásoltam. Meg tudom nyitni, csak kicsit lassan. Mi okozhatja ezt; lehet, hogy a formázás?
-
#22102
Delila_1
veterán
King Unique
#22101
Delila_1
veterán
válasz
King Unique
#22101
üzenetére
Szívesen.
ami a jelenlegi rendszert nézve mindig van mivel most az ember van a számítógépért elv érvényesül és nem fordítva, szokás szerint senki nem gondolkozott mielőtt kitalált valamit.
Nagyszerűen megy, ezer köszönöt. Ez akkor ha jól értelmezem annyi hogy bevezettél egy WS elnevezést az aktív munkalapra és három helyen erre hivatkozik és ott kell indítani a macro amelyik terméken futtani akarom. Így nincs is szükség választó lapra.
nehézkes lenne a lapok mozgatása nah meg a userek betanítása erre akiknek sokszor gondot okoz az is hogy egy könyvtárat két kattintással nyitunk meg áhhhh ugyhogy vagy maradok a másolás átírásnál vagy ha egyszerűen megoldható akkor listaválasztó vagy űrlapos 
megoldás vagy bármi
basszus 4 perc úgy hogy még magyarázatot is írtál mellé 
?
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Kormányok / autós szimulátorok topikja
- Spórolós topik
- OLED TV topic
- PlayStation 5
- HiFi műszaki szemmel - sztereó hangrendszerek
- Világ Ninjái és Kódfejtői, egyesüljetek!
- One mobilszolgáltatások
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- CASIO órák kedvelők topicja!
- E-roller topik
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Gyermek PC játékok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eladó Új Motorola G31 4/64GB szürke / 12 hónap jótállással!
- LG 77G3 - 77" OLED evo - 4K 120Hz 0.1ms - MLA - 2000 Nits - NVIDIA G-Sync - AMD FreeSync - HDMI 2.1
- BESZÁMÍTÁS! ASROCK H310CM i5 8400 16GB DDR4 256GB SSD 1TB HDD GTX 1060 3GB Rampage SHIVA TT 500W
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- LG 27GR95UM - 27" MiniLED - UHD 4K - 160Hz 1ms - NVIDIA G-Sync - FreeSync Premium PRO - HDR 1000
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest