-
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
-
D5
aktív tag
válasz
Delila_1
#18205
üzenetére
Köszi szépen!
Viszont nekem igazából fontos lenne, hogy A1+1 (azaz a következő cella legyen), mivel itt vált egy ismétlődő felsorolás. Vagyis van 30 nevem, és nekem az kellene, hogy ha a 30. után következő cella megegyezik az első cellával, akkor már mást adjon eredményül a HA() függvény.
Vagy túl bonyolítom?
-
bozsozso
őstag
-
Tompkins
tag
válasz
Delila_1
#18161
üzenetére
Adott pl. a "78". Beütve ezt a számot és lefuttatva a makrót, meg szeretném kapni, hogy hányszor kell összeadni a tükörképével, majd annak a tükörképével stb., hogy egy önmagában tükrös számot kapjunk.
Tehát: 78 -> 78+87=165 -> 165+561=726 -> 726+627=1353 -> 1353+3531=4884 -> Válasz: 4 (négyszer kellett elvégeznie a megfordítását a számnak és összeadni)
Vagy egy másik példa: 34 -> 34+43=77 -> Válasz: 1
Vagy: pl. 8 ill. 11 esetén -> Válasz: 0 (önmagában tükrös)
-
-
petir
senior tag
válasz
Delila_1
#18032
üzenetére
Ez stimm így van van 5 oszlopom. amiből egyedül az idő hianyzik.
Ezt az auto szűrőt nem teljesen értem van egy minta táblám ha autoszurot hasznalok akkor a többi elemet miért tünteti el?
Illetve a beírt eredményt ahogy képen szemléltetted , hogy tudom kiiartni ?Úgy hogy már minden adat szerepel benne?
Meg most kicsit elbizonytalanodtam kell Nekem az acces adatbázis vagy elég ha simán excellbe irom be? -
petir
senior tag
válasz
Delila_1
#18030
üzenetére
Igen valami hasonlóra csak nekem kell egy kereses mező. Ugye vannak a mérő emberek akik mérnek ők felírják a mért eredményt és gyerekek sorszámát a papírrra. Ezt behozza hozzám a futár Nekem pedig sorszám alapján meg kell keresni a gyereket és párosítani őt az idejével...egyre biztosabb vagyok, hogy ebbe VB is kell...
-
Geryson
addikt
válasz
Delila_1
#18004
üzenetére
Így sem akarja. Átállítom az F2-öt "szöveg"-re, kiütöm belőle a képletet (merthogy ebben most egy "=KÖZÉP(E2;1;SZÖVEG.KERES("-";E2;1)-1)" képlet dolgozik. Beleírom manuálisan a "10463" értéket és így sem találja meg. Mellékelek egy képet, itt látszik, hogy hány értéket nem talál meg úgy, hogy ezek mindegyike megtalálható a "Forrás" fülön. Szemmel láthatóan a többivel nincs gondja... (Természetesen a "G" oszlop HIÁNYZIK értékeire gondolok, ott van a gond)
-
-
Sprite75
tag
válasz
Delila_1
#17954
üzenetére
Ezt a sort jelzi hibának
usorLap = Sheets(lapnev$).Range("A" & Rows.Count).End(xlUp).Row + 1
Biztosan működne ez csak én nem vágom ezt a macro dolgot.Lehet hogy az is gond, hogy a "példában" amit felraktam A és B neveket adtam a táblázatoknak.
Esetleg elküldhetném neked a konkrét táblázatot valahová? -
-
Kobe
veterán
válasz
Delila_1
#17970
üzenetére
köszi, ez így működik is
viszont a macskakaparás jelekkel megint gondban vagyok 
a fenti képletet egy stringben definiáltam:Code = Code & bla bla bla
Code = Code & "ActiveCell.FormulaR1C1= ""=RC[1]&"""-"""&RIGHT("""000"""&RC[2],3)""" & vbNewLinesajna valahol félrecsúsztak a macskakaparás jelek, és a VBA Expected end of statement üzenetet dob, de nekem minden idézőjel páros "rendben lezártnak" tűnik.
Any guess, hol typoztam el ?
-
Sprite75
tag
válasz
Delila_1
#17947
üzenetére
Nem csak 3 munkalapom van hanem kb 30 Van olyan hónap hogy a 30 járműből pl 10 nem tankol abban a hónapban. A példámban B táblázatnak nevezett "lista" munkalapjának a neve "szerkeszt" A járművek külön külön munkalapon vannak, ezek nevei az adott jármű rendszáma A képen amit felraktam csak példa adatok vannak
-
mr.nagy
tag
válasz
Delila_1
#17945
üzenetére
Nem írhat alá sem mert még ott is lesznek adatok.
Viszont eszembe jutott, hogy a Munka2-őn az M oszloptól már biztosan nincs adat, oda esetleg meglehetne csinálni egy segéd oszlopot ahova a cikkszámokat egymás alá bemásolja annyiszor amennyi a darabszám. Majd innen kezdi el a másik munkalapra másolni a már ismert kritériumok alapján a cikkszámokat 12-esével és amikor végzett vagy az egész procedúra előtt is törölheti ennek a segédoszlopnak a tartalmát.
-
Sprite75
tag
válasz
Delila_1
#17940
üzenetére
Az előbbi. Az A1 A2 táblázatok külön külön munkalapon vannak. Ezekben már benne vannak az előző havi tankolások. Az e havi tankolások egy B formátumú táblázatban gyűlnek egész hónapban aztán hónap végén át kéne rakni rendszámonként külön munkalapra ahol további számítások vannak járművenként (átlagfogyasztás havi összesítés stb) Eddig járművenként másolgattam és ezt szeretném könnìteni, automatizálni
-
mr.nagy
tag
válasz
Delila_1
#17943
üzenetére
Köszi a segítséget!
A darabszám lehet akár 40 - 50 is, ennél nem nagyon van több, bár előfordulhat.
Ezenkívűl ha jól értelmezem a makrót (de kijavítasz ha nem) a nyomtatás után törli a Munka1-ről a teljes C és L oszlopokban taláható adatot. Ha igen nekem ez nem jó, mert ott vannak függvények, stb amire szükség van, tehát csak a megadott cellák tartalmát törölheti.
-
Kobe
veterán
válasz
Delila_1
#17884
üzenetére
Igen de sok vba ban megirt vlookupnal elojon ez a hiba, eleg sok eset van neten errol. Gyakorlatilag az excel valamiert ugy erzekeli h a megadott munkafuzet nincs megnyitva ezert mar ertekadasnal nem tud hivatkozni ra, viszont ez hulyeseg, ott virit mellette a masik munkafuzet
-
biker
nagyúr
válasz
Delila_1
#17883
üzenetére
az a baj, hogy ezekkel az ALAP körlevél, boríték kérdésekre kaptam csak korábban választ, ahol egy oldal/egy levél van
címkénél laponként 30-50-100 is lehet, és ott minden cimke mezőbe egyesével kellene a mezőket hozzáadjam, mert az elsőbe felviszem, miket írjon bele, és nem mutatja a másodikon
de majd akkor ctrl+C ctrl+V-vel végigmásolom ezen az egy lapon, és onnan már generálja a többit
-
Kobe
veterán
válasz
Delila_1
#17879
üzenetére
Gyak ugyanazt csinaltam, mint amit te is mutattal a kodban, kicsit aktualizaltam a fileneveket de a valtozokhoz nem nyultam. Igazabol utananeztem neten es nagyon gyakran elojon ez a hiba vba s vlookupnal, csak epp mindig mas indokkal...igy eleg nehez sajna megoldast googlizni ra
-
Kobe
veterán
válasz
Delila_1
#17867
üzenetére
köszi
igazából pont fordítva megy, de az nem gáz, csak meg kell cserélni hogy melyik excel filet adod meg a WS változóban.
Egész pontosan úgy megy, hogy van a temporary.xls nevű file (ez egy adatbázis letöltés, access hozza létre és először ezt nyitja meg), és van a test.xls. A temporary.xls-ből szeretnék adatokat másolni a test.xls-be, de a többi úgy megy, ahogy leírtad - a test.xls INT nevű lapján az AB oszlopban található azonosítót keresem a temporary.xls ben, és a test.xls/INT lap T oszlopára írom vissza az értéket.
Viszont a makró nem tudom miért, de ennél a sornál elakad (ez az amit már átírtam, hogy a másik filera hivatkozzon):
Set WS = Workbooks("temporary.xls").Worksheets("Report")
gondoltam hogy nem találja a filet, ezért próbáltam a teljes hivatkozást berakni a filehoz így:
Set WS = Workbooks("C:/Users/Desktop/database test/test.xls").Worksheets("Report")
de sajnos ez esetben sem működött. Az excel azt írja hogy Run-time error 9: Subscript out of range
-
Kobe
veterán
válasz
Delila_1
#17863
üzenetére
valszeg valamit elrontottam a ctrl c ctrl v nél
Cells(sor, "X") & "-" & Round(Cells(sor, "W"), 0)
erre van emgadva az érték, de így nem működik. Igazából az érdekelne, hogy a VLOOKUP os részt hogyan kellene átírni ahhoz, hogy ugyanúgy működjön, mint a korábbi concatenates subod, hogy csak azokra a sorokra leressen rá, ahol az eredeti concatenates sub is
-
Kobe
veterán
válasz
Delila_1
#17724
üzenetére
helló
arra esetleg van valamilyen tipped, hogy a későbbiekben hogy lehetne dinamikusan azokra a cellákra hivatkozni pl VLOOKUP függvényben, amiket ez a sub amit mutattál kitöltött ?
Kicsit részletesebben: van ugye egy változó sorú adattábla ahol az egyik oszlopban Hazai vagy Külföldi van írva. Ez a sub kitölt egy oszlopot a Hazai sorokra. Ezt a "Hazai" sorokra visszakapott értéket én egy azonosítónak szánom, és egy vlookup függvénnyel egy másik fileból az ehhez tartozó plusz információkat szeretném bemásolni vele.
Az egyetlen gondom az, mint ami az eredeti subnál is volt: csak azokba a sorokba szeretnék beíratni valamit ahol az X oszlopban "hazai" volt, tehát valahogy dinamikusan szeretnék hivatkozni a VLOOKUP függvényben az Y oszlop kitöltött soraira.
Próbáltam úgy, hogy definiálok egy változót, tovább folytatva a te Subodat. Alul a konkrét kód, a hivatkozások és oszlopok kicsit mások lehetnek benne, mert ez már a végleges változat ami fut.
ez gyakorlatilag ugyanaz, mint amit te írtál, és klasszul működik: ehhez akarom majd hozzáépíteni a Vlookupot
Dim lnglastrow as Long
Dim lnglastrow2 as Long
lnglastrow2=Range("L"&Rows.Coun).End(xlUp).Row
For lnglastrow=2 to lnglastrow2
If Cells(lnglastrow,"R")="Hazai" then Cells(lnglastrow,"AB")=Cells(lnglastrow,"O")&"-"&Round(Cells(lnglastrow,"L"),0)
Nexta Vlookupot próbáltam így hhozzáépíteni:
Dim IDNUMBER as Long
IDNUMBER= Cells(lnglastrow,"AB")=Cells(lnglastrow,"O")&"-"&Round(Cells(lnglastrow,"L"),0)
For lnglastrow=2 to lnglastrow2
If Cells(lnglastrow,"R")="Hazai" then Cells(lnglastrow,"T")= "=VLOOKUP(IDNUMBER,'C:/test/[test.xls]INT'!$A$1:$P$65536,5,FALSE)"
Nexta Vlookup rendben le is fut, azonban az eredménycellákba csak ?#NAME hibaüziket ír vissza, mert rosszul hivatkoztam az IDNUMBER változóra. Ha az IDNUMBER-t manuálisan kicserélem pl AB1-re, akkor már a jó értéket írja vissza az eredménycellába.
Tudnátok segíteni mit kellene updatelnem ?
-
elmouse
aktív tag
válasz
Delila_1
#17658
üzenetére
Szia!
Az általad írt makróról lenne kérdésem.
A feladat most is hasonló, tehát egy adott oszlop utolsó 50 tagjának kellene kiszámolni az átlagát, de ciklusban. Vagyis először az A oszlop utolsó 50 tagjának az átlagát,aztán a B oszlopét is így tovább, míg van adatokat tartalmazó oszlop.
A kérdés persze nem csak neked szól. Bárki segítségét elfogadom.
Előre is köszönöm! -
Caipi
tag
válasz
Delila_1
#17711
üzenetére
Szia Delila_1,
Tegnap délután és most végre volt időm egy kicsit ezzel a diagrammal foglalkozni.
Oszlopdiagram lett belőle, félkész jelenleg.
Kérdésem, hátha tudsz segíteni:
Hogyan tudnám ezen a diagramon a keretösszeget is ábrázolni? Elképzelésem szerint ezt egy vonallal ábrázolnám
Köszönöm :-)
-
#17834
m.zmrzlina
senior tag
Delila_1
#17831
-
alfa20
senior tag
válasz
Delila_1
#17818
üzenetére
Szia Delila_1,
Kipróbáltam reggel, át ültettem a táblába, előbb volt egy hiba üzenet a "Dim sor%, usor%, szoveg$" ", usor%"-nál:
"Compire error:
Duplicate declaration in current scope
mivel van már 'usor' a táblába így a 'Dim' sorbol kivettem a többi 'usor%'-ot át írtam 'usor'-ra, így már végigfut, de csak egy üres ablak jelenik meg. próbáltam, hogy rögzítem a képletet hogy csak szöveg legyen a cellában, de akkor is csak üres ablakot dob fel.
Azt is megpróbáltam, hogy másik makróba tettem csak ezt a részt és egy 'CTRL+K'-val futtattam, de ez sem segített.
most így néz ki:
Dim sor%, szoveg$
Dim OK%, AH%
usor = Range("U" & Rows.Count).End(xlUp).Row
For sor% = 2 To usor
If InStr(Cells(sor%, 1), "OK") Then OK% = OK% + 1
If InStr(Cells(sor%, 1), "ADAT HIBA!") Then AH% = AH% + 1
Next
If OK% > 0 And AH% > 0 Then szoveg$ = "Adathibák száma: " & AH% & " db."
If OK% > 0 And AH% = 0 Then szoveg$ = "Nincsenek hibák."
MsgBox szoveg$viszont ami érdekes, ha egy üres munkafüzetbe teszem bele csak ezt a részt, akkor szépen működik, akkor meg szépen teszi a dolgát.
lenne ötleted?
-
alfa20
senior tag
válasz
Delila_1
#17816
üzenetére
Bocsi,
szóval azt szeretném, hogy adott egy oszlop (legyen "A") amiben vannak állítások (több száz sor):
- ideális esetben csak "OK" szerepel, ekkor írja ki: "minden ok"
- az oszlopban szerepel az "OK" és a "STÁTUSZ HIBA!", ekkor írja ki: "Státusz hiba, javítsa!"
- az oszlopban szerepel az "OK" és az "ADAT HIBA!", ekkor írja ki: "Adat hiba, javítsa!"
- az oszlopban szerepel az "OK", a "STÁTUSZ HIBA!" és az "ADAT HIBA!", ekkor írja ki: "Státusz és adat hiba, javítsa!"a lényeg hogy csak egy ablak ugorjon fel.
remélem sikerült leírnom amit szeretnék...
-
alfa20
senior tag
válasz
Delila_1
#17777
üzenetére
Így kell?
ActiveWorkbook.Worksheets("Active.Sheet").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Active.Sheet").Sort.SortFields.Add Key:=Range( _
"A2:A376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Active.Sheet").Sort.SortFields.Add Key:=Range( _
"B2:B376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Active.Sheet").Sort
.SetRange Range("A1:Z376")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End Withennek a helyén
Range( _
"A2:A376")működhet usor-al:
Range( _
"A2:A" & usor)Ez az eredeti:
ActiveWorkbook.Worksheets("0416-kp").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("0416-kp").Sort.SortFields.Add Key:=Range( _
"A2:A376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("0416-kp").Sort.SortFields.Add Key:=Range( _
"B2:B376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("0416-kp").Sort
.SetRange Range("A1:Z376")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With -
-
#17767
dellfanboy
őstag
Delila_1
#17764
dellfanboy
őstag
válasz
Delila_1
#17764
üzenetére
köszi szépen, ez jónak tűnik de az első lépést nem tudom abszolválni mert azt a hibát kapom hogy aA kivonatolt tartományban egy mezőnév hiányzik??
próbálkoztam avval, hogy a mező formátuma nem jó, értsd létrehoztam magam az ország neveket de nem lett jó. mi lehet a hibA? -
Mutt
senior tag
válasz
Delila_1
#17720
üzenetére
Hali,
Egy kicsivel rövidebb megoldás:
=HA(DARABTELI(A1;"*T*")>0;1;HA(DARABTELI(A1;"*A*")>0;2;HA(DARABTELI(A1;"*P*")>0;3;HA(DARABTELI(A1;"*M*")>0;4;HA(DARABTELI(A1;"*B*")>0;0;"")))))Ha a B-re nem 0-át, hanem mondjuk 5-öt kellene visszaadni és a szövegben mindig csak az egyik karakter van, akkor ez is működne:
=ELŐJEL(DARABTELI(A1;"*T*"))*1+ELŐJEL(DARABTELI(A1;"*A*"))*2+ELŐJEL(DARABTELI(A1;"*P*"))*3+ELŐJEL(DARABTELI(A1;"*M*"))*4+ELŐJEL(DARABTELI(A1;"*B*"))*5üdv.
-
Kobe
veterán
válasz
Delila_1
#17718
üzenetére
ez egy rendesen kitöltött táblázat, mindig ugyanaz a fejléc van az első sorban benne, a makró célja pedig hogy egyik excel fileból (ami adatbázisból ered), a másikba másoljak egy egy sorhoz fűzött kommenteket, adatokat
A-AB oszlopokig vannak megcímezve a fejléc cellái, a file "eredeti" állapotban csak A-X oszlopokban tartalmazza az adatokat folyamatosan, plusz ugye X-AB ig ures cellákat, ezekbe kellene majd makróval hozzáilleszteni az adatokat VLOOKUPPAL
A-X oszlopokban minden folyamatosan van kitöltve, egyedül a sorok száma változik, de minden oszlop ki van töltve.
A makró úgy indul, hogy Y oszlop elé beszúr egy új oszlopot, és ott CONCATENATE tel létrehozza az azonosítót, ami alapján másik fileból behúzza az adatokat Z-AB oszlopokba.
az Y2 es cella tehát így nézne ki: =CONCATENATE(X2,"-",ROUND(W2,0)) de ezt csak azokra a cellákra kellene beillesztenie, ahol X2="Hazai"
Mint írtam az IF nem igazán jó megoldás itt, illetve dinamizálni kellene valahogy, hogy mindig X2-Xn számú sort nézzen át
-
Kobe
veterán
válasz
Delila_1
#17716
üzenetére
Koszi de nekem vba ban kellene es nem sima fuggvennyel megoldva, anyway az if csak 1 cellara vizsgalja a tartalmat, nekem megy valtozo sor szamu dinamikus listam van, mint irtam. Es az a baj, hogy nincs else statementem, mert nem kell, en azt szeretnem hogy a "kulfoldi" sorok cellait teljes mertekben hagyja beken, ne csinaljon vele semmit (azokat egy masik makro toltene fel)
a makronak automatikusan vegig kellene mennie az osszes soron es magatol beirni minden cellaba ahol hazai van
-
Caipi
tag
-
Gandalf80
csendes tag
válasz
Delila_1
#17668
üzenetére
Szia!
Bocs, azt tényleg rosszul hoztam a példában, természetesen nem kell a cellákat egyesíteni és több cella is tartalmazhat 1-1 napot.
Addig már eljutottam, hogy a SZUMHATÖBB-bel le tudom szűrni 1-1 napra, de ezzel még nem oldottam meg a másik részét a feladatnak. Azt, hogy ha az F2 illetve I2 cellába beírok bármelyik két napot, akkor csak pl. 5-20-ig terjedő értékekből adja össze, hogy pl. az alma eladásából mennyi bevételünk lett a 16 nap alatt.
Eddig ezt, egy segédtáblával oldottam meg. De arra lennék kíváncsi, hogy van-e egyszerűbb megoldás?
Üdv.
Gandalf80 -
kekkec
aktív tag
válasz
Delila_1
#17637
üzenetére
Szia!
Köszönöm a segítséged!
Az ami példaként szerepelt kissé eltér a "projektemtől" és gőzöm sincs hogyan applikálhatnám bele illetve abban százalékok (0 és 1 közti valós számok) alkotják az értékeket.Így néz ki:
Azon szenvedek, hogy a kisebb színes cellák háttérszínét felvegye a felettük lévő szöveget tartalmazó cella (mindegyik a saját "párjáét", tehát: B2 a B3-ét, C2 a C3-mét,... stb.)
-
Melorin
addikt
válasz
Delila_1
#17619
üzenetére
Köszönöm, működik, és megértettem, mire való a $ jel. A MS oldalon eddig nem sikerült úgy elmagyarázniuk, hogy megértsem
Már majdnem kész a project. De van még 1-2 dolog, ami még furcsa.
Például mivel a hónapok napjainap a száma változik, ráadásul az elseje sem mindig Hétfő, stb, a táblázatom le-fel elmozdul jópár cellát. Viszont a beírt értékek ott maradnak ahol voltak, és a táblázat alá-fölé kerülhetnek.
Ezért a hónapok alatt nehezen tudnám összesíteni a napok mellé írt órákat.
Mutatok egy példát. Itt be voltak eredetileg írva a napok mellé az adatok, de aztán változtattam a "hűségidő" kezdetén. Csöppet elcsúsztak az adatok.
Az még haggyán, hogy az adatok elcsúsznak, mert új évkezdésnél lehet/kell is törölni az értékeket, de nem tudom, hogy hová tegyem az összesítőcellát. Az hülyén nézne ki, hogy a legszélsőségesebb esetet véve vagy' 7 cellával lejjebb legyen összesítve.
Nem lehet valami olyan diagrammot vagy akármit beszúrni, ami változtatgatja a helyét, és megadható, hogy mindíg a legalsó érték alá kerüljön? -
Delila_1
veterán
válasz
Delila_1
#17635
üzenetére
Reggel rohantam, most egy kicsit módosítottam a makrón. A színek kikavarásához normális értékeket kell írni, hogy jól mutassanak.
Sub mnmn()
usor% = Range("A1").End(xlDown).Row
maxx = Application.WorksheetFunction.Max(Range("A1:A" & usor%))
hatar1 = maxx * 0.2
hatar2 = maxx * 0.4
hatar3 = maxx * 0.6
hatar4 = maxx * 0.8
For sor% = 1 To usor%
szam = Cells(sor%, 1)
If szam < hatar1 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(0, 0, 255)
If szam >= hatar1 And szam < hatar2 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(120, 50, 100)
If szam >= hatar2 And szam < hatar3 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(80, 20, 180)
If szam >= hatar3 And szam < hatar4 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(120, 200, 150)
If szam >= hatar4 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(255, 0, 0)
Next
End Sub -
Melorin
addikt
válasz
Delila_1
#17585
üzenetére
Köszönöm a töretlen segítséget
Jelenleg így néz ki:
Most az a probléma, hogy nem tudom summázni a napok mellé írt számokat (a képen nincs beírva semmi) mert nem tudni, hogy mettől meddig terjed 1-1 hónap, mivel az a változtatható hónapok napjainak száma alapján más.
Mert most S2:S31-ig terjed március, de kerülhet ide akár február is, akkor meg már a március első napjait is beleszámolná, ráadásul elcsúszna emiatt az egész év is. -
#17595
m.zmrzlina
senior tag
Delila_1
#17593
m.zmrzlina
senior tag
válasz
Delila_1
#17593
üzenetére
Ez a módszer miért nem működik ha nem használsz objektumváltozót?
Én ugyanis kipróbáltam úgy hogy:
For Each cella in Selection.Cells
cella.Value=cella.Value * 1
Nextde ez még az általam Szöveggé formázott számokon sem működött.
Úgy működött csak, ha nem helyben akartam szorozni, hanem odébbtettem egy másik cellába a végeredményt.
-
bteebi
veterán
válasz
Delila_1
#17590
üzenetére
Köszi a tippet! Manuálisan meg tudtam csinálni eddig is a konverziót irányított beillesztéssel, de makróval nem megy. Megpróbálom azt is makróval, amit írtál.
#15791: Köszi a javaslatot. Már próbáltam, de önmagában a cellaformátum megadása, átállítása nem segít, ugyanúgy szövegként értelmezi a számokat.
-
Melorin
addikt
válasz
Delila_1
#17582
üzenetére
Így csináltam
CTRL+F3-al készítettem egy-egy csoportot ELTOLÁS-sal minden hónap napjairól, (ami változik attól függően, hogy mi az induló hónap), mint ahogy a képen is látszik. Nevezzük most Csoport(1,2,3...)-nak őket.
Hogy lehet ezt a kis táblázatot valahová beszúrni? Mert akkor meg is oldódna a hónapok egymástól elkülönített megjelenítése.
Valahogy így képzelem el az én kis agyamban, persze ilyen képletsor nincs:A1 --> =Csoport1(1.sor;1.oszlop) B1 -->=Csoport1(1.sor;2.oszlop)
A2 --> =Csoport1(2.sor;1.oszlop) B1 -->=Csoport1(2.sor;2.oszlop)
..
..
A52 --> =Csoport2(21.sor;1.oszlop) B52 -->=Csoport2(21.sor;2.oszlop)Vagy akár el is hagyhatjuk a több oszlopot, mert ahogy írtad is, azok ugyan azok csak a formázás miatt írnak mást.
De akkor egy oszloppal is, hogy lehet megcsinálni a példám szerint?
A 2 lehetőség közül a második tűnik szimpatikusabbnak (de mindkettő tökéletes persze)...köszönöm szépen 
Hálás köszönet! Új hozzászólás Aktív témák
Fferi50- Profi portréfotós lehetsz ezzel a telefonnal
- Battlefield 6
- Linux kezdőknek
- Futás, futópályák
- A fociról könnyedén, egy baráti társaságban
- Luck Dragon: Asszociációs játék. :)
- VGA kibeszélő offtopik
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- sziku69: Fűzzük össze a szavakat :)
- Kompakt vízhűtés
- További aktív témák...
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Árváltozás+játék DVD: Bioshock Infinite Ultimate Songbird Edition
- Battlefield 5 PC SteelBook és játék
- Witcher 1 Collector's Edition
- Árváltozás+játék DVD: Borderlands 2 Ultimate Loot Chest Limited Edition
- HP 150W töltők (19.5V 7.7A) kis kék, kerek, 4.5x3.0mm
- Bomba ár! Dell Latitude E5520 - i5-2520M I 4GB I 250GB I HDMI I 15,6" HD I Cam I W10 I Garancia!
- Acer TravelMate P214 i3-1115G4 12GB 256GB 14" FHD 1év garancia
- HIBÁTLAN iPhone 13 Pro Max 128GB Alphine Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3722
- Lenovo Thunderbolt 3 kábel (4X90U90617)
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest