- ASUS Transformer Book T101HA
- eBay-es kütyük kis pénzért
- hdanesz: 50. Debrecen Nagydíj - nemzetközi salakmotorverseny - életemben másodjára
- Luck Dragon: Asszociációs játék. :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Gurulunk, WAZE?!
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- MasterDeeJay: Alacsony fogyasztású házi szerver a korábbi projektekből összeépítve
-
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
-
föccer
nagyúr
válasz
PistiSan
#30899
üzenetére
Egyesével le lehet vágni a bal, vagy a jobb oldalon lévő szavakat. Ehhez meg kell kerestetni a vesszőnek a helyét, és a teljes karakterhosszból levonva a vessző pozícióját, megkapod a vessző utáni karaktersornak a hosszát. =BAL() függvénnyel elrakod az első szót, =JOBB() függvénnyel a maradékot. Következő sorban újra... a karakter hossz paraméterrel játszani kell, hogy a vessző ne okozzon gondot.
Nincs előttem excel, hogy pontosan összerakjam neked a függvényt, de ebből már ki lehet silabizálni. Ha nem megy, akkor holnap este megcsinálom.
üdv, föccer
-
PistiSan
addikt
Sziasztok!
Meg lehet oldani függvénnyel a "szövegból oszlopok" procedúrát?A1-ben ez van: kacsa,liba,ketto,harom,nyolc,bakancs,excel,macro,stb
Simán a ","-nél fel tudom osztani a szövegből oszlopok eszköz segítségével, de még szeretnék majd más képleteket is használni, egyszerűbb lenne ha én beillesztem a fenti szöveget az A1-be (hosszabbat is akár) és mondjuk A2-től folyamatosan szét darabolná oszlopokra.
A2 kacsa
B2 liba
C2 ketto
stb -
#30898
Fferi50
Topikgazda
the radish
#30897
Fferi50
Topikgazda
válasz
the radish
#30897
üzenetére
Szia!
Este már nem jutottam hozzá a géphez/internethez.
Nem szeretnélek elkeseríteni, de nálam szépen lefut és nyomtat - sima doksit és körlevelet is, ha a körlevelesbe beleteszem a megfelelő sort. A hozzászólásodból másoltam ki direkt a makrót és egyáltalán nem panaszkodott (persze fájlneveket átcseréltem...).
Nálam 2010-es Office van fent, nem tudom Nálad mi fut.
Nézd meg légy szíves az immediate ablakban a wdPrintFromTo értékét. Ha nem 3, akkor a változó helyett lsz. írd be a 3-as számot, idézőjelek nélkül.
Korábbi verziókban lehet, hogy nem így kell megadni, akkor viszont a word help tud segíteni. Ha mégsem megy/nem találod a megoldást, menjünk át privibe.Üdv.
-
#30897
the radish
senior tag
Fferi50
#30896
-
#30896
Fferi50
Topikgazda
the radish
#30895
Fferi50
Topikgazda
válasz
the radish
#30895
üzenetére
Szia!
Milyen hibaüzenettel akad el a makró?
Azt gondolom, hogy az objword.objdoc hivatkozás lesz az igazi, az is elképzelhető, hogy az activewindow kihagyható/kihagyandó belőle.Üdv.
-
#30894
Fferi50
Topikgazda
the radish
#30889
Fferi50
Topikgazda
válasz
the radish
#30889
üzenetére
Szia!
Szerintem az a gond, hogy nem a word objektumra hivatkozol.
Próbáld így lsz.
objDoc.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="3"Mivel két alkalmazás több különböző objektuma van benn, ezért pontosan meg kell mondani, melyiknek szánod a parancsot.
Üdv.
-
Carasc0
őstag
válasz
Delila_1
#30891
üzenetére
Hát én nekem mikor tavaly nyáron megcsinálták (lehet pont te voltál!) azt a makrót amit jóval fentebb melllékeltem, azt is így csináltam. Bemásoltam ahhoz a laphoz amelyiken futnia kell. Meghívtam a függvényt és fut. Most ezt megtettem ezzel is. Fut is, de előtte 2-3 percig fagy. A kérésed sajnos továbbra is magas nekem.
Igen átírtam. Máshol is át kell? Ha igen, hol? Itt totál leakadtam.
-
Delila_1
veterán
válasz
Carasc0
#30890
üzenetére
A csatolt képeken nem látszik, hova tetted a makrókat, csak az, hogy egymás alá.
Újra leírom: az eseményvezérelt makrót ahhoz a laphoz rendeld, ahol futtatni akarod, a másikat modulba.
Azt látom, hogy az első With-nél átírtad – helyesen – a lap nevét arra, amelyiken éppen futtatod. -
#30889
the radish
senior tag
Fferi50
#30885
the radish
senior tag
válasz
Fferi50
#30885
üzenetére
Igen, csakhogy abban a pillanatban, amikor nem a munkafüzetet, hanem a word doksit szeretném nyomtatni, leáll a makró:
Sub Macro1()
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("d:\xxx.docx")
objWord.Visible = True
ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="3"
objWord.Quit
End SubVagy valamit rosszul írtam?
-
Carasc0
őstag
válasz
Delila_1
#30886
üzenetére
Bekapcsoltam a bővítményeket! Ha a modulban van a kód, akkor nem fut le automatikusan, amikor rámegyek a szükséges munkalapra. A generátor lényege az lenne, hogy akárhányszor lépek rá a megfelelő munkalapra, akkor generáljon új keverést. A programod működik, de továbbra is FAGY!
Szerintem (nem akarok okos lenni), de jó helyen van a kód azon a lapon, amin generálni kell. Hiszen, ekkor lefutna mégy egyszer amint visszatérek az érintett munkalapra. Viszont a súlyos fagyás miatt használhatatlan. Amit korábban linkeltem neked teljes kódot ami csak simán kever, az tökéletesen működik!
Itt vagyunk a célnál bakker de FAGY!
-
#30885
Fferi50
Topikgazda
the radish
#30876
Fferi50
Topikgazda
válasz
the radish
#30876
üzenetére
Szia!
Van egy olyan paramétere a PrintOut- ami megmondja, hogy mit nyomtasson ki, ez a Range.
Pl: ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="3"
This example prints the first three pages of the document in the active window.Üdv.
-
Carasc0
őstag
válasz
Delila_1
#30881
üzenetére
LOL!
Én a Programkódot szoktam használni. Amúgy kijelöltem a kódot és CTRL+C majd CTRL+V-vel teljesen jól bemásolta. Bár megjegyzem hogy első futtatásakor valamit kiírt de már nem emlékszem. Lehet azért fagy meg? Azóta nem írja ki.
Hogy kell modulba tenni? De mit tegyek pontosan oda? Kéne a pontos szintaxis.
-
Carasc0
őstag
válasz
Delila_1
#30879
üzenetére
Hát itt elakadtam!
Szóval!
Private Sub Worksheet_Activate()
Kever
End SubIgen ez nekem munkalap General részében van. Mit írjak és hogyan hogy az a modulban legyen?
Excel 2010-em van, nekem semmiféle Konvertálatlan gomb nincs. Pedig azért jól ismerem már az Excel-t. Nem találtam sehol. Miféle smile? Nekem nem jelent meg. A kód lefut, csak a fagyások nem kellenének!
-
Delila_1
veterán
-
Carasc0
őstag
válasz
Delila_1
#30877
üzenetére
Szia! Ez már működne, de most meg azt csinálta az Excel, hogy ha átváltok egy másik munkalapra, és vissza arra, ahol az általad írt kód fut, befagy és tölt 2-3 percig, majd lefut normálisan és visszatérhetek a munkához.
Juj ez kegyetlen. Újabb kódfutás 2-3 perces gondolkodást igényel neki!
Tartományhoz (pl. C1:C25) használd a Konvertálatlan gombot. <--- Ezt nem értem.
A program teljesen jól működik, de miért fagy meg 2-3 percig...
-
Delila_1
veterán
válasz
Carasc0
#30874
üzenetére
Tartományhoz (pl. C1:C25) használd a Konvertálatlan gombot.
Sub Kever()
Dim sor As Integer, sor1 As Integer
Application.ScreenUpdating = False
With Sheets("BÓNUSZ GENERÁTOROK")
.Range("C1:C50").ClearContents
.Range("A1:A50").Copy Range("C1")
Randomize
.Range("B1:B50") = "=RAND()"
.Range("B1:B50").Copy
.Range("B1").PasteSpecial xlPasteValues
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:= _
.Range("B1:B50"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Range("B1:C50")
.Header = xlGuess
.Orientation = xlTopToBottom
.Apply
End With
For sor = 1 To 20
If Cells(sor, "C") = "" Then
sor1 = Cells(sor, "C").End(xlDown).Row
Cells(sor1, "C").Copy Cells(sor, "C")
Cells(sor1, "C") = ""
End If
Next
sor1 = Cells(sor, "C").End(xlDown).Row
If Application.WorksheetFunction.CountA(Range("C23:C" & sor1 - 1)) = 0 Then _
Range("C21:C" & sor1 - 1).Delete Shift:=xlUp
sor1 = Cells(Rows.Count, "C").End(xlUp).Row
For sor = sor1 To 21 Step -1
Cells(sor, "C").Insert Shift:=xlDown
Next
sor1 = Cells(Rows.Count, "C").End(xlUp).Row
If sor1 > 50 Then
For sor = 50 To 45 Step -1
If Cells(sor, "C") = "" Then
Cells(sor, "C") = Cells(sor1, "C"): Cells(sor1, "C") = ""
End If
Next
End If
.Range("B1:B50").ClearContents
.Cells(1).Select
End With
Application.ScreenUpdating = True
End Sub -
#30875
bteebi
veterán
the radish
#30873
bteebi
veterán
válasz
the radish
#30873
üzenetére
Hát ez baromi érdekes. Idézőjelek nélkül el se indul, idézőjellel pedig nem azt csinálja, amit kellene...
Excellel pedig biztos, hogy idézőjelek nélkül megy (ki is próbáltam), sőt változókkal is működik. -
Carasc0
őstag
válasz
Delila_1
#30872
üzenetére
Szia!
Sör útban van! De a programod olyan funkciót csinál, amit én is megtudtam oldani a korábbi hozzászólásban megadott kód alapján. Tehát ez is azt csinálja, hogy 20-at összekever amit el is helyez 20 cellába, és a maradékot pedig szétszórja. Igen ám, de a szétszórás az csak a 21-25 számokkal történik.
Lehet még mindig nem pontos a megfogalmazásom!
A Program generáljon egész számokat 1-25 között (1 és 25 is lehet).. amit szétszór a C1:C20-ban illetve a maradékot pedig a C21:C50-be. 1db számot csak 1x generálhat.
Tehát ha feltöltöm az A1:A25 tartományt, abból válogasson kedvére 20db számot amivel feltölti a C1:C20-at, a maradék pedig szóródjón a C26:C50 tartományba.
Lehet hogy így még világosabb hogy mit szeretnék!
-
#30873
the radish
senior tag
bteebi
#30871
the radish
senior tag
-
Delila_1
veterán
válasz
Carasc0
#30870
üzenetére
Sub Kever()
Dim sor As Integer
Application.ScreenUpdating = False
With Sheets("BÓNUSZ GENERÁTOROK")
.Range("C1:C50").ClearContents
.Range("A1:A20").Copy Range("C1")
.Range("B1:B20") = "=RAND()"
.Range("B1:B20").Copy
.Range("B1").PasteSpecial xlPasteValues
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:= _
.Range("B1:B20"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With .Sort
.SetRange Range("B1:C20")
.Header = xlGuess
.Orientation = xlTopToBottom
.Apply
End With
.Range("A21:A25").Copy Range("C21")
.Range("B21:B50") = "=Int(Rand() * (50 - 21)) + 21"
.Range("B21:B50").Copy
.Range("B21").PasteSpecial xlPasteValues
.Sort.SortFields.Add Key:= _
.Range("B21:B50"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With .Sort
.SetRange Range("B21:C50")
.Header = xlGuess
.Orientation = xlTopToBottom
.Apply
End With
.Range("B1:B50").ClearContents
.Cells(1).Select
End With
Application.ScreenUpdating = True
End SubHol a söröm?
-
#30871
bteebi
veterán
the radish
#30868
bteebi
veterán
válasz
the radish
#30868
üzenetére
Idézőjelek nélkül szerintem működnie kellene.
From:=3, To:=3, Copies:=1
Valószínűleg korábban is csak annyi volt a baja. A Copies meg minden bizonnyal felesleges, mert az 1 lehet a default.
#30872: "Hol a söröm?"
A postán. -
Carasc0
őstag
válasz
Delila_1
#30869
üzenetére
Igazad van! Rosszul írtam! No akkor még egyszer.
Adott 2db cellatartomány. A1:A25 és C1:C50.
A1:A25 = Ide gépelem be a számokat 1-25-ig.
A program keverje össze az 1-25 számokat randomra, majd az összekevert számokkal töltse fel a C1:C20 tartományt. De ugye marad még 5db szám. Azt pedig randomra szórja el a C21:C50 tartományra.
-
#30866
YAN0U
csendes tag
the radish
#30865
YAN0U
csendes tag
válasz
the radish
#30865
üzenetére
From, To esetleg?
From:=3, To:=3, Copies:=1
-
#30865
the radish
senior tag
Fferi50
#30863
the radish
senior tag
válasz
Fferi50
#30863
üzenetére
Biztosan nem, már jócskán benne vagyok a melóban, de eddig jól működik.
Viszont szeretném azt megoldani, hogy bizonyos esetekben csak a 3. oldal nyomtatódjon ki.
Ezzel próbálkozok, de nem jön össze, kilöki az összes oldalt:
wddoc.PrintOut Copies:=1, Pages:="3"
Van valami megoldás rá?
-
YAN0U
csendes tag
Sziasztok,
Segítségetekre lenne szükségem.
Másolás probléma. Egyik excel táblából a másikba szeretnék másolni makró segítségével adatokat.
A másolt táblában elméletileg már csak az értékek vannak köztük üres cellák. A problémám az, hogy ebből a file-ból olvas a vb2010 el készített progi. A bemásolt adatokkal teli cellával nincs is gond, de az üressel igen, azt jelzi hogy nem konvertálható single típusra. Megnyitom az excel filet és az üres cellákra nyomok egy del-t mindjárt működik. Már az összes irányított beillesztést próbáltam de semmi.Köszönöm a választ
-
#30863
Fferi50
Topikgazda
the radish
#30858
Fferi50
Topikgazda
válasz
the radish
#30858
üzenetére
Szia!
Örülök, hogy sikerült adaptálnod. Pár éve egy másik fórumon volt egy kis vitánk, hogyan lehet excel - word körlevél együttműködést "optimalizálni". A VBA help alapján - no meg a Word makrórögzítés segítségével - akkor sikerült összeraknom ezt a viszonylag egyszerű megoldást. Az akkor munkafüzetet már nem találtam, de a helpek a "helyükön voltak" és az "emlékfoszlányok" is segítettek.
Remélem, nem lesz a későbbiekben sem probléma.Üdv.
-
#30862
the radish
senior tag
Delila_1
#30861
the radish
senior tag
-
#30861
Delila_1
veterán
the radish
#30860
Delila_1
veterán
válasz
the radish
#30860
üzenetére
Private Sub TextBox1_AfterUpdate()
Application.EnableEvents = False
If Len(TextBox1) <> 11 Or Not IsNumeric(TextBox1) Then
MsgBox "Hibás adószám", vbOKOnly + vbInformation
Exit Sub
Else
TextBox1 = Format(TextBox1,"00000000-0-00")
End If
Application.EnableEvents = True
End Sub -
#30860
the radish
senior tag
the radish
senior tag
Sziasztok!
Userform textboxban szeretnék adószám formátumot megadni, azaz a bevitt adatot ne csak a cellában lássam adószám formátumban, hanem az userformban is.
Hol tudom ezt megadni?
Előre is köszönöm. -
Carasc0
őstag
Sziasztok!
Tavaly nyáron sok segítséget kaptam itt. Azt a bizonyos segítséget mai napig használom, de most kellene némi kiegészítés/módosítás. Lényegre térek! Adott egy kód:
Sub Kever()
Dim sor As Integer
Application.ScreenUpdating = False
Range("A1:A20").Copy Range("B1")For sor = 1 To 20
Cells(sor, "C") = "=RAND()"
Cells(sor, "C") = Cells(sor, "C").Value
NextActiveWorkbook.Worksheets("BÓNUSZ GENERÁTOROK").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BÓNUSZ GENERÁTOROK").Sort.SortFields.Add Key:=Range("C1
20"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BÓNUSZ GENERÁTOROK").Sort
.SetRange Range("B120")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End WithRange("C1
20").ClearContents
Application.ScreenUpdating = True
End SubAz A1:A20-ba ha megadom 1-20-ig a számokat, akkor azt nekem összekeverje kiadja a C1
20-ba. Ez teljesen jó eddig.Na most a jön a neheze:
Adott 2db cellatartomány. Az egyik az A1:A25 Ebbe ugyanúgy 1-25-ig kerülnek bele a számok. A másik cellatartomány legyen a C1
50.
Feladat:Az A1:A25-ben lévő számokat úgy keverje össze, hogy kihagyás nélkül feltöltse a C125 tartományt, a maradék 5db szám pedig a C2650-ben elszórtan! kerüljenek. Tehát a fenti kódot kéne így még megspékelni. Nagyon hálás lennék!
-
MegaNorby
tag
Sziasztok,
Hogyan lehet megoldani a következőt? Az A oszlopban nevek vannak, valamejik többször is, a B oszlopban számok vannak. Nekem a mondjuk a C oszlopba írja ba a megfelelő névhez tartozó összdarabszámot.
valahogy így kellene a C oszlop:
A B C
a 1 1
b 2 2
c 3 3
d 2 2
e 1 3
e 2 3
f 5 5
g 2 2
h 1 10
h 4 10
h 5 10
i 2 2
j 1 1a segítséget előre is köszönöm.
ui: lehet hogy képet kellett volna beillesztenem, bocsi.
-
-
válasz
róland
#30852
üzenetére
Ja, hogy a forrás listának range-et adsz meg - azt nem tudod megoldani, csak dinamikus range-dzsel.
Csináltam már ilyet, de kell hozzá néhány plusz oszlop és egy-két plusz bonyolultabb named range.
Array formula a Controls worksheet A oszlopban levő elemek deduplikálására (a D oszlop header-je ne szerepeljen egyszer se a deduplikált oszlopban), feltételezve, hogy az adatok 2-15 között vannak:
=IFERROR(INDEX(Controls!$A$2:$A$15, MATCH(0, COUNTIF(D$1:$D1, Controls!$A$2:$A$15), 0),1),"")Array formula, D2-be kel beírni (és CRTL+ENTER-rel bevinni) és célszerű lehúzni a deduplikált tábla aljáig
A headernek (D1) 0-t célszerű beállítani, mert így távolítja el az adatok között levő üres cellákat is.És utána egy olyan named range kell, ami levága az utolsó üres cellákat:
=OFFSET(Controls!$D$2,0,0,COUNTIF(Controls!$D$2:$D$15,">""""")-1,1)Ez kell beállítani egy Workbook-érvényességű named-range-be, és ezt a range-et adod meg a listába érvényesítésre.
-
föccer
nagyúr
válasz
Polllen
#30850
üzenetére
Bár nem teljesen értem, hogy mi a feladat, de a =KEREKÍTÉS() függvény erre jó. Meg lehet adni benne, hogy 50-re kerekítsen. Ehhez tartozik még a =PLAFON() illetve a =PADLÓ() függvény is (vag lehet, hogy kerekít.le és kerekít.fel néven van, erre most nem emlékszem.
(#30849) Gyufaaa: Mondtam, hogy formázni kell a megjelent értéket.
üdv, föccer
-
-
#30841
Fferi50
Topikgazda
the radish
#30821
Fferi50
Topikgazda
válasz
the radish
#30821
üzenetére
Szia!
Az alábbi makrót idomítsd a saját fájljaidhoz. A makró maga egy excel fájlban van.
Sub wordkorlevel()
Dim wd As Object
Dim wddoc As Object
Set wd = CreateObject("Word.Application") ' megnyitja a word alkalmazást
wd.Visible = True 'láthatóvá teszi
Set wddoc = wd.documents.Open("C:\Users\fferi\Documents\Körlevél.docx") 'megnyitja a körlevelet
wddoc.mailmerge.opendatasource Name:="C:\Users\fferi\Documents\Korleveles1.xlsx", linktosource:=True, sqlstatement:="SELECT * FROM `Munka1$`" ' összekapcsolja a forrással
wddoc.Activate ' csak azért, hogy lásd
wddoc.mailmerge.ViewMailMergeFieldCodes = False ' az adatokat mutatja és nem a kódokat
Stop
wddoc.Close False 'mentés nélkül bezárja
wd.Quit ' kilép a word alkalmazásból
End SubA kód egy excel munkafüzet normál moduljában van (de lehet a körlevél forrás excel fájljában is, csak akkor menteni xlsm formában kell!!
Ezen kívül a VBA Tools References menüjében be kell pipálni a megfelelő Word verzió könyvtárát!Üdv.
-
Fferi50
Topikgazda
válasz
Gaagaat
#30839
üzenetére
Szia!
Tudomásom szerint ilyen beépített excel függvény nincs jelenleg (2010-es verzióig biztosan nem volt), ezért csak úgynevezett felhasználói függvény (magyarul makró) jöhet szóba, ami egyébként nem túl bonyolultan megoldható de engedélyezni kell hozzá a makróhasználatot.
Üdv.
-
Gaagaat
újonc
Sziasztok,
segítséget kérnék - bár nem olyan vájt fülűeknek szánt témában, mint amihez Ti szoktatok.
Milyen függvénnyel kereshetnék egy munkafüzetben úgy, hogy nem adom meg a munkalap nevét. tekintve, hogy sok lapból áll? Ráadásul nem a keres funkcióval, hanem függvényes megoldás kellene... -
fecske13
tag
válasz
Brandynew
#30835
üzenetére
Delila_1 megoldását kiegészítheted az alábbival és akkor automatikusan frissül a kimutatás.
Az Értékesítés laphoz rendeld:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
Sheets("Kimutatás").PivotTables("Kimutatás1").PivotCache.Refresh
End If
End Sub -
gdodi
csendes tag
válasz
Delila_1
#30833
üzenetére
Köszönöm!
Ez nagy segítség, de ha lehet kérdeznék még hozzá. Ezt egy makróban szeretném felhasználni, ahol a keresendő dátumot megkérdezem a felhasználótól, (InputBox) aki pl.: 2016.03.03 formátumban beírja. Ezt fel tudom használni közvetlenül, vagy be kell írnom valahova egy cellába, hogy ezzel a függvény kombinációval használhassam?
Ha nem érthető, hogy mit is kérdezek, akkor ne fáradj vele! Elég bénán magyarázok.
Az előző válaszoddal már mindenképpen meg tudom oldani a problémámat!
-
#30826
m.zmrzlina
senior tag
sedyke
#30816
m.zmrzlina
senior tag
válasz
sedyke
#30816
üzenetére
Ha mindenképpen ha fv-t szeretnél használni akkor itt egy lehetséges megoldás:/A1-ben lévő darabszámot figyeli/
=HA(A1>=30;2;HA(ÉS(A1<30;A1>=12);1;HA(A1<=11;"ide jön a ha fv a méret feltétellel ")))
Ha kicsit profibbat szeretnél és esetleg több feltételt is kell vizsgájni akkor a #30435-ös hszt ajánlom a figyelmedbe.
-
Brandynew
őstag
-
#30821
the radish
senior tag
the radish
senior tag
Excelből szeretnék makróval megnyitni egy, a munkafüzet adataival "párosított" word körlevelet. Keresgéltem a neten, de csak olyan makrót találtam, ami megnyitja ugyan a word-ot és a dokumentumot, de az adatok nem frissülnek az adott mezőben.
Manuálisan megnyitva előugrik egy ilyen ablak:
Gondolom ez a frissítés hiányzik a makróból.
Van valakinek ötlete, vagy egy jól működő makrója?
Előre is köszönöm.
-
Delila_1
veterán
válasz
Brandynew
#30819
üzenetére
Feltettem ide a füzetet.
Miért hagysz a címsor után egy üres sort?
Az Értékesítés lapra képet tettem be, ami megmutatja, hogyan szűrtem az egyedi értékeket a J oszlopba.
Az Irányított szűrést az Adatok | Rendezés és szűrés csoport | Speciális menüvel csalhatod elő.
A K oszlop képlete összegzi a napi eladásokat. -
Brandynew
őstag
Sziasztok,
Nagyon megszenvedek 2 dologgal, sehogy sem sikerül, talán tudtok nekem segíteni.
Ez az xls: http://s000.tinyupload.com/index.php?file_id=63490293315261055730
Az egyik dolog, amit sehogy sem tudok megoldani:
Az "Árukészlet" munkalapon egy üres részre függvénnyel ki szeretném listázni az összes egyedi dátumot az "Értékesítés" munkalap A oszlopából. Szóval 1 adott dátum csak egyszer szerepeljen az elkészített listában.
Így próbáltam, de hibát ír, és nem jövök rá, hogy mi nem tetszik neki:
=IFERROR(INDEX(!Értékesítés$A$3:!Értékesítés$A$500, MATCH(0, COUNTIF($J$9:J9, !Értékesítés$A$3:!Értékesítés$A$500), 0)),"")
(Megcsinálhatnám sima szűréssel is, beállítva, hogy csak az egyedi rekordokat jelenítse meg, de úgy nem frissül, ha bekerül egy új sor az "Értékesítés" munkalapba.)
Miután ez megvan, minden kilistázott dátum mellé oda szeretném íratni az "Értékesítés" munkalap alapján, hogy az adott dátummal összesen mekkora tömeg (Értékesítés!G oszlop) lett eladva.
Egyszerűbben: dátum szerint szeretném kilistázni, hogy melyik nap hány kiló fogyott el a lisztből. Persze automatikusan frissüljenek az értékek, ahogy jönnek az eladások.
Tudtok nekem ebben segíteni?
-
sedyke
tag
válasz
sedyke
#30816
üzenetére
IF(AND($AX10>30,SUM(N10+BG10)<1),2,IF(AND(12<$AX10<29,SUM(N10+BG10)<1),1,IF(AND(6<$AX10<11,SUM(N10+BG10)<1),1,0)))
Idaig jutottam, de sajnos csak az elso feltetelt veszi, miszerint legyen nagyobb 30-nal az AX10 erteke. Ahol ez nem teljesul, oda egyszeruen nullat ir, meg ha beleesik a 12<AX10<29 feltetelbe is.
-
sedyke
tag
Sziasztok!
Tudnatok segiteni, hogyan tudnek 3 felteteles kepletet irni? Aszerint szeretnem kitolteni a cellakat, hogy egyreszt milyen ertek tartozik ahhoz a termekhez. Pl ha a termek mennyisege tobb mint 30, akkor rendeljen hozza kettot, de ha 12-29 kozott van, akkor csak 1-et, 0-11 kozott akkor 1 vagy nulla, attol fuggoen, h milyen meretek, mert majd meg ezt is szeretnem beledolgozni, de az talan menni fog. Egyelore azt nem tudom, h tegyek bele 3 feltetelt. Mert ugye egy sima Ha fuggvenybe kettot bele lehet csempeszni.
-
#30815
Delila_1
veterán
thomas50.000
#30814
Delila_1
veterán
válasz
thomas50.000
#30814
üzenetére
A másik fórumon, ahol először tetted fel a kérdést, ott a válasz.
-
Grodd
tag
válasz
thomas50.000
#30812
üzenetére
Alapból nem lehet (VBA nélkül), de van rá egy trükk:
Állítsd be a vastag szegélyt alapértelmezettnek az egész kérdéses tartományra, és utána csinálj egy feltételes formázást, ami ezt eltávolítja ezt a vastag szegélyt az eredeti feltételed negáltját megadva feltételként.
-
#30812
thomas50.000
csendes tag
thomas50.000
csendes tag
Sziasztok!
Feltételes formázásnál meg lehet adni valahogy, hogy vastag szegélyt csináljon?
Egyszerűen nem találok olyan lehetőséget.
A válaszokat előre is köszönöm!
-
#30811
Delila_1
veterán
Anonymus23
#30810
Delila_1
veterán
válasz
Anonymus23
#30810
üzenetére
Nagyon szívesen.
-
#30809
Delila_1
veterán
Anonymus23
#30808
Delila_1
veterán
válasz
Anonymus23
#30808
üzenetére
Ha a menük között nem szerepel a Fejlesztőeszközök, a Beállításoknál a Menüszalag testreszabása részben a jobb oldali táblában jelöld be.
Visszalépve a füzetbe a Fejlesztőeszközök | Vezérlők csoportban kattints a Tervező módra. Ekkor Ctrl+g-re bejön az Ugrás menü. Ott az Irányított, majd az Objektumok kiválasztásával az összes gombod ki lesz jelölve. A Delete gombbal egyszerre törölheted mindet.
-
#30808
Anonymus23
veterán
Anonymus23
veterán
Egy kis segítséget kérnék:
Excel fájlt küldünk a vevőnknek, havi frissített árlista. A múltkor a külföldi csaj belenyúlt és azóta megjelentek ilyen "gombok":
Eltüntetni nem tudom (jobb klikkre semmit sem hoz elő), ha rákattintok, akkor egyrészt nem csinál semmit, másrészt az ikonok inaktívvá válnak, egyedül a NÉZET fülön aktívak az ikonok, de egyik parancs sincs hatással erre.
Hogyan tudnám ezeket eltüntetni, mert ettől vannak jóval nagyobb "gombok" is, amik viszont kitakarnak egy csomó adatot is? Előre is köszönöm ha valaki segíteni tudna...
Ja, céges jogtiszta Office 2010 van a gépen egyébként.
-
ny.janos
tag
válasz
csongi
#30803
üzenetére
B2 képlete, ha A2-ben van az első telefonszámod:
=BAL(A2;4)&" "&KÖZÉP(A2;5;2)&"-"&KÖZÉP(A2;7;2)&"-"&KÖZÉP(A2;9;2)&"/"&KÖZÉP(A2;11;3)&"-"&HA(HOSSZ(A2)=17;JOBB(A2;4);JOBB(A2;3))Egyébiránt elegánsabb lenne cellaformázással csinálni, de abban a képlet ha részét nem sikerült megoldanom (máshol kell tördelni, ha budapesti, vagy mobilszámról van szó /7 számjegy/ illetve, ha vidéki számról /6 számjegy/).
-
pigster
senior tag
Erre vki vmit?
http://prohardver.hu/tema/excel/hsz_30794-30794.html
20"), _
Új hozzászólás Aktív témák
Hirdetés
- Battlefield 6
- Milyen notebookot vegyek?
- Autós topik
- Samsung Galaxy Felhasználók OFF topicja
- The Last of Us Part II Remastered - Megkaptuk a hivatalos gépigényt
- ASUS Transformer Book T101HA
- Honor Magic6 Pro - kör közepén számok
- Eredeti játékok OFF topik
- LEGO klub
- Azonnali fáradt gőzös kérdések órája
- További aktív témák...
- Játékkulcsok a legjobb áron: Steam
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Assassin's Creed Shadows Collector's Edition PC
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- Vadiúj videókártyák! Kamatmentes rèszletre is! Èrdeklődj!
- GYÖNYÖRŰ iPhone 13 mini 256GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3180
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- GeForce RTX 2060 (OEM HP) Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest