Hirdetés
-
Csatába küldte Magyarországon idei csúcs hangprojektoros szettjét a Samsung
ph A HW-Q990D/EN 11.1.4 csatornás, külön mélynyomóval megtámogatott termék.
-
Nemzetközi piacra érkezik az Amazfit Helio Ring
ma Elsőként az Egyesült Államokban lehet majd megvásárolni a gyártó első okosgyűrűjét.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Mobilarena
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
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz csferke #8261 üzenetére
A cellára így hivatkozhatsz:
Cells(sor,oszlop)A ciklussal, gondolom, a sorokon mész végig. Sornak a ciklusváltozódat írd be, az oszlopszámot meg fixen megadhatod.
Cells(sor,oszlop)=Válasz
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz csferke #9098 üzenetére
Először is a szintaxist az szigorúan tartsuk be, mert nem mindegyik Excel-ben fog működni ez a képleted (2010-ben biztosan nem megy). A helyes ez
=FKERES(21;A1:A20;1;HAMIS) vagy angol megfelelőjeként
=VLOOKUP(21,A1:A20,1,FALSE)ami annyit jelent, hogy keressük a 21-et az A1:A20 tartomány 1 oszlopában, pontos egyezéssel. Jól láthatóan az utolsó, logikai paraméter (igaz/hamis vagy true/false) határozza meg, hogy közelítő egyezéssel keressen, avagy pontos egyezéssel.
(Ahogy látod, ez nem a LOOKUP (KUTAT) függvény)
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz csferke #10434 üzenetére
ActiveCell.Offset(0, -1).Select - aktuális cellától balra lép 1-et
ActiveCell.Offset(0, 1).Select - aktuális cellától jobbra lép 1-et
ActiveCell.Offset(1, 0).Select - aktuális cellától lefelé lép 1-et
ActiveCell.Offset(-1, 0).Select - aktuális cellától felfelé lép 1-etBevallom, olyan billentyűzet kombinációt nem ismerek, ami az első üres cellára ugrana az adott sorban vagy oszlopban. Amúgy a CTRL+ kurzormozgatókkal kísérletezz, így az első/utolsó használt cellára ugorhatsz az adott sorban/oszlopban.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz csferke #10434 üzenetére
A második kérdésedre:
Cells(Range("A1").End(xlDown).Row + 1, 1).Select
vagy
Cells(Application.CountA(Range("A:A")) + 1, 1).Select
vagy
Cells(Application.CountA(Columns("A:A")) + 1, 1).Select
vagy
Range("A" & Application.CountA(Columns("A:A")) + 1).Select[ 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.
-
Delila_1
Topikgazda
válasz csferke #12205 üzenetére
A Sheet2 lap A1 cellája legyen =Sheet1!A1
Természetesen a Sheet1 helyett az első lapod nevét írd a cellába. Ha ez a lapnév számjeggyel kezdődik, vagy szóközt is tartalmaz, a lapnevet aposztrófok közé kell tenned.
Pl.: ='Nagy Pali'!A1Programozó: 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
válasz csferke #12208 üzenetére
A Sheet1 laphoz rendeld a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Then
Sheets("Sheet2").[A1] = Target
End If
End SubA laphoz rendelés több hozzászólásban szerepelt itt a fórumon.
Programozó: 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
válasz csferke #12213 üzenetére
Szívesen.
Ezt a Sheet3 laphoz rendeld:Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Then
Sheets("Sheet2").[B1] = Application.WorksheetFunction.Sum([D:E])
End If
End SubHa a Sheet3 lapon a D, vagy E oszlop változása után kellene az összegüket átvinni a Sheet2!B1 cellájába, akkor az
If Not Intersect(Target, [A:A]) Is Nothing Thensor helyére
If Not Intersect(Target, [E:D]) Is Nothing Then
kerüljön. Most a Sheet3 lap A oszlopába beírt érték hatására kerül a D:E oszlop összege a Sheet2!B1-be.[ 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.
-
Delila_1
Topikgazda
válasz csferke #12215 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D:E]) Is Nothing Then
Sheets("Sheet2").[B1] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 4), Cells(Target.Row, 5)))
End If
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
válasz csferke #12231 üzenetére
Az If Not Intersect(Target, [D:E]) Is Nothing Then sorban a [D:E]-t írd át [B:C]-re.
Az eseménykezelő makrókban azt kell figyeltetni, ami billentyűzetről változik.
Nincs szükség egy külön oszlopra az összegzéshez a másik lapra történő átvitelhez, a Sum(Range(Cells(Target.Row, 4), Cells(Target.Row, 5))) sor elvégzi az összeadást. A sok képlet lassítja a futást.Nem próbáltam ki!
Programozó: 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
válasz csferke #12245 üzenetére
1.
Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))*-1Az [E14] a Range("E14") rövidebb formája.
2.
=IF(LEFT(F29,6)="szöveg", ("fco. naš mag. "&I8&" radnih dana od dana prijema uplate"),)Az utóbbit (is) próba nélkül írtam. A LEFT(F29,6)="szöveg" az F29 cella kezdetét vizsgálja a "szöveg" szó hosszúságában. Ha az F29 tartalma pl. "szöveg a tartományban", akkor a képletet tartalmazó cella eredménye fco. naš mag. szöveg radnih dana od dana prijema uplate – bármit jelentsen is.
Nem szükséges a CONCATENATE függvényt kiírni, elég az összefűzendő értékek közé & jelet írni.
Programozó: 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
válasz csferke #12500 üzenetére
Érvényesítéssel vidd be az adatot az A1-be, akkor nem látszik keret és nyíl a nyomtatásban.
A névhez tartozó adatokat az FKERES függvény segítségével vidd be a többi cellába.
Erről a függvényről olvashatsz a súgóban, de itt a fórumon is sok szó esett, pl. tegnap is.Programozó: 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
válasz csferke #12518 üzenetére
Csak tippelek az angolra. A 2003-as verziót írom, mert nem adtad meg, melyiket használod. Valószínűleg a Data | Validation menüpontban találod meg, az A1 cellán állva.
A csatolt képen láthatod az A2 és A3 képletét.Programozó: 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
válasz csferke #12549 üzenetére
Egy új oszlopban (legyen ez pl. a H) összefűzöd az A és D oszlop adatait. Érdemes a két adat közé elválasztót, mondjuk szóközt tenni.
H2 -> =A2 & " " & D2Ekkor az érvényesítés forrásánál a H oszlop szerepeljen.
K2 -> =VLOOKUP(LEFT($K$1,SEARCH(" ",$K$1)-1),A:D,2,0)
K3 -> =VLOOKUP(LEFT($K$1,SEARCH(" ",$K$1)-1),A:D,3,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.
-
Delila_1
Topikgazda
válasz csferke #12614 üzenetére
Nem nézted meg a csatolt képet, pedig ott a K2 és K3 cella éppen azt tartalmazza, amit kértél.
Amit most írsz, körkörös hivatkozást eredményezne. Az A1 cellában akarod megjeleníteni azt az adatot, amit a VLOOKUP az A oszlopban talál.
Tettem az első sorba (A:D) egy autoszűrőt, a G oszlopba pedig egy összefűzést (=A2&" "&D2)
Az érvényesítésben (I1 cella) forrásként a $G$2:$G$6 tartományt adtam meg, mert a 2:6 sorokba írtam adatokat. Az I1-ben történő kiválasztás után az autoszűrő a választás szerint szűri az A:D tartományt. Az I1 törlése esetén minden sor látszik.Nem írtad, hogy az A és D oszlopok közül melyik tartalmazza a város, ill. a cég nevét, ezért 2 makrót írtam. A megfelelőt rendeld a lapodhoz.
Private Sub Worksheet_Change(ByVal Target As Range)
'Város=D oszlop, Cég=A oszlop
Dim betu%, krit
If Target.Address = "$I$1" Then
If IsEmpty(Target) Then
Selection.AutoFilter Field:=1
Exit Sub
Else
Range("A1").Select
For betu% = Len(Target) To 1 Step -1
If Mid(Target, betu%, 1) = " " Then
krit = Left(Target, betu% - 1)
Exit For
End If
Next
End If
Selection.AutoFilter Field:=1, Criteria1:=krit
End If
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
'Város=A oszlop, Cég=D oszlop
Dim betu%, krit
If Target.Address = "$I$1" Then
If IsEmpty(Target) Then
Selection.AutoFilter Field:=4
Exit Sub
Else
Range("A1").Select
For betu% = 1 To Len(Target)
If Mid(Target, betu%, 1) = " " Then
krit = Right(Target, Len(Target) - betu%)
Range("J2") = krit
Exit For
End If
Next
End If
Selection.AutoFilter Field:=4, Criteria1:=krit
End If
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.
-
félisten
válasz csferke #13032 üzenetére
Egy kép beszédesebb lett volna, most csak kérdezni tudok
Szövegként vannak jelen a dátumok avagy valamilyen objektumként (pl activex vezérlő) vagy pl körlevél törzsdokumentum mezőként stb?Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
poffsoft
addikt
válasz csferke #13092 üzenetére
Sajna nincs, úgy néz ki.
Pedig nekem is megkönnyítené az életemet ....Delila_1: az a * 1 nagyon szép volt!
Én csak ezeket buta és lassú konverziós fv-eket tudtam volna ajánlani:
Range("A1").Value = CSng(Range("C3").Comment.Text) + CSng(Range("C4").Comment.Text)
vagy:
Range("A1").Value = CInt(Range("C3").Comment.Text) + CInt(Range("C4").Comment.Text)Szöveg számmá: Konverziós függvények
[ Szerkesztve ]
[ Szerkesztve ]
-
félisten
válasz csferke #13932 üzenetére
Remélem jól értettem, azaz az A3-ban lévő napok számához kell hozzáadni 0,5-t vagy 1-et, attól függően, hogy A1 és A2 dátum közt eltelt hónapok száma 8 és 12 közé esik avagy 12-nél több...
Ha jól értettem, akkor A4 képlete
=HA(DÁTUMTÓLIG(A1;A2;"m")<8;A3;HA(ÉS(DÁTUMTÓLIG(A1;A2;"m")>=8;DÁTUMTÓLIG(A1;A2;"m")<12);A3+0,5;A3+1))
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
válasz csferke #13934 üzenetére
=HA(ÓRA(A3)<8;NAP(A3);HA(ÉS(ÓRA(A3)>=8;ÓRA(A3)<=12);NAP(A3)+0,5;NAP(A3)+1))
Angol Excel-ben
=IF(HOUR(A3)<8,DAY(A3),IF(AND(HOUR(A3)>=8,HOUR(A3)<=12),DAY(A3)+0.5,DAY(A3)+1))
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz csferke #14459 üzenetére
Az 1. lapra betennék egy új oszlopot, ami a számlázott-, és a befizetett összeg különbségét adja. Az adatokat az adatlapon is rendezheted, de a kimutatásban is.
A kimutatás sorába kerül a cég neve és a számlaszám, az adatokhoz ez a különbség. Itt még megjelennek a nulla tartozást mutató sorok. Ezeknek az eltüntetéséhez írtam egy kis makrót, amit egy gombhoz rendelhetsz.
Sub Elrejt()
Dim sor%, usor%
usor% = Cells(Rows.Count, "A").End(xlUp).Row
sor% = usor%
For sor% = usor% To 5 Step -1
If Cells(sor%, "C") = 0 Then Cells(sor%, "B").Delete
Next
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
válasz csferke #14459 üzenetére
Hibáztam! Az
If Cells(sor%, "C") = 0 Then Cells(sor%, "B").Delete
sort cseréld ki
If Cells(sor%, "C") = 0 Then Rows(sor%).EntireRow.Hidden = True-ra.
Ez elrejti azokat a sorokat, ahol a C oszlop – a tartozás – nulla. Bármikor felfedheted.
Programozó: 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
válasz csferke #14475 üzenetére
Meg lehet oldani. A laphoz kell rendelned az alábbi makrót.
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Kimutatás1").PivotCache.Refresh
Elrejt
End SubMikor a kérdéses lapra lépsz, ennek a makrónak az első sora frissíti a kimutatást. Ha nem Kimutatás1 a neve, írd át.
A második sor meghívja az Elrejt makrót.Programozó: 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
válasz csferke #14569 üzenetére
Szia!
Meg is kell jelenítenie, hiszen csak a D=0 sorokat rejti el a makró, a negatívakat nem. Kipróbáltam, bár a makrót nézve is látszott, hogy negatív D értéknél nem rejti el a sorokat.
A kimutatásban a D oszlopban vannak az értékek? Ha nem, az
If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
sorban írd át a "D"-t a megfelelő oszlop betűjelére.
Programozó: 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
válasz csferke #14650 üzenetére
A Mutat makró ugyanaz, mint az Elrejt, csak az
If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
sor végén a True helyett legyen False.
A frissítő makród ilyen legyen:Private Sub Worksheet_Activate()
Mutat
ActiveSheet.PivotTables("PivotNenapFakt").PivotCache.Refresh
Elrejt
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
válasz csferke #14686 üzenetére
xlsm-be akkor érdemes menteni, ha a laphoz makró van rendelve.
Sub LapotMent()
Const ment = "D:\Adatok\uj.xlsm"
ActiveSheet.Copy
ActiveWorkbook.SaveAs ment
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
válasz csferke #15582 üzenetére
Az első lap egy új oszlopába tedd be az =A2& " "&C2 képletet, ami összefűzi a nevet és a várost. Legyen ez pl. a D oszlopban. Ügyelj, hogy az idézőjelek között 2 db szóköz legyen.
Másold le a képletet, jelöld ki mindet, és nevezd el mondjuk NV-nek (nés és város).
A 2. lap A1 cellájában az érvényesítésnél ezt add meg forrásként: =NV
Az A2 cellába a következő képlet jön:=FKERES(BAL(A1;SZÖVEG.KERES(" ";A1)-1);Munka1!A1:C5;2;0) & " " & FKERES(BAL(A1;SZÖVEG.KERES(" ";A1)-1);Munka1!A1:C5;3;0)
Itt is 2 db szóközöket írj.
Ebből a BAL(A1;SZÖVEG.KERES(" ";A1)-1) adja a keresendő nevet. Megkeresi az A1 cellában a 2 db szóköz helyét, megadja a keresendő nevet, és ennek megfelelően keres az 1. lap adatai között.
Azért kell dupla szóköz, mert a nevek tartalmaznak 1-1 db-ot.Programozó: 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
válasz csferke #15755 üzenetére
Egy új oszlopban összefűzöd a B és E oszlop tagjait, közéjük szóközt teszel –> =B2 & " " & E2.
Az új tartománynak nevet adsz, és ezt adod meg a lista forrásaként.Programozó: 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
válasz csferke #15797 üzenetére
A kérdés így szólt:
"A legördülőben hogyan kell megadni, hogy pl. a lap2 B és E oszlopai szerepeljenek".
Ha csak a B oszlop adatainak kell az érvényesítésben szerepelniük, akkor azt nevezd és, és vidd be forrásként.Programozó: 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
válasz csferke #15812 üzenetére
Szia!
A Lap1 lapon vannak az adataid az A:D tartományban.
1. Az E oszlopban fűzöd össze a várost és a nevet.
2. Névadással meghatározod az E oszlop tartományát. Legyen a név mondjuk NevVaros. A hivatkozásba ezt írd: =OFSZET(Lap1!$E$2;0;0;DARAB2(Lap1!$E:$E)-1;1), ezzel eléred, hogy a névvel ellátott tartományod rugalmasan követi a bevitt adatmennyiséget.
3. A Lap2-n ne az A1-be, hanem pl. a G1-be tedd az érvényesítést. Lista, a forrás =NEvVaros
4. Az A oszlopba szövegesen felviszed, milyen adatokat akarsz látni (név, ir.szám, város, cím).
5. B1 képlete: =INDEX(Lap1!A:E;HOL.VAN($G$1;Lap1!E:E;0);SOR()), ezt lemásolod a B4 celláig.Ha nem az első sorban kezded az adatok lekérdezését a Lap2 lapon, akkor a SOR() helyett 1-et, 2-t, stb. írj.
Programozó: 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
válasz csferke #15952 üzenetére
Sub Datum_L_be()
Dim sor As Integer
sor = Application.WorksheetFunction.Match([A1], Sheets(2).Columns(2), 0)
Sheets(2).Cells(sor, "L") = Date
End SubSub Novel_F_et()
Dim sor As Integer, CV As Object
For Each CV In [B27:B38]
If CV <> "" And IsNumeric(CV) Then
On Error GoTo Kov
sor = Application.WorksheetFunction.Match(CV, Sheets(2).Columns(1), 0)
Sheets(2).Cells(sor, "F") = Sheets(2).Cells(sor, "F") + Cells(CV.Row, "F")
End If
Kov:
Next
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
válasz csferke #15974 üzenetére
Ha nem számok vannak a tartományban, akkor valóban felesleges az isnumeric.
A hibakezelést azért tettem be, mert előfordulhat, hogy a Lap1 B oszlopában szereplő valamelyik tétel nem található meg a Lap2 B oszlopában, akár elírás miatt.
Programozó: 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
válasz csferke #16120 üzenetére
Vegyél fel egy változót, ami az egyszerűség kedvéért legyen V.
V=ActiveCell.value
If V = "o" Or V ="ts" Or V ="ti" Or V ="tu" Or V ="u" Then
ActiveCell.Offset(0, 2).Select
End If[ 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.
-
Mutt
aktív tag
válasz csferke #16166 üzenetére
Hello,
...viszont olyan cella is amelyben legördülő listából kellene kiválasztani...
Az alap INPUTBOX-al nem tudod ezt megoldani, de készíthetsz egy sajátot is. Ehhez kell egy Userform amire egy ComboBox-ot kell tened. Ez képes legördülő listákat kezelni.A minta fájlomat feltettem ide.
A makró lényege lent látható:
Private Sub UserForm_Initialize()
Dim vErvenyesitesTipusa
Me.Caption = Title
Me.lPrompt = Prompt
On Error Resume Next
'az érvényesítés 0 és 7 közötti értéket vagy hibát vehet fel
vErvenyesitesTipusa = ActiveCell.Validation.Type
'attól függően hogy melyik érvényesítés van kicsivel másabb lesz a beviteli lap
Select Case vErvenyesitesTipusa
Case 3 'xlValidateList = legördülő lista
Me.cbBevitel.RowSource = ActiveCell.Validation.Formula1 'a combobox-nak megadjuk az érvényesítés tartományát
Me.cbBevitel = ActiveCell.Value 'kitesszük a korábbi értéket
Case Else
Me.cbBevitel.ShowDropButtonWhen = fmShowDropButtonWhenNever 'letiltjuk a legördülő nyilat
Me.cbBevitel = ActiveCell.Value 'kitesszük a korábbi értéket
End Select
End SubRemélem a minta segít a megoldásban.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Delila_1
Topikgazda
válasz csferke #16283 üzenetére
Legegyszerűbben úgy, hogy a formon ráállsz a legördülődre, és a tulajdonságainál a RowSource rovatban megadod: Kupci!KupciNaziv. A makróba már nem kell semmit írnod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mutt
aktív tag
válasz csferke #16283 üzenetére
Hello,
Ezzel a képlettel (Delilától kaptam) az A oszlop adja az adatokat de nem veszi figyelembe az utolsó bejegyzés utáni üres sorokat.
=OFFSET(Kupci!$A$2;0;0;COUNTA(Kupci!$A:$A)-1;1)Hogyan tudom megadni ezt a tartományt, listanevet (KupciNaziv), hogy ez szerepeljen a legördülőben az érvényesítéshez?
A névkezelőben a fenti függvényhez rendelj egy nevet. A Formula fülön a Name Manager opcióval tudod ezt megtenni. A példámban a "lista" nevet adtam neki.
Az(oka)t a cellá(ka)t ahol az eredeti képletet használtad módosítsd, hogy a forrás ezentúl "=lista" legyen.
Ez a módosítás már műkődik a makróval további módosítás nélkül.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel