- D1Rect: Nagy "hülyétkapokazapróktól" topik
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- GoodSpeed: ASUS ROG STRIX B650E-F GAMING WIFI - Memory Context Restory (MCR)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Fűzzük össze a szavakat :)
-
Fototrend
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
-
Carasc0
őstag
Sziasztok!
Előre is elnézést szeretnék kérni, ha túl munkás dolgot kérnék, mert tényleg nem kívánom senkitől hogy helyettem kódoljon, de sajnos nem értek (már) a makróprogramozáshoz, vagyis az időm szűk ahhoz, hogy a feladatot öntanulásos módszerrel makróval oldjam meg. Excel 2010!
Egy viszonylag nagy, saját találmányú projekten dolgozom, ahol nagy szerepe van az excelnek. A projekt-nek van olyan része amit sztem csak makróval lehet legjobban megoldani s ezért is fordultam ide. No de lássuk mit is szeretnék:
Adott 9 db szó egymás alatt mondjuk A1:A9-es tartományba. Mindegyik szó különböző. Kellene nekem egy olyan makró ami azt csinálja, hogy fogja ezt a 9 db szót, és mondjuk a B1: B9-es tartományba összekeverve kiírja. S gondolom ha egy ilyen makrót újra futattnék, akkor új keverést csinálna!
Valójában ennyire lenne szükségem!
Előre is hálás lennék egy ilyen kódnak..
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
Delila_1
Topikgazda
válasz Carasc0 #27601 üzenetére
A makró átmásolja az A1:A9 tartományt a B1:B9-be. Véletlenszámokat ír a C1:C9-be, ami szerint rendezi a B oszlopot, majd törli az ideiglenes C-t.
A rendezést makrórögzítéssel vittem be.Sub Kever()
Dim sor As Integer
Range("A1:A9").Copy Range("B1")
For sor = 1 To 9
Cells(sor, "C") = "=RAND()"
Cells(sor, "C") = Cells(sor, "C").Value
Next
ActiveWorkbook.Worksheets("Munka1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Munka1").Sort.SortFields.Add Key:=Range("C1:C9"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Munka1").Sort
.SetRange Range("B1:C9")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C1:C9").ClearContents
End SubBetehetsz egy képernyőfrissítés tiltását az elejére, hogy ne látsszanak a véletlenek, a végén pedig engedélyezed.
Application.ScreenUpdating=False
[ 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.
-
azopi74
addikt
válasz Carasc0 #27601 üzenetére
Bár írtad, hogy Excel 2010, azért beteszek egy Excel 2016-os, makró mentes megoldást is , mert imádom
(Excel 2010-ben is működőképes, csak fel kell tenned a PowerQuery add-in-t.)ALakítsd táblává (Table1) a forrás oszlopot. és B1-be szúrd be ezt a query-t (Advanced Editor):
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Added Custom" = Table.AddColumn(Source, "Custom", each List.Random(1)),
#"Expanded Custom" = Table.ExpandListColumn(#"Added Custom", "Custom"),
#"Sorted Rows" = Table.Sort(#"Expanded Custom",{{"Custom", Order.Ascending}}),
#"Removed Columns" = Table.RemoveColumns(#"Sorted Rows",{"Custom"})
in
#"Removed Columns"Természetesen a fenti a sima query editorban előállítható négy egérkattintással
Ja, azt elfelejtettem írni: refresh-re kalkulálja újra a kevert oszlopot. (jobb egér - refresh, vagy magyarban frissítés)
[ Szerkesztve ]
-
Carasc0
őstag
@Delila_1: Nagyon szépen köszönöm a fáradozásodat... Igen kb. elsőre ilyet képzeltem el. Egy utolsó kérésem még lehetne? Ezt a kódot úgy módosítani hogy az A1:A9 tartományt mátrix/négyzetes formában összekeverve írja ki. Tehát konyhanyelven mondva adott 9 db szó vagy szám tök mind1, és azt egy 3x3-as cellatartományba összekeverve írja ki.
Ha ez sikerülne akkor kellene egy kis útmutató arra vonakozólag, hogy hol kellene módosítanom a kódot, arar az esetre ha nem 9 adatom lenne hanem mondjuk 64, ami szintén négyzetszám tehát 8x8 mátrixban keverve kirakható...@azopi74agyon szépen köszönöm a fáradozásodat neked is. Ez is tökéletesen működik, pontosabban működne, de sajnos a megoldásod alkalmazásának technikai okai vannak. A PowerQuery cucc feltétele az IE 9 megléte, amit én a gépemre évek óta elvi okok végett nem telepítek (nem szégyen kijelentenem hogy nem vagyok hajlandó telepíteni!), szóval így ez nem fog menni. Egyébként hamarosan átpártolok Office 2013-ra (lehet idén, de jövőre biztosan), nem tudom az alapból fogja támogatni ezt az Add-on-t.
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
-
Tetete1
senior tag
Office 2016 átirható Office 210 megnevzésekre (oszlopokra)? Ha igen, mivel?
[ Szerkesztve ]
- Az érdekel, hogy mi az élet értelme?! Én megmondom neked: sánta veréb elől elrúgom a lószart - a lehetőségeink körülbelül eddig terjednek. Moldova György
-
Delila_1
Topikgazda
válasz Carasc0 #27604 üzenetére
Csak írd be az A oszlopba az adatokat. Ha nem kerek számot adna az adatok darabszámának a gyöke, hibajelzést kapsz.
Hibátlan darabszámnál kiírja a "kevert" mátrixot a D1 cellától kezdődően. 9; 16; 25; és 36 adatra kipróbáltam, nem kell módosítanod semmit. Illetve ha nem tetszik, hogy D1-be kezd írni, akkor a
sor = 1: oszlop = 4 sorban a 4-et írd át a kedvenc oszlopod sorszámára.Sub Kever()
Dim usor As Integer, gyok As Integer, CV As Range
Dim sor As Integer, oszlop As Integer
Application.ScreenUpdating = False
usor = Range("A" & Rows.Count).End(xlUp).Row
On Error GoTo Vege
gyok = Application.WorksheetFunction.ImSqrt(usor)
Range("A1:A" & usor).Copy Range("B1")
Range("C1:C" & usor) = "=rand()"
Range("C1:C" & usor).Copy
Range("C1").PasteSpecial xlPasteValues
ActiveWorkbook.Worksheets("Munka1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Munka1").Sort.SortFields.Add Key:=Range("C1:C" & usor), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Munka1").Sort
.SetRange Range("B1:C" & usor)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
sor = 1: oszlop = 4
For Each CV In Range("B1:B" & usor)
If sor > gyok Then
sor = 1
oszlop = oszlop + 1
End If
CV.Copy Cells(sor, oszlop)
sor = sor + 1
Next
Range("B1:C" & usor).ClearContents
Range("D1").Select
Application.ScreenUpdating = True
Exit Sub
Vege:
MsgBox "Nem adnak mátrixot az adatok", vbInformation
Application.ScreenUpdating = True
End Sub[ 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.
-
azopi74
addikt
válasz Carasc0 #27604 üzenetére
"A PowerQuery cucc feltétele az IE 9 megléte"
Hát ez ebben a formában nem igaz. IE 9 vagy annál újabb kell neki (gondolom nem IE8-at vagy IE6-ot használsz )
Én se lennék hajlandó ilyen elavult böngészőt telepíteni, mint az IE9, de nem is kell (sőt nem is lehet mai OS-ekre) , természetesen megy a mai böngészőkkel. is Nálam is gond nélkül fut már két éve, pedig sose látott IE9-et, csak IE11-et, sőt, jelenleg egyáltalán semmilyen Internet Explorert se lát, csak Edge-etOffice 2013-ba még csak a PowerPivotot tették be, a PowerQuery (lánykori nevén Data Explorer) csak Office 2016-tól lett beintegrálva az Excelbe.
2010-re és 2013-ra külön kell letölteni.[ Szerkesztve ]
-
sutyimatyi
csendes tag
Sziasztok! Hogyan tudom megcsinálni, hogy egy munkaidő nyilvántartó táblázat figyelje a piros betűs ünnepeket, és ha az adott napon dolgozik valaki, akkor azt pirossal jelölje? Köszi
-
Delila_1
Topikgazda
válasz sutyimatyi #27609 üzenetére
Egy oszlopba felveszed az év ünnepnapjainak a dátumát, a tartományt elnevezed. Legyen a neve pl. Ünnepek.
A feltételes formázás képlete
=DARABTELI(Ünnepek; Dátumot_tartalmazó_cella)>0A hétvégéket is bele véve a képlet
=VAGY(HÉT.NAPJA(Dátumot_tartalmazó_cella;2)>5;DARABTELI(Ünnepek;Dátumot_tartalmazó_cella)>0)[ 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.
-
sedyke
tag
válasz Fferi50 #27599 üzenetére
Nem gond, szivesen leirom megint.
Van egy munkafuzetem tobb pivot tablaval. Az alap gond az, hogy amikor megprobalom megjeleniteni a nullas ertekeket, akkor teljesen megfagy, kenyszerleallitas kell.
Multheten azt gondoltuk, hogy amiatt mert sok a pivot tabla a munkafuzeten belul, de ezt cafolja, hogy miutan atmasoltam az alap adathalmazomat egy uj munkafuzetbe es letrehoztam egy teljesen uj pivot tablat, meg mindig fennall a fagyas.
-
scott_free
senior tag
sziasztok,
ezt valahogy lehet egyszerűsíteni? (pl. Select Case-zel?)
For Each cControl In Me.Controls
If cControl.Tag Like "L1" Then
cControl.Font.Size = 11
cControl.Font.Name = "Arial"
End If
If cControl.Tag Like "ED" Then
cControl.Font.Size = 11
cControl.Font.Name = "Arial"
End If
If cControl.Tag Like "EDK" Then
cControl.Font.Size = 11
cControl.Font.Name = "Arial"
End If
If cControl.Tag Like "HD" Then
cControl.Font.Size = 11
cControl.Font.Name = "Arial"
End If
If cControl.Tag Like "HDK" Then
cControl.Font.Size = 11
cControl.Font.Name = "Arial"
End If
Next -
Fferi50
őstag
válasz scott_free #27612 üzenetére
Szia!
Egyrészt nem értem, miért használsz Like operátort, ha nincs benne jóker karakter, én úgy látom, itt pontos egyezéseket szeretnél ellenőrizni, amihez az = operátor használható.
Másrészt az if feltételeket összekapcsolhatod az or operátorral:
if ccontrol.tag like/= "L1" or ccontrol.tag like/= "ED" or .....
Harmadrészt select case-sel
Select case ccontrol.tag
case "L1","ED","EDK",....end select
Továbbá használhatnád a With rövidítést is még:
with ccontrol.font
.size=11
.name="Arial"
end withÜdv.
[ Szerkesztve ]
-
Fferi50
őstag
-
alfa20
senior tag
Sziasztok!
'DARAB' függvényt használom, hogy számolja össze a számokat, de valahogy a nullát ki lehetne zárni, hogy azt ne vegye figyelembe, ezt melyik függvénnyel tudom?
a figyelembe vett cellák képletet tartalmaznak ezért lehet benne nulla érték.
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
scott_free
senior tag
válasz Fferi50 #27613 üzenetére
köszi!
esetleg ezt a textbox-formázást is össze lehet vonni valahogy?
(a beírt számokat formázza ezres értékekre - több van belőle, most csak kettőt tettem ide)Private Sub TextBoxÖsszeg1_Change()
TextBoxÖsszeg1.Value = Format(TextBoxÖsszeg1.Value, "# ### ##0")
End Sub
Private Sub TextBoxÖsszeg2_Change()
TextBoxÖsszeg2.Value = Format(TextBoxÖsszeg2.Value, "# ### ##0")
End Sub -
Fferi50
őstag
válasz scott_free #27616 üzenetére
Szia!
Ha csak ez az egy sor van, akkor szerintem nem érdemes vele foglalkozni, mert copy-paste módszerrel gyorsan át tudod írni.
Ha több sor is van, csinálni kell egy külön makrót és azt kell minden egyes textboxnál meghívni.
Üdv.
-
Fferi50
őstag
válasz sedyke #27622 üzenetére
Szia!
Bocs, rosszul fogalmaztam - az egyedi értékekre gondoltam, amikor a sorokról/oszlopokról beszéltem:
pl. van 1,9,21,30,100 érték. Akkor itt elvileg 100 sornak kellene lennie, amiből 5 sorban van érték. Igazából az a kérdés, hogy hány olyan tétel van, amihez nem tartozik a táblában érték, de meg kellene jeleníteni, mint lehetséges értéket.
Milyen típusú az a tételsor, amihez a teljes megjelenítést szeretnéd hozzárendelni?Üdv.
-
RedHarlow
aktív tag
Sziasztok,
Van egy 30 000 soros táblázatom, mely 7 oszlopból áll. Ezeket az adatokat 7 felé szét kellene választanom, úgy hogy amennyiben XY vagy XY2 vagy XY3 vagy XY4 az ügyintéző úgy az az első fülre kerüljön, mert az ő szervezetéhez tartozik. Vannak viszont olyan sorok ahol nincs ügyintéző megadva így egy másik adat alapján is szűrni kellene, hogy amenniyben ebben a második oszlopban X vagy D vagy K adat van úgy azok is az első fülhöz menjenek.
Tudtok erre valamit mondani? Ezt az egészet 8x kell megcsinálnom ezért szeretnék valami segítséget kérni.
Köszönöm.
-
Delila_1
Topikgazda
válasz RedHarlow #27625 üzenetére
Kicsit több adatra van szükség.
7 ügyintéződ van? Melyik oszlopban van a nevük?
A lapok neve megegyezik az ügyintézőjével (kivéve az első lapot, ahol az összes adat van ömlesztve)?
Ha nincs ügyintéző, akkor az első ügyintéző lapjára kerüljenek az adatok a B oszlop tartalmától függően?
Ha nem X, D, vagy K a B oszlop tartalma, hova kerüljön a sor?Egyébként ha 1× kell szétosztani az adatokat, néhány autoszűréssel, a szűrt adatok másolásával egyszerűen 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.
-
be.cool
csendes tag
Sziasztok!
Szeretnék egy olyan képletet kérni tőletek amiben ha "O" oszlopban a cella üres akkor írja be oda a "G" oszlop aktuális sorát. Tehát mondjuk ha O2 üres akkor G2 -t másolja be.
Köszönöm előre is!
-
RedHarlow
aktív tag
válasz Delila_1 #27626 üzenetére
Nem ügyintéző szerint, hanem az egyetem 7 "karja" szerint kell szétválogatni. Tehát lesz 7 fül.
A 6. oszlopban vannak az ügyintézők nevei:
X1, X2, X3, X4 = A karon ügyintéző
X5, X6 = B karon ügyintéző
X7 = C karon ügyintézőEz az első fontos szűrés. De mivel vannak olyan sorok ahol nincs megadva ügyintéző, így a képzéskódok szerint kell ezeket tovább szűrni.
Az 5. oszlopban pedig a képzéskódok.
Y1, Y2, Y3 = A kar képzése
Y4, Y5, Y6 = B kar képzése -
Delila_1
Topikgazda
válasz RedHarlow #27628 üzenetére
Így már kicsit több az információ, de még nem derült ki, mi a feladat.
Most próbáld meg úgy leírni, ahogy az Excel szereti.Példa: ha az A oszlopban X1, X2, X3, vagy X4 van az aktuális sorban, akkor a sort másolni kell a .... lapra.
Ha az A értéke X5, vagy X6, akkor ..., ha az A értéke X7, akkor ...Ha az A üres, és a B tartalma Y1, Y2, vagy Y3, akkor...
Ha az A üres, és a B tartalma Y4, Y5, vagy Y6, akkor...Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
RedHarlow
aktív tag
válasz Delila_1 #27629 üzenetére
Ha a 6. oszlopban az ügyintéző X1 vagy X2 akkor másolja át a sort az első fülre.
Ha a 6. oszlopban az ügyintéző X3 vagy X4 akkor másolja át a sort a második fülre.Ha a 6 oszlop üres, de az 5. sorban a képzés Y1, vagy Y2, vagy Y3 akkor másolja át az első fülre.
Ha a 6 oszlop üres, de az 5. sorban a képzés Y4 vagy Y5 vagy Y6 akkor másolja át a második fülre.A lényeg tehát hogy a fő táblázatban minden kar adata ott van és nekem szét kell válogatnom karonként, úgy hogy nekem az ügyintéző nevei vannak megadva egy listában (karonként 2-5) de sajnos vannak olyan sorok ahol nincs megadva ügyintéző.
8 ilyen táblázatot kell 7 felé vállogatni.
-
Delila_1
Topikgazda
válasz RedHarlow #27630 üzenetére
Így már rendben.
A füzetben az első lap az, amin ömlesztve vannak az adatok. Ezt követi a két lap, ahova másolni kell.
A makróban két helyen szerepel a
Sheets(Array("Munka2", "Munka3")).Select
sor, ezekben írd át a Munka2 és Munka3 lapneveket a füzetedben lévő 2. és 3. lap nevére.Szerk.: persze az X1–X4 és Y1–Y6 adatokat is írd át!
Sub SzetCincal()
Dim nev As String, sor As Long, usor As Long, usorIde As Long
Dim WS As Worksheet, WSIde As Worksheet, lap As Integer
Set WS = Sheets(1)
'Előző adatok törlése
Sheets(Array("Munka2", "Munka3")).Select
Cells.Select
Selection.ClearContents
'Címsor a 2 lapra
WS.Rows("1:1").Copy
Sheets(Array("Munka2", "Munka3")).Select
Range("A1").PasteSpecial xlPasteValues
'Szortírozás
WS.Select
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
nev = Cells(sor, 6)
Select Case nev
Case ""
If Cells(sor, 5) = "Y1" Or Cells(sor, 5) = "Y2" Or _
Cells(sor, 5) = "Y3" Then lap = 2
If Cells(sor, 5) = "Y4" Or Cells(sor, 5) = "Y5" Or _
Cells(sor, 5) = "Y6" Then lap = 3
Case "X1", "X2"
lap = 2
Case "X3", "X4"
lap = 3
Case Else
GoTo Tovabb
End Select
Set WSIde = Sheets(lap)
usorIde = WSIde.Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(sor).Copy WSIde.Range("A" & usorIde)
Tovabb:
Next
End Sub[ 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.
-
Szaszati
tag
Sziasztok!
Egy kávézó eladási statisztikáit szeretném Excelben megoldani, úgy tűnik a pivot tábla erre a legkézenfekvőbb eszköz. A probléma a következő: adott két tábla, egyikben a kávézó összes terméke, amit eladnak, mindenik külön sorban, mellette másik oszlopban, hogy milyen kategória (kávé, üdítő, szendvics, stb.), s még egy oszlopban az ára. Ez nagyjából fix adat, de persze közben jönnek be új termékek is.
Aztán másik munkalapon mindig bejönnek az aktuális havi eladások, tételesen, tehát minden egyes kávé, üdítő, satöbbi egy-egy külön sorban, mellette ára, kategória. Ebből kellene összeállítanom a pivot táblát, és az igazi probléma, hogy ez nyilván csak az, amit eladtak, de nekem szerepelnie kéne az összes terméknek, hogy látni lehessen azt is, miből nem adtak el semmit az adott időszakban.
Találtam egy ilyen megoldást, ez viszont a nem a legjobb, mert az aktuális eladási adatsor aljára külön fel kéne vinni minden terméket, amiből nem adtak el. És ahhoz ugye át kéne vizsgálni, hogy mit adtak el, és elég sok termékről van szó, így ez nem oké
Ha van valami ötletetek, hogyan lehetne "összefésülni" két munkalapot, vagy mit lehetne tenni még, akkor azt nagyon megköszönném
Egyébként Excel 2013, angol, ha ez számít bármit is.
MobileArsenal - World domination temporarily suspended...
-
Delila_1
Topikgazda
válasz RedHarlow #27635 üzenetére
Szia!
Mikor leáll hibával, a makróban mutass rá (ne jelöld ki) a lap változóra, akkor kiírja, mennyi az értéke. Ha ez nagyobb, mint ahány lap van a füzetedben, akkor feljebb rosszul adtad meg az értékét a Select Case részben.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Polllen
nagyúr
válasz Delila_1 #27631 üzenetére
Sziasztok!
Nekem kellene egy hasonló megoldás, csak kicsit bonyolítva.
4 oszlopban vannak adatok, az első a szállítólevélszám.
Minden szállítólevélhez kell egy worksheet a szállítólevélszámmal és oda kellene másolni a hozzátartozó sorokat fejléccel.
Természetesen a szállítólevelek darabszáma változó.
"Odamentem egy párhoz...négyen voltak!"
-
Delila_1
Topikgazda
válasz Polllen #27637 üzenetére
Nem túl bonyolult.
A makró elején töröltethettem volna az első lapon kívül a többit, hogy "tiszta lappal" kezdjünk, de nem ismerem a füzeted felépítését. Lehet, hogy vannak benne nem törölhető lapok.A makró az első lap sorain megy végig. Mikor a sorban lévő szállítólevél nevével egyező lap van a füzetben, az első üres sorába bemásolja az aktuális sort. Ha nincs olyan lap, akkor a füzet végén létrehozza, átmásolja a címsort az első lapról, majd alá az aktuális sort.
Sub Szall_Lev()
Dim sor As Long, usor As Long, usorIde As Long, nev
Dim WS As Worksheet, WSIde As Worksheet
Application.ScreenUpdating = False
Set WS = Sheets(1)
WS.Select
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
On Error Resume Next
Set nev = Sheets(Cells(sor, "A") & "")
If Err.Number <> 0 Then
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = WS.Cells(sor, "A")
WS.Rows(1).Copy ActiveSheet.Range("A1")
WS.Select
End If
On Error GoTo 0
Set WSIde = Sheets(WS.Cells(sor, "A") & "")
usorIde = WSIde.Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(sor).Copy WSIde.Range("A" & usorIde)
Next
Sheets(1).Activate
Application.ScreenUpdating = True
MsgBox "Kész", vbInformation
End Sub[ 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.
-
RedHarlow
aktív tag
Sziasztok,
Van egy diagramom ami kb 20 adatból táplálkozik, de a diagramon csak kb 10 adat jelenik meg. Hozzáadtam egy új friss heti adatot, ez nem jelenik meg a diagramon valamiért, hogy tudnám azt beállítani hogy az utolsó 10. adat ne a múttheti hanem a heti legyen.
-
azopi74
addikt
-
Delila_1
Topikgazda
válasz Polllen #27642 üzenetére
Az kell bele, mert több azonos szállítólevél is lehet. Ha ezeknek új lapot próbálnék bevinni, egyrészt hibára futna, másrészt minden sort külön lapra tenne.
A lapokat egy új kigyűjtés előtt egy makróval törölheted.
Sub Laptorles()
Dim lap As Integer
Application.DisplayAlerts = False
For lap = Sheets.Count To 2 Step -1
Sheets(lap).Delete
Next
Application.DisplayAlerts = True
End SubProgramozó: 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
Topikgazda
-
Kal-El
senior tag
Hello!
Érdekelne, hogy ilyen állapot sávot hozzá lehet valahogy adni a táblázatunkhoz, vagy lehetséges mezei felhasználónak készíteni magának ilyet?
Van jó pár példa is, amikre itt gondolok: 1 ~ 2 ~ 3.
De csak egy olyan képet találtam, ami Excelből való.
Jelenleg 2007-es Office-om van, de ha ehhez szükséges, akkor beszerzek újabbat.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest