- Biztonsági aggályok miatt késik a Microsoft hatalmas AI-újítása
- Kíváncsi az EU, milyen online védelmet adnak a pornóplatformok a kiskorúaknak
- Panaszt tettek a Google ellen, mert követi a felhasználókat a böngészője
- Rengeteg áram kell az adatközpontoknak, erre válasz a geotermikus energia
- Az AI megmondja, hogy van-e fájdalma a macskának
- Facebook és Messenger
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- DIGI internet
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Otthoni hálózat és internet megosztás
- Márkaértékben az Apple a legjobb a világon
- ASUS routerek
- Nem szavazza meg Musk 56 milliárd dolláros csomagját a norvég állami vagyonalap
- Kíváncsi az EU, milyen online védelmet adnak a pornóplatformok a kiskorúaknak
- Biztonsági aggályok miatt késik a Microsoft hatalmas AI-újítása
-
IT café
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
válasz m.zmrzlina #16758 üzenetére
Kibővítettem arra az esetre, ha a felhasználó össze-vissza kattintgat. Megeshet, hogy először rákattint a nincskutyára – ezzel felszabadítja a macsekos részt –, utána rájön, hogy tegnap kapott egy ebet. Ekkor újra le kell tiltani a macskákat. A "Figy" egy címke, ide jön a figyelmeztetés.
A start marad, ahogy volt.
Private Sub Vankutya_AfterUpdate()
If VanKutya = True And DbKutya = "" Then
DbKutya.Enabled = True
VanM.Enabled = False
NincsM.Enabled = False
DbM.Enabled = False
Figy = "Írd be a darabszámot!"
Else
DbKutya.Enabled = False
Figy = ""
End If
End Sub
Private Sub NincsKutya_AfterUpdate()
If NincsKutya = True Then
DbKutya.Enabled = False
VanM.Enabled = True
NincsM.Enabled = True
DbM.Enabled = True
Figy = ""
Else
DbKutya.Enabled = True
Figy = "Írd be a darabszámot!"
End If
End Sub
Private Sub DbKutya_AfterUpdate()
If DbKutya > "" Then
VanM.Enabled = True
NincsM.Enabled = True
DbM.Enabled = True
Figy = ""
Else
VanM.Enabled = False
NincsM.Enabled = False
DbM.Enabled = False
Figy = "Írd be a darabszámot!"
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.
-
Delila_1
Topikgazda
válasz m.zmrzlina #16762 üzenetére
Nagyon jó. nem ismertem. Köszi!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
hallgat
csendes tag
válasz m.zmrzlina #16812 üzenetére
Szia!
Köszönöm!Közben egy favágó módszerrel megoldottam.
Felvettem egy cellát, aminek az értéke 1, majd ezt másolom az átalakítandó cellákra irányítottbeillesztéssel, a szorzást választva.
Nem túl szép, de működikOffice 2010 Attól, hogy a verebek alakzatba állnak, az még nem SAS!
-
hallgat
csendes tag
válasz m.zmrzlina #16818 üzenetére
Mármint mit?
A cellát kézzel vettem fel a munkalap egy távol eső sarkában, értéke állandó 1.
Ennek másolását szorzással viszont már a makró csinálja.Office 2010 Attól, hogy a verebek alakzatba állnak, az még nem SAS!
-
m.zmrzlina
senior tag
válasz m.zmrzlina #16867 üzenetére
Időközben próbáltam ezt a változatot is:
Range("I3").Select
Do While ActiveCell.Value = -1
strKeplet = "=DARABHATÖBB(A:A;G" & ActiveCell.Row & ";B:B;H" & ActiveCell.Row & ")"
ActiveCell.Offset(0, 1).Value = strKeplet
ActiveCell.Offset(1, 0).Select
LoopEbben az esetben a:
ActiveCell.Offset(0, 1).Value = strKeplet
sor ad Application-defined or object-defined error-t. -
Delila_1
Topikgazda
válasz m.zmrzlina #16868 üzenetére
Makró nélkül, 2 segédoszloppal.
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 m.zmrzlina #16870 üzenetére
Sub mm()
Range("J3:J15000") = "=COUNTIFS(A:A,G3,B:B,H3,C:C,I3)"
Columns("J:J").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
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.
-
Delila_1
Topikgazda
válasz m.zmrzlina #16872 üzenetére
Be van kapcsolva az Analysis ToolPak - VBA nevű bővítményed?
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 m.zmrzlina #16874 üzenetére
Nekem csak 2007-es verzióm van, de azért küldd el, ha gondolod, megnézem.
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 m.zmrzlina #17035 üzenetére
On Error Resume Next
Workbooks.Open Filename:= utvonal & fájlnévHa már meg van nyitva az utvonal és a fájlnév változókban meghatározott fájl, nem fut hibára a makró.
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 m.zmrzlina #17046 üzenetére
Szívesen.
Mutt is írt egy változatot, nézd meg.
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 m.zmrzlina #17057 üzenetére
Nálam hibára fut, ahogy várod.
Többször láttam, hogy a for-next ciklusban a tól-ig határt a valami.count-tal adod meg. Ez azt eredményezi, hogy szegény gépnek minden ciklusban ki kell számolnia, mennyi az a bizonyos count. Célszerűbb egy változóban előre megadni ezt az értéket, gyorsít a futáson.
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 m.zmrzlina #17063 üzenetére
Ez a módosítás csak a futás idejét befolyásolja, a működését nem.
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 m.zmrzlina #17066 üzenetére
Elküldöm az én füzetemet.
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 m.zmrzlina #17068 üzenetére
Az On Error Resume Next megadásakor nem áll le a program, hanem a következő sorra ugrik.
Az On Error Goto 0 kapcsolja ki.Amit küldtem, abban az On Error Goto Hiba sorral a Hiba címkére küldöm hiba esetén, ami egy üzenetet küld arról, hogy létezik már azonos nevű lap.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Excelbarat
tag
válasz m.zmrzlina #17070 üzenetére
Hi!
Erre egy elég fura megoldást találtam:
Nálam úgy működött hogy ahol a lista van fogtam a sorait elrejtettem (nem szükséges csak az esztétikum miatt) és közvetlen alatta lévő sorban adatérvényesítéssel csináltam listát. Sajnos csak így jött össze... ha 1 sor kihagytam már nem működött az autokiegészítés a listában.[ Szerkesztve ]
-
Mutt
aktív tag
válasz m.zmrzlina #17070 üzenetére
Hello,
Automatikus kiegészítés ActiveX-es beviteli listával (combobox) is megoldható, illetve ahogy Excelbarát is írta, a cella alatt/felett összefüggő tartományként felsorolt adatokkal.
ü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 m.zmrzlina #17114 üzenetére
Szívesen.
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 m.zmrzlina #17110 üzenetére
Hello,
Érvényesítési listában az autocomplete nem műxik, azonban ActiveX-es beviteli listában igen.
Ez nagyon hasonlít az érvényesítésre, de annál többet tud.A Fejlesztőeszközök fülön tudsz ilyet beszúrni. A tulajdonságainál (ListFillRange) pedig be tudod állítani hogy mely listából lehessen kiválasztani. A hátránya, hogy ez nem cellában van, így az eredményét ha fel akarod használni akkor valahol meg kell jeleníteni (LinkedCell opció).
Alternatív megoldás pedig lehet, hogy a 250 elemet vhogy csoportosítod és több beviteli listán keresztül választatod ki a felhasználóval a konkrét értéket. Erről nem sok feljebb voltak megoldások.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz m.zmrzlina #17111 üzenetére
Hello,
Ezt is lehet használni:
Sub FindCreationDate()
Dim fso As Object
Dim f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("c:\autoexec.bat")
MsgBox f.DateCreated
End SubEzek a jellemzők kérdezhetők le:
Attributes : Return the file attribute (read only,hidden etc.)
Copy : Copy a file
DataCreated : Return creation date
DateLAstModified : Return date of the last modification
Delete : Delete a file
Drive : return the drive where the file is
Move :allow to move the file
Name : return the file name
ParentFolder : return the parent folder name of the file
Path : Return the full file path(include the file name)
ShortNAme : return the short name of the file
Size : File dimention
Type : return file typeüdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
lappy
őstag
válasz m.zmrzlina #17128 üzenetére
Szerintem a képletek a C1=C2; C2=D2; C3=F3
Bámulatos hol tart már a tudomány!
-
Herczi
senior tag
válasz m.zmrzlina #17159 üzenetére
Köszi, az megoldható valahogy, hogy ne egy másik cellába írja át az eredményt, ha nem az eredetit "javítsa" úgymond?
-
Herczi
senior tag
válasz m.zmrzlina #17161 üzenetére
Azért nem írhatom felül, mert már a kerekítendő szám is egy képlettel jön ki. Ez pl. a B4 cellám: =(0,58*A28), amit fel szeretnék kerekíteni. Nem nagy tragédia amúgy ha nem lehet, ennyit fejben is megtud az ember, inkább csak esztétikai jelentősége lett volna, köszi szépen
-
Herczi
senior tag
válasz m.zmrzlina #17163 üzenetére
Eszméletlen, köszi, örök hála
-
Mutt
aktív tag
válasz m.zmrzlina #17157 üzenetére
Hello,
Ezek a lépések kellenek neked.
1. Hozz létre egy beviteli listát (Active X).
2. A ListFillRange-be add meg a választható listát.
3. A munkalap change eseményéhez add ezt a kódot.
'csak akkor fut, ha az A-oszlopban történik változás
If Target.Column = 1 Then
'beállítjuk hogy a
ComboBox1.LinkedCell = "B" & Target.Row
'beugrunk a beviteli listába
ComboBox1.Activate
End IfEnterhez köthető eseménye nincsen, de pl. ESC-es van ha ez is jó neked, akkor használd ezt a kódot.
Private Sub ComboBox1_LostFocus()
Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Activate
End SubTehát így fogod tudni használni:
1. A-oszlopba írsz vmit.
2. Enter-rel (vagy máshogy) kilépsz a cellából beugrik a beviteli listába.
3. Kiválasztod az értéket, majd nyomsz Esc-et és az A-oszlop első üres sorába kerülsz.Ide felraktam a mintát.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz m.zmrzlina #17163 üzenetére
Hello,
Van még egy rövidebb megoldás is:
=TÖBBSZ.KEREKÍT(A1;2,5)Ezzel az a gond, hogy a kerekítés szabályai szerint a 88.5-nél 87.5-et fog visszadni, mivel ez közelebb van, mint a 90.
Itt van egy másik elvetemült képlet ötletelésnek:
=KEREK.LE(A1;-1)+VÁLASZT(MARADÉK(INT(A1);10)+1;0;2,5;2,5;5;5;5;7,5;7,5;10;10)Az első része (a KEREK.LE) megadja tizes helyiértékre kerekítve a számot (pl. 88,5 -> 80), amelyhez vagy 0-t vagy 2,5-et vagy 5-öt, vagy 7,5-et vagy 10-et adunk attól függően, hogy az egyes helyiérték maradéka mennyi.
A képlet előnye, hogy külön beállítható, hogy mekkora maradéknál mennyit adjuk az első számhoz.üdv.
[ Szerkesztve ]
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 m.zmrzlina #17180 üzenetére
Próbáltad lenullázni a hibakódot a hianyzoport végén on error goto 0-val?
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 m.zmrzlina #17184 üzenetére
Nézd meg ezt a kis makrót, ami az "azonosító" tartalmú cellát keresi meg az aktív lapon.
Sub azonosito_oszlopa()
Dim C As Range
Set C = ActiveSheet.Cells.Find("azonosító")
If Not C Is Nothing Then
MsgBox "Az azonosító mező a(z) " & C.Column & ". oszlopban van"
Else
MsgBox " Az azonosító mező nem található."
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 m.zmrzlina #17189 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
motinka
tag
válasz m.zmrzlina #17209 üzenetére
köszönöm a válaszod és a makrót is, de sajnos valamiért nem működik.
MoTiNka
-
m.zmrzlina
senior tag
válasz m.zmrzlina #17470 üzenetére
Úgy tűnik találtam egy megoldást. (de hogy miért mindig 5 perccel azután, hogy kiposztolom a kérdést)
-
Delila_1
Topikgazda
válasz m.zmrzlina #17474 üzenetére
Range("B1") = Format(Range("A1"), "yyyy.hh.dd.")
A B1 cellába írja az A1 értékét a megadott formában.
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 m.zmrzlina #17477 üzenetére
Gyorsabb vagy, és még egyszerűbb is, amit írtál!
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 m.zmrzlina #17480 üzenetére
És az összejött?
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 m.zmrzlina #17482 üzenetére
Az F oszlopba íratod a dátumnak látszó értéket. A G oszlopba importálással kerülnek a dátum az értékek?
Ezek 1 nappal nagyobbak, mint az azonos sorban lévő F-ek? A G oszlopban szövegesek az értékek?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 m.zmrzlina #17484 üzenetére
Ehhez nem kell a dátumokat átalakítani.
Sub Van_e()
Dim oszlop%
For oszlop% = 6 To 10
If Cells(1, oszlop) <> Cells(oszlop + 1) - 1 Then _
MsgBox "Hiányzik a(z) " & Cells(1, oszlop) + 1 & " dátum."
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.
-
Barcley
csendes tag
válasz m.zmrzlina #17477 üzenetére
Köszönöm mindkettőtök válaszát!
Az első verzió vált be. Működik. Nem értem így már én is próbáltam de biztos valami stilisztikai hibát követtem el.
Delila válaszát itt azért nem tudom használni, mert a figyelt képlet nagyon sok cella változásától függ, de köszönöm!
Üdv. -
Delila_1
Topikgazda
válasz m.zmrzlina #17488 üzenetére
Mert ebben feltételeztem, hogy nem alakítod át a dátumokat szöveggé. Írtam is, hogy nincs szükség a konvertálásra.
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 m.zmrzlina #17491 üzenetére
Nem tudod felcserélni a sorrendet? Először a cellákba viszed be a dátumokat, utána alkotsz belőlük lapneveket, majd sorba rakod a lapokat. Ezután jöhet az ellenőrzés.
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 m.zmrzlina #17491 üzenetére
Lapnévből dátum a cellákba:
Sub mm()
Dim lap As Integer
For lap = 2 To 3
Sheets(1).Cells(lap, 1) = CDate(Sheets(lap).Name)
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 m.zmrzlina #17495 üzeneté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 m.zmrzlina #17511 üzenetére
Második kör, felhasználva a makródat.
Sub szamol()
Set ter = Application.InputBox("Jelöld ki a terület:", "Terület bekérése", Type:=8)
For i = 1 To 30
For Each cella In ter
If cella.Value = i Then
mennyi = mennyi + 1
End If
Next
Cells(1, 22) = "Szám": Cells(1, 23) = "Darabszám"
Cells(i + 1, 22) = i
Cells(i + 1, 23) = mennyi
mennyi = 0
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 m.zmrzlina #17513 üzenetére
Nem hekk, hukk!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
m.zmrzlina
senior tag
válasz m.zmrzlina #17537 üzenetére
Hát persze hogy elírtam. Egy zárójel elfelejtődött bezáródni.
=HA(HIBÁS(FKERES(I20;J20:K23;2;1));"";FKERES(I20;J20:K23;2;1))
[ Szerkesztve ]
-
Mutt
aktív tag
válasz m.zmrzlina #17484 üzenetére
Hello,
Azt szeretném a makróval, hogy jelezze, hogy a fenti példánál pl febr 23.-a hiányzik...
Makrós megoldás már jött rá, de hadd mutassak be egy nem makrósat. Persze vannak hátrányai, de okulásra tökéletes lehet.
A képen látható, hogy a dátumok a B1-től kezdve vannak felsorolva, AB1-ig mennek és csak 1 dátum hiányzik most, mégpedig február 7-e (sárgával jelöltem). Két megoldás is van, az első a SZORZATÖSSZEG jól műkődik, ha csak 1 db nap hiányzik. A CSE már több nap esetén is jó, ilyenkor az első hiányzót adja vissza.
Nézzük őket:
=ELTOLÁS(AB1;0;-SZORZATÖSSZEG((NAP(B1:AB1)-(OSZLOP(B1:AB1)-1))))+1
- Itt a lényeg SZORZATÖSSZEG-ben van, amely úgy múkődik hogy megnézi a cellában (pl Q1) lévő dátum napját (pl. 2013.02.17 -> 17) és hogy ez a cella hanyadik oszlopban van (OSZLOP(Q1) -> 17) és a kettőt kivonja egymásból.
- Ha a napok egymást követik, akkor a nap száma és az oszlop száma egyezik, különbségük 0 lesz; de ha hiányzik egy nap akkor már 1-et fogunk kapni különbségnek. (Mivel az adatok nem az első oszlopból indulnak (ott most a komment van), ezért 1-et kivonok az oszlopszámából, így kapok B oszlopra 1-et, C-re 2-t stb.)
- Tehát a SZORZATÖSSZEG((NAP(B1:AB1)-(OSZLOP(B1:AB1)-1))) pl. ilyen eredményt fog adni {0;0;0;0;0;0;1;1;1;1;1....}. Ami azt jelenti hogy az első 6 nap okés, de a 7-nél csúszás van. A SZORZATÖSSZEG ezeket az 1-eket össze fogja adni, és megkapod, hogy hány napnál nem egyezett a napszám és az oszlopszám.
- Ennek ismeretében már könnyedén ki lehet választani az ELTOLÁS (OFSZET) függvénnyel, hogy melyik nap csúszott el, egyszerűen csak a napok listájának végéről (az AB1 esetemben) a SZORZATÖSSZEG szerint megadottszor kell visszamenni. Ehhez -1-el megszoroztam a SZORZATÖSSZEG eredményét,
- Így megkapjuk, hogy az utolsó jó nap február 6-a volt vagyis +1 nappal később van a bibi.A másik képlet csúnyább, de kezeli azt az esetet ha több nap is hiányzik a listából:
{=ABS(MIN(HA((NAP(B1:AB1)-(OSZLOP(B1:AB1)-1))*(OSZLOP(B1:AB1)-1)<>0;(NAP(B1:AB1)-(OSZLOP(B1:AB1)-1))*(OSZLOP(B1:AB1)-1))))}
- Itt a lényeg ugyanaz mint előbb volt, vagyis keressük azokat az eseteket ahol NAP(cella) és OSZLOP(cella) nem egyenlő.
- Valójában azonban itt a különbséget megszorzom az aktuális nap helyével, tehát nem 0 és 1-ek lesznek, hanem 0 és a megfelelő napok száma, pl. {0;0;0;0;0;0;7;8;9;10; stb}.
- A végén ebből a listából már csak a 0-nál nagyobb legkisebb számot kell kiválasztani, erre van a HA és a <>0 közötti rész.
- A képlet eredmény az a nap száma, amelyik hiányzik.
- Mivel se a NAP, se az OSZLOP, sem az ABS függvények nem kezelnek tartományokat, ezért CSE-ként kell felvinni.üdv.
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Melorin
addikt
válasz m.zmrzlina #17537 üzenetére
Köszönöm, ez hasznos volt, főleg az cella üressé tétele
-
Dr. Student
senior tag
-
Delila_1
Topikgazda
válasz m.zmrzlina #17595 üzenetére
Nem biztos, de valószínűleg így kell megadnod a területet:
Range(Selection)Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
elmouse
aktív tag
válasz m.zmrzlina #17661 üzenetére
Ez az! Köszönöm!
Én is valami ilyennel próbálkoztam, csak a macskakörmök helyével nem voltam tisztában.
Még egyszer köszi!Ka nama kaa lajerama!
-
wjani
tag
válasz m.zmrzlina #17655 üzenetére
Szia!
Létezik egy olyan makró utasítás ami az ActiveWorkbook.Path nevet viseli.
Ezzel a saját mappájában tudsz hivatkozni, vagy ehhez a mappához tudod viszonyítani.Üdv.
Wjani
CoViA Online könyvkereskedés,