-
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
-
Fferi50
őstag
válasz Nowitzki #32075 üzenetére
Szia!
Bocs, egyrészt elírás is volt a képletben, mert Sheet1 helyett több helyen Sheet2 szerepelt, másrészt a képlet csak akkor ad helyes eredményt, ha azonos dbszám fordul elő minden tételből. Mea culpa.
Viszont a minta alapján egy lehetséges megoldás, amihez annyi szükséges - remélem megoldható -, hogy a Sheet1 munkalap adatai rendezve legyenek 1. szint termék, 2. szint dátum, 3. szint mennyiség (azaz D, L és K oszlop) szerint.
Ezután egy segédoszlopba beirod a következő képletet: (én az M oszlopba írtam, de gondolom ott lehetnek még adatok:
=HA(ÉS(D2=D1;K2=K1;L2=L1);0;HA(ÉS(D2=T(Sheet2!$A$35);L2>=Sheet2!$B$34;L2<=Sheet2!$C$34);K2;0))
Ez megy az M2 cellába, majd végig, ameddig adatok vannak.A Sheet2 munkalap A35 cellájába kerül a termék kód - itt vigyázni kell, mert a szám-szöveg ellentmondás bekavarhat - ha szövegként van a termék kódja a Sheet1 munkalapon, ide is szövegként kell bevinni.
A képlet a B5 cellába:
=SZUM(Sheet1!M:M)Ha változtatod a termék kódot, vagy a dátumot, természetesen változik az eredmény is.
Próbálok még vele ügyeskedni, de szerintem már ez is használható.
Üdv.
-
Fferi50
őstag
válasz dajkapeter #32095 üzenetére
Szia!
Ha nem a tartomány első oszlopában kívánsz keresni, illetve a céloszlop előrébb van, mint ahol a keresés tárgya, akkor az INDEX - HOL.VAN függvény párost lehet használni, nem kell megvátoztatni az oszlopok helyzetét, Pl:
=INDEX(A:D;HOL.VAN(Keresem;C:C;0);2)
a B oszlopból írja ki azt az értéket, ami a C oszlopban keresett értékkel egy sorban van.Üdv.
-
Fferi50
őstag
válasz Ded&Dad #32102 üzenetére
Szia!
"de bármit írtam a textboxokhoz nem akarta nekem kidobni a többi infót"
Valóban jó lenne látni, hogy mit sikerült eddig összehoznod, mivel többféle megoldás is lehetséges.
A textboxot hozzá lehet kötni cellához, akkor onnan veszi az értéket, de közvetlenül is lehet bele írni makróval - attól függ, milyen tipusú vezérlőt használsz.Üdv.
-
Fferi50
őstag
válasz Mittu88 #32128 üzenetére
Szia!
Thisworkbook.Worksheets("mlapnév").HpageBreak.Add "Adott cella" helyett
Thisworkbook.Worksheets("mlapnév").HpageBreakS.Add "Adott cella"
Az "Adott cella" egy Range objektum pl. worksheets("mlapnev").Range("A56") legyen.
A másik verzió pedig azért hibás, mert a Location objektum, ezért set és = formában kell értéket adni neki.
Set Thisworkbook.worksheets("mlapnév").HpageBreak(1).Location = "Adott cella"
Továbbá csak akkor működik, ha oldaltörés nézetben vagy.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
Szia!
Sajnos ezt csak úgy tudod megoldani, ha minden alakzathoz rendelsz egy makrót, ami alapján fogod tudni az adott alakzat nevét.
A közös makrót pedig a névvel paraméterezve hívod meg.
Pl.Sub makro_teglalap1
makro_kozos "teglalap1"
End Sub
Sub makro_kozos(ByVal neve As String)
Select Case neve
Case Is = "teglalap1"
'ide jön amit csinálnia kell
Case Is = "valami mas........"
'ide jön amit csinálnia kell
End Select
End SubAz egyenkénti makrót egyszer megírod, utána másolod és változtatod benne a neveket.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz bteebi #32157 üzenetére
Szia!
Szerintem a dir() paranccsal végig tudsz menni az összes fájlon.
file=Dir("D:\Proba\lista_" & datum & "*.pdf"
do while file<>""
lista=lista & "," & file
file=dir()
loop
A listát használhatod egy cella érvényesítéséhez, amiből kiválasztható amelyiket meg kell nyitni, vagy csinálhatsz egy drop-down-t a munkalapon, aminek a forrása a lista.Ezen kívül lehet még olyan, hogy a FileDateTime(file) függvénnyel lekérdezed az adott fájl dátumát és a legfrissebbet kiválasztod megnyitásra.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz Pikkolo^^ #32160 üzenetére
Szia!
Igen, meg kell nyitnod hozzá a Word alkalmazást az Excel makróban, abba kreálni egy új dokumentumot és az Excel tartalmat belemásolod.
Sub wordos()
Dim wrd As Object, wd As Document
Set wrd = CreateObject("word.application") 'Word nyit
wrd.Visible = True
Set wd = wrd.documents.Add 'új dokumentumot nyit
ActiveSheet.UsedRange.Copy 'kijelölöd a másolandó területet (pl. Range("A1:F25")
wrd.Selection.Paste 'ha képként szeretnéd beilleszteni, akkor PasteSpecial, paraméterekkel HELP segít
wrd.Activate
wd.Save 'itt meg kell adnod, hogy milyen néven mented
wrd.Quit ' Word bezár
End SubFigyelem! A makró futtatása előtt a VBA ablak Tools Menüjében a References menüpontban be kell jelölnöd a megfelelő Microsoft Word könyvtárat!!! (pl. 2016-os nál Microsoft Word 16.0 Object Library).
Üdv.
-
Fferi50
őstag
válasz Mittu88 #32176 üzenetére
Szia!
Nem oka a hibának szerintem, de felesleges az Err változót definiálnod, mivel az rendszer függvény, ami az ErrObjectet adja vissza - alapértelmezett tulajdonsága a Number.
Talán az lehet a probléma, hogy sok időbe telik megtalálnia a fájlt a hálózaton, esetleg érdemes lenne megpróbálni, hogy előtte arra a könyvtárra ugrassz a makróban a chdir paranccsal.
A Type Mismatch hibát a wb változódra írja ki?
Üdv.
-
Fferi50
őstag
válasz Mittu88 #32179 üzenetére
Szia!
Sajnos csak tippelgetek (mint anno a rabbi a juhoknál ).
Milyen tartalma van annak a fájlnak, amiből megnyitod a másikat? Nem lehet, hogy nagy munkalap aktív éppen benne?
(Nekem volt olyan problémám régebben, hogy diagram makrós beszúrásánál nem adta hozzá a címet meg még egy-két dolgot makró futáskor, ha lépésenként futtattam, akkor viszont nem jött elő a hiba... Hosszú idő után az derült ki, hogy egy nagyon sok adatot tartalmazó munkalap után próbáltam beszúrni a diagramot és ez vitte "tévútra" a folyamatos futású makrót - valami miatt az aktív munkalapról akart adatot rakni a diagramba beszúráskor. Amint egy kis adattartalmú munkalap volt aktív, ez a probléma megszűnt.!)Nem tudom, hogy munkafüzet nyitáskor ilyen okozhat-e problémát.
Talán meg kellene próbálni egy teljesen üres, csak a makrókat (+ egy munkalap) tartalmazó munkafüzettel futtatni.Üdv.
-
Fferi50
őstag
válasz Mittu88 #32182 üzenetére
Szia!
Nem tudom, hogy az Office újratelepítés segíthet-e. Erre mondják, hogy próba-szerencse. De az általad linkelt problémát sem oldották meg....
Valószínűleg a gép memóriája "zavarodik meg" időnként, ezért írja a típushibát. A parancsgombok is okozhatják - milyen típusúak? ActiveX vagy Munkalap vezérlők?Helyette inkább javasolnám a Ribbonra feltenni saját menüként - ha szeretnéd, tudok benne segíteni - a Custom UI programmal lehet megoldani.
Üdv.
Ui: csak estefelé leszek elérhető újra.
-
Fferi50
őstag
válasz Bjørgersson #32198 üzenetére
Szia!
Próbáltam, de úgy pl. a 11:00-ból 0,46-ot kapok.
Ami teljes mértékben egyezik is az Excel dátum/idő tárolási szabályaival, ami a következő: A dátumot/időt az Excel számként tárolja, az egész rész a dátumszámolás kezdetétől eltelt napokat jelenti, a törtrész pedig a napon belüli időt 24 órás napra vetítve.
Tehát az előző hsz-ban helyesen tetted, hogy az időt (azaz a törtrészt) megszoroztad 24-gyel. Arra viszont figyelni kell, ha napok is vannak, akkor (is) csak a törtrészt szabad szorozni (kivéve, ha a napokat is órákká szeretnéd alakítani)!Üdv.
-
Fferi50
őstag
válasz b3n1t0 #32226 üzenetére
Szia!
A következő makró egy új munkalapra kibontja a sorokat, úgy hogy minden új sor után tesz egy üres sort, illetve a legelső sorba beírja az eredeti értékeket - ezt a sort el tudod hagyni, ha kitörlöd, nem okoz semmi problémát, megjegyzésben mellé írtam.
Sub kibonto()
Dim rngalap As Range, rngdatum As Range, wsh1 As Worksheet, wsh2 As Worksheet, xx As Integer, sor As Range, cl As Range
Set wsh1 = ActiveSheet
Set rngalap = Intersect(wsh1.UsedRange, wsh1.UsedRange.Parent.Columns("K:AH"))
Set wsh2 = Worksheets.Add(after:=Sheets(ActiveSheet.Name))
xx = 1
For Each sor In rngalap.Rows
sor.Copy Destination:=wsh2.Cells(xx, "K") ' ez az eredeti értéket tartalmazza, ha nincs rá szükséged akkor kitörölheted a következő sorral együtt
xx = xx + 1
Set rngdatum = wsh1.Range("AJ" & sor.Row & ":AQ" & sor.Row)
For Each cl In rngdatum.Cells
If IsEmpty(cl) Then Exit For
wsh2.Cells(xx, "K").Value = sor.Cells(1) + cl.Value
Range(wsh2.Cells(xx, "L"), wsh2.Cells(xx, "O")).Value = Range(sor.Cells(2), sor.Cells(5)).Value
Range(wsh2.Cells(xx, "P"), wsh2.Cells(xx, "AH")).Formula = "=int(" & sor.Cells(6).Address(external:=True, columnabsolute:=False) & "*" & cl.Offset(0, 8).Address(external:=True, rowabsolute:=True, columnabsolute:=True) & "/ 100)"
Range(wsh2.Cells(xx, "P"), wsh2.Cells(xx, "AH")).Value = Range(wsh2.Cells(xx, "P"), wsh2.Cells(xx, "AH")).Value
xx = xx + 1
Next
xx = xx + 1
Next
End SubÜdv.
-
Fferi50
őstag
válasz Mexildos #32229 üzenetére
Szia!
Ezt a képletet próbáld meg ugyanazon táblában. Utána az eredményt átmásolhatod értékként, ahova szeretnéd.
A képlet tömbképlet, tehát Ctrl+Shift + Enter billentyűk egyidejű lenyomásával viheted be, az Excel kapcsos zárójelbe teszi majd.=BAL(A1;MAX((KÖZÉP(A1;SOR(A1:A100)-(SOR()-1);1)=" ")*SOR(A1:A100)-(SOR()-1)))
Az adott cím az A1 cellában van, az A1:A100-ban nem számít, hogy mi van, csak a sor számára van szüksége a képletnek, viszont legalább olyan nagy legyen a vége, ahány betű előfordulhat a nevekben.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
Szia!
Mi a kérdés? Egy adott - feltételes formázású munkalapról adatokat másolnál egy másik munkafüzetbe és szeretnéd, ha a feltételes formázással megadott színekkel kerülne át (ott már nyilván a feltételes formázás nem érvényesülhet, hiszen az másik munkafüzet másik adatai alapján keletkezik.)?
Üdv.
-
Fferi50
őstag
Szia!
Excel 2010-es verziója óta elérhető a cellák tényleges színe, ezt be lehet állítani az elküldendő munkalapon, makróval:
Sub szines()
Dim wshuj As Worksheet, rngregi As Range, cl As Range
Set rngregi = Workbooks("eredeti").Sheets("eredeti").Munka1.UsedRange.SpecialCells(xlCellTypeAllFormatConditions) ' ide helyettesítsd be a forrás munkalap elérési útját
Set wshuj = Workbooks("uj").Sheets("uj") ' ide pedig az új munkalapét
For Each cl In rngregi.Cells
wshuj.Range(cl.Address).Interior.Color = cl.DisplayFormat.Interior.Color
Next
End SubElőször átmásolod az új munkalapra az adatokat értékként, formázva, majd lefuttatod a makrót.
Ha nem csak szinezés van, hanem mást is állítasz, akkor a DisplayFormat megfelelő tulajdonságait kell az adott cellához "átmásolni'. (pl. font.color, font.size stb.)
Üdv.
-
Fferi50
őstag
válasz DeFranco #32252 üzenetére
Szia!
A ciklusok, pláne ennyi egymásba ágyazva, bizony lassúak.
Javaslom, hogy az állapotsorba írasd ki, hogy hol jár a program (Application.Statusbar=" itt járok"),
illetve a ciklusokba tedd be a DoEvents utasítást valahova, ennek eredményeként meg tudod állítani a program futását a Ctrl+Break billentyűvel. Egyébként sajnos képes teljesen "lefagyást" produkálni.Üdv.
-
Fferi50
őstag
válasz Sprite75 #32380 üzenetére
Szia!
Sajnos, amint makró módosítja egy cella tartalmát, azonnal "elvész" a visszavonási automatizmus az Excelben... gondolom azért, mert 2 különböző módszerű eljárásról van szó.
Elvileg nem lehetetlen a változtatások nyomon követése makróban és ehhez kapcsolódóan saját makrót írni a visszavonásra - saját parancsgombbal ill. billentyű kombinációval - de most sajna nincs energiám hozzá, hogy belefogjak. Hátha valakinek van már ilyen megoldása korábbról vagy talonban.Üdv.
-
Fferi50
őstag
válasz Sprite75 #32384 üzenetére
Szia!
A Worsheet_SelectionChange eseménykezelőbe az End Sub előtti End With elé írd be
.Activate
Ezután használhatod ezt az eseménykezelést:Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range, ujertek As Integer
Set KeyCells = Range("C4:AY108") ' ez a vizsgálandó terület
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
ujertek = Target.Value
Application.EnableEvents = False
Application.Undo 'visszaállítjuk a változás előtti értéket
If Target.Value >= 1 And Target.Value <= 300 Then 'ha a régi érték jó
MsgBox "A(z) " & Target.Address(rowabsolute:=False, columnabsolute:=False) & " cella már tartalmazott egy helyes értéket: " & Target.Value, vbCritical, "Ellenőrzés"
Else
If ujertek < 1 Or ujertek > 300 Then 'ha a beírt új érték nem jó
MsgBox "Ez az érték nem felel meg a követelményeknek: " & ujertek, vbCritical, "Ellenőrzés"
Else
Target.Value = ujertek
End If
End If
Application.EnableEvents = True
End If
End Sub
Szépséghibája, hogy nem áll vissza arra a cellára, amelyikbe az értéket írták be, hanem mindig abba az irányba "ugrik", amerre a cellából kiléptek (hiszen többféle módon - pl. enter,tab, nyíl billentyűk - is el lehet hagyni a cellát).Üdv.
-
Fferi50
őstag
válasz Sprite75 #32397 üzenetére
Szia!
Íme a makró:
Ellenőrzi, hogy ne szöveg legyen beírva, érvényes legyen a számérték amit beírtak, illetve rákérdez, hogy felülírható-e az egyszer már bevitt számérték. Beírja az utolsó módosítás időpontját az AZ oszlopba (tehát, ha sikeres az új érték beírása a cellába, akkor ír időpontot az AZ oszlopba, egyébként nem).Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range, ujertek As Integer
Set KeyCells = Range("C4:AY108") ' ez a vizsgálandó terület
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
Application.EnableEvents = False
If Not IsNumeric(Target.Value) Then
MsgBox "Nem számot írtál be, kérlek javitsd ki!", vbCritical, "Ellenőrzés"
With Application
.Undo
.EnableEvents = True
End With
Exit Sub
End If
If Target.Value < 0 Or Target.Value > 300 Then
MsgBox "Ez az érték nem felel meg a követelményeknek: " & Target.Value, vbCritical, "Ellenőrzés"
With Application
.Undo
.EnableEvents = True
End With
Exit Sub
End If
ujertek = Target.Value
Application.Undo 'visszaállítjuk a változás előtti értéket
If Target.Value >= 1 And Target.Value <= 300 Then 'ha a régi érték jó
If MsgBox("A(z) " & Target.Address(rowabsolute:=False, columnabsolute:=False) & " cella már tartalmazott egy helyes értéket: " & Target.Value & vbLf & "Kicseréli erre: " & ujertek, vbYesNo, "Ellenőrzés") = vbYes Then
Target.Value = ujertek
End If
Else
Target.Value = ujertek
End If
Cells(Target.Row, 52).Value = Time
Application.EnableEvents = True
End If
End SubÜdv.
-
Fferi50
őstag
válasz thomas50.000 #32437 üzenetére
Szia!
Egyezésnél ilyen lehetőség nincs, viszont használlhatod a SZÖVEG.KERES vagy SZÖVEG.TALÁL függvényt szerintem, ahol van joker karakter lehetőség is.
Üdv.
-
Fferi50
őstag
válasz RedHarlow #32466 üzenetére
Szia!
A cella tartalmához ugyanúgy hozzáfűzheted a táblázat kódot is. Ha 3 sorod van egy cellában, akkor elejére <tr> végére </tr>.
Ha egy-egy "táblázat sor" van benne, akkor minden "első" (hárommal osztva maradék 1) elejére teszed a <tr> és minden harmadik (hárommal osztva 0) végére teszed a </tr>.Pl az F oszlopban, ha az adataid az első sorban kezdődnek, a képlet:
=ha(maradék(sor();3)=1;"<tr>";"") & E1 & Ha(maradék(sor();3)=0;"</tr>";"")Ha nem az első sorban kezdődnek a tételek, akkor a maradék kalkulációt kell hozzáigazítanod.
Üdv.
-
Fferi50
őstag
válasz blountex #32489 üzenetére
Szia!
A második kérdésedre:
Ha jól gondolom, akkor az adott oszlopban szereplő számokat szorozni kell az oszlop első (x-edik) sorában megadott értékkel és összeadni.
Erre két lehetőség is van: (ha a szorzók az első sorban, a számok a B:D oszlopban vannak, eredmény az A oszlopban)
Képlet A2 cellába:
=$B$1*$B2+$C$1*$C2+$D$1*$D2
Majd ezt végighúzod az A oszlopon.
Vagy:
=Szorzatösszeg($B$1:$D$1;$B2:$D2)
Ezt húzod végig az A oszlopon.Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz zoli1962 #32503 üzenetére
Szia!
Nem tudom, megfelel-e így, de a MA() függvény pontosan ezt teszi. Egyszer beírod, majd lehúzod a beírt számok mellé. Nap végén kijelölöd az egész adatsort - másolás - irányított beillesztés értéket, így rögzíted az értéket és másnapra nem fog megváltozni.
Makróval:
A munkalap kódlapjára:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column=1 Then
Application.EnableEvents = False
Target.Offset(0,1).Value=Date()
Application.EnableEvents = True
End If
End SubÜdv.
-
Fferi50
őstag
válasz customer114 #32535 üzenetére
Szia!
A szabály:
=HAHIBA(SZÖVEG.KERES("x";$B1);0)+(MAX($C$1;$C$2)=$C1)>1Ez csak akkor színez, ha B1,B2 cellában is előfordul az x.
A Max függvényt páronként kell beírnod, abszolút ($) címmel, mert egyébként mindig a 2 egymás után következő cellát nézné a C oszlopban.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz customer114 #32541 üzenetére
Szia!
A példádból úgy látom, hogy a feladat az egymást követő X-eket tartalmazó B cellák mellé kell kiválasztani a C oszlopban levő legnagyobb számot.
Most értem vissza, kicsit gondolkodni kell rajta...
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz customer114 #32543 üzenetére
Szia!
A probléma 2 vagy 3 segédoszlop hozzáadásával valósítható meg:
Három segédoszlop esetén:
Az első cellák képlete:
F oszlop:=HAHIBA(SZÖVEG.KERES("X";B1)>0;0)*1*(HA(G1>0;MAX(INDIREKT("C"&G1&":C"&H1));0)=C1)*1
G oszlop:=HAHIBA(SZÖVEG.KERES("X";B1)>0;0)*1*SOR()
H oszlop:=HA(G1>0;HAHIBA(HOL.VAN(0;$G1:$G$21;0)+SOR()-2;0);0)
A G oszlop 2. cellájának képlete:=HA(HAHIBA(SZÖVEG.KERES("X";B2)>0;0)*1*SOR()=SOR();HA(G1>0;G1;SOR());0)
A H oszlop képletében a $G$21 címnél kell vigyázni, ide az összes adatsornál legalább egy sorral nagyobb számot kell írni a helyes működéshez.
Az F és H oszlop képletei a 2. sortól, a G oszlop képlete a 3. cellától lehúzható.
Ezek után a feltételes formázás képlete a D oszlopra:
=F1=1A feltételes formázás működik akkor is, ha az F oszlop képletét a feltételes formázás képletéhez írod be a következőképpen:
=HAHIBA(SZÖVEG.KERES("X";B1)>0;0)*1*(HA(G1>0;MAX(INDIREKT("C"&G1&":C"&H1));0)=C1)*1=1
Így egy segédoszlop megspórolható , cserébe a formázási képlet lesz bonyolultabb.A képen a D és E oszlop is formázva van, az egyik a rövid, a másik a hosszú képlettel.
Remélem, érthető és használható is.[ Szerkesztve ]
-
Fferi50
őstag
Szia!
Közben meglett a HELP-ből Alt + De az igaz, hogy csak akkor látod, ha beállítottad a sortöréssel több sorba tulajdonságot.
Nekem úgy sikerült, hogy először beírtam a cellába a szöveget képletként:
="Első sor" & Karakter(10) & "Második sor"
Majd másolás, irányított beillesztés - értéket.
A sortörés csak úgy érvényesül, ha beállítod a cellaformázásban, hogy sortöréssel több sorba.Az így előállított sortörést ki tudod másolni (csak egy karakter!), utána be lehet szúrni a többi cellába a megfelelő helyre, úgy már működik anélkül, hogy képletet tennél bele.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz thomas50.000 #32557 üzenetére
Szia!
A formátumkód: #0":"# helyett: #0":"0
A # csak akkor ír számjegyet, ha nem 0 az érték, a 0 minden esetben megjelenik,
Üdv.
-
Fferi50
őstag
válasz Kalogenius #32570 üzenetére
Szia!
Ha a B1 cellába beírsz egy =DARABTELI(A:A;A1) >1 képletet és ezt végighúzod az oszlopon, megláthatod, hogy mely nevek szerepelnek egynél többször. Ez persze csak akkor igazán jó, ha a két névsorban külön-külön nincsenek azonos nevek. Ha viszont a >1 hasonlítást elhagyod a végéről, akkor számra szűréssel megnézheted, mely nevek ismétlődhetnek az egyes névsorokban.
Üdv.
-
Fferi50
őstag
Szia!
"a Match-ben a Lookup_array Range-re tudok valahogy dinamikusan hivatkozni, mint ahogy a Lookup_value-nál tettem?"
Természetesen, pl. változóként definiálod az adott területet és azt írod be:
Dim kereshely as Rangeset kereshely=Range("N:N")
hol = Application.Match(Cells(sor, "A") & Cells(sor, "B"),kereshely, 0)
A tartomány beállítását pedig szerintem már meg tudod oldani.Üdv.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- World of Warcraft Shadowlands Collectors edition EU EN
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Steames kulcsok jó áron eladóak!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen