- Honor 200 Pro - mobilportré
- Fotók, videók mobillal
- iPhone topik
- 45 wattos vezeték nélküli töltés jön az új iPhone-ba
- VoLTE/VoWiFi
- Bemutatkozott a Poco X7 és X7 Pro
- Milyen okostelefont vegyek?
- Xiaomi 14T Pro - teljes a család?
- Honor Magic6 Pro - kör közepén számok
- Android alkalmazások - szoftver kibeszélő topik
-
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
-
VGYke
addikt
válasz
Delila_1
#13120
üzenetére
lapa Delila_1, köszönöm! Bennem van a hiba, nem fogalmaztam meg a kérdésem világosan.
Tehát függetlenül az exceltől (bár onnan származnak az adatok, de immár ez lényegtelen), van egy T(i)=értékeket tartalmazó adathalmazom, ahol i=1-től véges egészig tart.
Pl. T(i1)=5, T(i2)=3, T(i3)=6, T(i4)=5, T(i5)=3, T(i6)=100, T(i7)=5, T(i8)=9
Helyes sorrend: T(i1)=5, T(i2)=3, T(i3)=6, T(i4)=100, T(i5)=9.
Tehát VB-ben, erre keresnék egy egyszerű for-next, while-wend, mit tudom én ciklust, mert ahogy én megírtam az nevetséges. -
lapa
veterán
válasz
Delila_1
#13005
üzenetére
csak egy megjegyzés, mert láttam az oldal tetején és nemrég volt hasonlóm: én óvakodnék az ékezetektől meg spec magyar karakterektől minden szinten. jelenleg csak sejtésünk van róla, hogy nálunk egy egész komoly access program pölö ilyenek miatt nem működik bizonyos accessekben, más accessekben meg igen (az access verziók és nyelvek kb random működnek vagy nem - van hogy tökugyanaz az access verzió másik gépen elhal meg ilyenek, és nem szeku vagy trust beállítás).
persze lehet, hogy soha semmi baj nincs belőle, de ténykérdés, hogy ezek angolra vannak hitelesítve, jobb szárazon tartani a puskaport.
-
-
poffsoft
veterán
válasz
Delila_1
#13011
üzenetére
Megoldottam a magyar képletek angolra konvertálását.
Nem elegáns, de működik :
(a feltételes formázás passziválását is lassan megoldom)
Public Function ToI(ByVal SStr As String) As String
'
' Formula To International Makró
' By poffsoft
' 2012.02.26.
'
ActiveWorkbook.Excel4IntlMacroSheets(1).Range("A1").FormulaLocal = SStr
ToI = ActiveWorkbook.Excel4IntlMacroSheets(1).Range("A1").Formula
End Function1 darab "nemzetközi makrólap" beszúrása kell a munkafüzetbe, annak egyetlen celláját használjuk...
SStr pedig a :
ActiveWorkbook.Sheets(SourceSheetIndex).Range(SourceCell.Address).Formulamegj.: Amíg az Excel4IntlMacroSheets(1) - re a nevével hivatkoztam, valamint amíg az ActiveWorkbook -ot nem szúrtam elé, nem működött
Viszont a mai kérdésem:Hogyan lehet azt figyelni, hogy az aktív cellában szerkesztették a megjegyzést?
Konkrétan azt kellene csinálni, hogy ha szerkeszti valaki a megjegyzést, a megjegyzés utolsó sorát kellene az aktuális dátumra cserélni ami elvileg igy néz ki:
"Modified: 2012.02.27." -
VGYke
addikt
válasz
Delila_1
#12973
üzenetére
Ismét köszönöm!
Most olyan "problémába" ütköztem, hogy írtam egy primitív makrót, ami nem csinál mást, mint a Lap nevű munkalapról, a makró indításának helyén lévő munkalapra másol adatokat. Na jó, van benne minimális képletezés is, itt, ott.
Sub Kitolt()
Lap = "Lekérdezés"
smax = Sheets(Lap).UsedRange.Rows.Count
For L = 1 To smax - 1
Cells(L + 1, 1) = Sheets(Lap).Cells(L, 1)
szla = Sheets(Lap).Cells(L, 2)
b = Left(szla, 8) + "-" + Mid(szla, 9, 8) + "-" + Mid(szla, 17, 8)
Cells(L + 1, 2) = b
'......hasonló 8. oszlopig
Next L
End Sub
Van 8 kitöltendő oszlop és jelenleg 850 sor. A makró kb. 4-5 perc alatt fut le, 50% proci terhelés mellett, pedig nem annyira gagyi a gép. Ez így normális és ilyen feladatot ne makróval, hanem excel képletekkel oldjak meg? -
WGW
csendes tag
válasz
Delila_1
#12980
üzenetére
Sajnos bonyolultabb...
Mindig más és más szűrési feladatot kell elvégezni. Az egyik munkalapon kellene pl. legördülő választéklistákból beállítani a szempontokat és majd eszerint kellene, hogy önállóan létrehozza az adott munkalapon a szűrést.
(Plusz ugye új beállításoknál felül kell írnia az előző szűrést is maradéktalanul.) -
-
bazsi83vp
senior tag
-
Zenebohoc
tag
válasz
Delila_1
#12927
üzenetére
Szia!
Nagyon szépen köszönöm gyors válaszod és segítséged.
A Tartalomjegyzéket létrehozó rutin problémamentesen működik.
Az elrejtő esetében csak a a fájlhoz tudtam a rutint rendelni (Excel 2003).
Annak egy lapjához nem.
Bemásoltam rutinodat.
A tanácsot Rem mögé rejtettem
Sub Megjelenit()
Rem A következő makrót a Tartalomjegyzék laphoz rendeld, ez figyeli a G1 cella változását.
Futtatáskor ebbe a sorba kér egy End Sub-t
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$1" Then Rejt Target.Value
End Sub
Persze a 3. rutint is bemásoltamIsmét hála és köszönet.
-
#12887
Fire/SOUL/CD
félisten
Delila_1
#12886
-
#12885
Fire/SOUL/CD
félisten
Delila_1
#12884
-
poffsoft
veterán
válasz
Delila_1
#12877
üzenetére
Szerintem a 'Számolás'!F2:F9 range-t akarja a "Cégek" következő üres sorába transzponálni, így a kódod picit változik:
Sub masol()
Sheets.("Számol").Range("F1:F9").Copy
Sheets("Cégek").Activate
usor = ActiveSheet.UsedRange.Rows.Count
uoszlop = ActiveSheet.UsedRange.Columns.Count
' szerintem a használt oszlopok száma nem kell...
Cells(usor + 1, 1).Activate
Selection.PasteSpecial Paste:=xlValues , Transpose:=True
End SubHa jól értettem....
Mondjuk az a range("A65536").end().offset()-et nem egészen értem...
Vagyis értem, de bonyolultnak tűnik. -
poffsoft
veterán
válasz
Delila_1
#12868
üzenetére
Akkor nem tudom, mit csináltam rosszul.
A formátum másolásra pedig rosszul kérdeztem rá azt hiszem:
A formatconditions(2). properties-t szeretném egy másik cellának (vagy ugyanannak) a fix formátumaként beállítani
vagyis pl a range("A1").formatconditions(2).font/pattern/border/color -t kellene a range("A'").font/pattern/border/color -ba másolni. Egyszerűen, nem az összes elemet felsorolgatva (mert most csak ezt az utat találtam meg) -
#12878
exceltanulo
csendes tag
Delila_1
#12870
exceltanulo
csendes tag
válasz
Delila_1
#12870
üzenetére
Szia Delila_1! Megcsináltam az alapján amit belinkeltél és működik (részben). Lehetséges, hogy csak akkor hozza be a link az adatot, ha meg van nyitva az a fájl is ahonnan az adat származik? Mert nálam ez a helyzet. Ha nincs megnyitva hibát ír, ha megnyitom jön az adat. Köszönöm!
-
Cufter
tag
válasz
Delila_1
#12874
üzenetére
Közben sikerült ennyit összeszedni:
Sub masol()
Sheets("Számolás").Range("F2
9").Copy
Sheets("Cégek").Activate
Range("a65536").End(xlUp).Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Application.CutCopyMode = False
Sheets("Számolás").Activate
Range("a1").Select
End SubEz már a fix cellákat és az értékeket másolja, így az megoldva.
Már csak tényleg az hiányzik, hogy az értékeket(4db cella) ne egymás alá tegye, hanem egymás mellé. Aztán a következő futásnál már új sort töltsön fel újra egymás mellé téve a cellákat.
-
Cufter
tag
válasz
Delila_1
#12872
üzenetére
Köszi, kiindulásnak nem rossz.
Két fontos és egy kényelmi változtatás kellene még:1: A cella képlettel számított értékeket tartalmaz, így ezeket kellene átvigye, ne a hivatkozást.
2: Egymás alá helyett egymás mellé kellene tegye a másolandó cellákat, de egymás alatti sorba minden új rögzítésnél.
Kényelmi: Kijelölés helyett fix cellákat kellen másoljon.Köszi
-
poffsoft
veterán
válasz
Delila_1
#12865
üzenetére
szép képlet.
A feltételes formázást még értem is
Viszont most pont azon dolgozom a makrókkal, hogy a feltételes formázásból fix formázást csináljak(, és excel 2003-am van (2010-ben viszonylag egyszerű)).És lenne egy kérdésem is megint: a range property-knél honnan lehet tudni, hogy melyik csak olvasható, és melyik írható-olvasható? Ill. ha van egy formats típusú objektumom, amit egy range-ből kiolvasok, azt van-e egyszerű mód egy másik cellába beírni?
Vagy marad a tételenkénti, .font, .interior, .border, .pattern tételenkénti kiolvasása-beírása?
Továbbá, a feltételes formázások (és csak a feltételes fromázások ) törlésére van-e valami egyszerű metódus, tekintve, hogy a .formatconditions.delete sajnos a fix formázást is törli?Húsvéthoz viszont a Gauss képletet használtam.
-
poffsoft
veterán
válasz
Delila_1
#12863
üzenetére
private sub egészen pontosan.
Feltételes formázással a mozgó ünnepeket (konkrétan csak a húsvét kell, mivel a pünkösd meg pont 49 nappal később jön)????
Hogyan?
Más: A combobox-nál azt hogyan oldják meg, hogy minden egyes karakter-leütésnél csak akkor fogadja el, ha van annak megfelelő a listában? Legalábbis emlékeim szerint a netes űrlapok általában mintha így működnének...
Vagyis , ha a 2000 után a 2211 a következő elem, akkor a "2" után (amire a 2000 kijelölődik) már csak "0"-t vagy "2"-t fogad el a bevitel (és "2"-re máris a 2211 jelölődik ki, sit)?
-
föccer
nagyúr
válasz
Delila_1
#12860
üzenetére
T3-ba akkor kerülne be adat, ha 4 egyforma Kód lenne. Technikailag úgy oldottam meg, hogy a T3-ba kerülő képletek ugyan azok, mint a T2-be kerülő, csak a keresési tartományt 1 sorral lenteből indítottam, így a saját sorát nem veszi figyelmbe, csak az alatta lévő tartományba keres. Elég csúnya megoldás, de működik.
Ismételten rá kellett jönöm, hogy meg kellene tanulnom makrózni... Azzal kb 10 sorban megoldható lett volna az egész.
üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#12856
üzenetére
No, már csak egy olyan problémába futottam, hogy nem tudtam minden sorban a lista elejéről keresni, mert akkor mindig ugyan azt (az első) találatot adta. Ezt végül áthidaltam azzal, hogy amikor egy kód elsőként szerepel a listában, akkor az összes utána lévő eset bekerül a mellette lévő sorban, majd amikor másodjára, akkor az első eset nincs benne, amikor harmadjára, akkor az első kettő stbstb...
Erre van valami, nem makrós megoldás? Azaz, hogy az első x találatot az fkeres ne vagye figyelembe?
Köszi,
üdv, föccer
-
föccer
nagyúr
-
Delila_1
veterán
-
poffsoft
veterán
válasz
Delila_1
#12835
üzenetére
Köszi, megoldottam:
találtam egy kész algoritmus-sorozatot:
'This user defined function will return the colour index of the cell reference which is passed as the first argument.
'The number returned will always be between 1 and 52 since this corresponds to the location on the colour palette.
'Once the user defined function has been entered into a code module in the corresponding VBA Project you can use it in your extra column.
'If the cell does not contain any conditional formatting then 0 is returned.
'http://www.bettersolutions.com/excel/EPX299/LI041931911.htmEgy picit átalakítottam, hogy ha nincsen feltételes formázása, akkor az .interior.colorindex-el tér vissza
Most éppen egy combobox elhelyezésével szenvedek a worksheeten, userform nélkül...
Ezzel kapcsolatosan egy kérdésem a jövőre viszont volna:
Ha egy olyan kiválasztás kellene nekem, ahol csakis egy évszámot lehet bevitelként megadni (amelyik évre a besoztás készül), azt hogyan elegáns megoldani? Naptár, combobox, vagy valamilyen legördülő lista?
esetleg van ilyen kész modul ? (évszám bevitel)? -
VásRló
tag
válasz
Delila_1
#12831
üzenetére
Na igen, rájöttem, hogy a munkalaphoz kellene rendelni.
Így már megy, kösz.De fura, miért kell ehhez a most függvény?
Ami a problémám, hogy több oszlop van, aminek az adatai kellenének, egymás alatti sorok celláiban.
Tehát pl kell 5 egymás melletti oszlop adata, és 5 egymás alatti sorba kellene. Ezt vajon meg lehet csinálni? -
luckyboi82
tag
válasz
Delila_1
#12830
üzenetére
Ezt nem vágom. A hiperlink szövegét hogy tudnám kicserélni,amikor az nem jelenik meg, csak ha a hiperlink szerkesztését nézem,egyesével.? Ez a gondom,hogy keresni se keresi ezt a szöveget,nemhogy cserélni tudnám. A forrás minden cellánál más és más, nem egy adott xls hivatkozott cellája. Így egyesével megy csak.
-
poffsoft
veterán
válasz
Delila_1
#12826
üzenetére
A feltételes formázásokkal kapcsolatban van most "kis" gondom:
Szóval, ha egy cellából a feltételes formázások által kialakított végleges formátumot szeretném kinyerni, arra van-e valami megoldás?
(kitöltőszín, mintázat, karakter típus, formátum, karakter szín ami perpill. kellene) -
poffsoft
veterán
válasz
Delila_1
#12813
üzenetére
Ez nem pont az a megoldás
Ha telepítenie is kell az analysis toolpack-ot, nem biztos hogy megy a melóhelyen
Programozásügyileg?Perpill egy olyan képletet (képlettömböt) használok, ami 1-től 31-ig hozzáadja az adott hónap 1. napjához a számokat(ami a cella saját oszlopszáma), és megvizsgálja, hogy megváltozott-e a hónapszám
. Ez a munkám még makrómentes 
Csak lassan megtelik az egész lapom, és még nem készült el a beosztás
(mert most egy 23-dik variációt kell megpróbálni elkészítenem, amolyan kártyanaptár- formátumra)p.s.: a Köszi
lemaradt... -
plaschil
aktív tag
válasz
Delila_1
#12803
üzenetére
1 bizonyos fájl végére. A bizonyos fájl 3 oszlopból áll. (A, B, C)
Így:
A oszlopba:
B oszlop (i, 2) celláját, tegye a bizonyos fájl A oszlop végére.
C oszlopba:
D oszlop (i, 4) celláját, tegye a bizonyos fájl C oszlop végére.
B oszlopba:
Ez egy kicsit bonyolult, mert a C oszlopba beírt adatoktól függően kell beírnia valamit. Tehát, ha C-be írt pl. 5255-öt, akkor B legyen "ország_1", ha 5345-öt akkor "ország_2" és még 3db ilyen feltétel. -
plaschil
aktív tag
válasz
Delila_1
#12800
üzenetére
Köszönöm szépen, éjjel 1-ig szórakoztam vele mire megtudtam hogy a "left"-et kell használni ha kezdődést akarok vizsgálni.
Viszont ez az if hibás, vagy nekem nem működik, én is így írtam először:
If Cells(i, 4) = "5415" Or "5415B" Then
Nekem ez csak úgy működött hogy:
If Cells(i, 4) = "5415" Or Cells(i, 4) = "5415B" Then
Most már változott az egész ciklus, úgyhogy így néz ki:
For i = 1 To SorokSzama
If Cells(i, 5) = "72" Then
If (Cells(i, 4) = "5415" Or Cells(i, 4) = "5255" Or Cells(i, 4) = "211B" Or Cells(i, 4) = "5345" Or Cells(i, 4) = "5195") Then
If Left(Cells(i, 2), 5) = "0.603" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 5) = "0.615" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 7) = "1.600.a" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorből kéne néhány oszlopot átteni egy másik fájl végére.
End If
If Left(Cells(i, 2), 7) = "1.600.z" Then
' itt kellene egy olyan rész hogy ami az i-edik sorban (elvileg megfelel a szűrésnek) ebből a sorból kéne néhány oszlopot átteni egy másik fájl végére.
End If
End If
End If
Next -
#12786
kriszwells
aktív tag
Delila_1
#12785
-
#12782
kriszwells
aktív tag
Delila_1
#12781
kriszwells
aktív tag
válasz
Delila_1
#12781
üzenetére
Kösz a gyors választ!
Elmondom valójában mit szeretnék hátha kapok rá valami jó ötletet valakitől. Persze nem feltétlen excelbe...
Van egy saját készítésű Lapozgatós könyvre hajazó valamim, tehát 200 oldalnyi pár mondatos fejezetek, mint a szokásos lépj a x oldalra vagy az Y-ra stb.
Szeretném egy kis felületen megjeleníteni mindig az adott szöveget, amit ott el lehet olvasni, majd a végén lévő utasítás alapján vagy egy gombnyomásra, vagy az oldalszám beírásával megjelenik a következő.
E mellé jönne pluszba, és ezért gondoltam az excelre, hogy ott lehet kockadobás szimulátort csinálni. Kockadobás, Adott értékből elvesz egyet vagy hozzáad attól függően hogy nyerünk vagy vesztünk... stb.
Nem tudom érthető-e
A megjelenített szöveg mellett lenne egy állandó kisebb táblázat a 'karakter' tulajdonságaival (értékeivel) amik menetközben változnak. -
Ripitxx
csendes tag
válasz
Delila_1
#12765
üzenetére
Hát sajnos nem igazán tudom megtenni ugyanis itt csak a lapon folytatandó műveletekhez engedi hozzá rendelni
. Lehet hogy én vagyok a balek de fúlósan nem tudom össze hozni de ha még nem említettem volna ezt a műveltetett open office-val csinálom . Kicsit más a felépítése mint az excel-nek ami kicsit nehezíti a megoldást részemről de ha ezek után is van ötleted ,hogy kivel vagy mivel van gond vagy netalán megoldásod van azt is örömmel várom! -
Ripitxx
csendes tag
válasz
Delila_1
#12754
üzenetére
Köszönöm a segítséget de mivel a makrózáshoz igen csak gyökér vagyok
(ezt nem tagadom 
) volna még egy kérdésem az általad adót parancsot az én dokumentumomhoz rendeltem alakítottam de valami okból kifolyólag hibát irki 
If Target.Address = "$C$7" Then Range("C8:C12")= ""
Amit már egy jó ideje próbálok rájönni mi a kínja de magamat ismerve valami primitív dolgot felejtettem el segítségedet előre is köszönöm!!!!!!!!!!u.i.:Ha gondolod és neked egyszerűbb egy sablon dokumentumot át tudok küldeni az eddigi munkásságomról.
-
Ripitxx
csendes tag
válasz
Delila_1
#12748
üzenetére
Nos ez elég hülyén fog ki jönni de valójában ez egy készülékek adatait csoportosító adat táblázat amit korlátozót számítástechnikai félszeres híján calcal kel megoldani. De pontosabban ez úgy tudom leírni hogy vannak készülék amelyek paraméterei, adatai és tulajdonságai éltérőek, viszont a hozzátartozó rész egységek ugyan azok vagy hasonlok is lehetnek, és hogy ezeket az adatokat egy szerűbb legyen kezelni létre hoztunk egy adat tábla gyűjteményt lista elrendezésben amelyben az adót készüléket kiválasztva a hozzátartozó egységre szűkíti a választékot amivel továbblehet szűkíteni az azt követő kivitelezéseket. Nos mivel ezt elég sűrűn és elégé változómódon használjuk ezért a hibák kiküszöbölés konkrétan ha egy másik készüléket választunk ne maradjanak ott az előző tartozékok adatai hanem legyen üres tisztában vagyok hogy ezt egy sima HA() függvénnyel elehet intézni, csak sajnos az emberi tényezőt figyelembe véve nem biztos hogy ö is tisztában hogy hogyan működik ezért keresek olyan megoldást amelyek készülék váltásnál azonnal üresre váltja a hozzárendelt cellák adatait hogy még véletlenül sem maradjon benne marhaság!!!
És ez a rövidebb változat!! -
shiz
csendes tag
-
#12712
Fire/SOUL/CD
félisten
Delila_1
#12711
-
-
-
-
poffsoft
veterán
válasz
Delila_1
#12684
üzenetére
Megint egy kis problémám lenne:
Az Éves!K10 cella string-ben tartalmazza a szükséges képletet,
'=A10+B11
tehát elvileg a MyFormul$-nek magának a formulának kell lennie, mégis hibaüzenetet kapok rá.Mi a hiba? És mi a megoldás? Vagyis a value-t hogyan tudom formula-vá konvertálni? Esetleg a legelső aposztrof okozza a hibát a cellában?
MyFormul$ = ThisWorkbook.Sheets("Éves").Range("K10").Value
ThisWorkbook.Sheets(1).Activate
Range("AM20").Formula = MyFormul$Ja, és ahhoz, hogy egy lapon kijelöljek, másoljak tartományokat, mindenképpen aktiválnom kell azt a lapot ( pillanatnyilag az !Éves lapon nyomógombbal hívom meg ezt a másoló sub-ot, és nem tetszik, hogy végiglapozza az évet...)?
Más:
Ha egy lapon végeztem (copy-paste makróból) és azt szeretném, hogy ne maradjon kijelölve semmi, és a B20 cellára álljon a kurzor( meg a lapgörgetések is teljesen fent és balra, vagyis az ablak tetején az A1 cella látszódjon), azt milyen utasítással lehet elérni?
Köszi
-
háma
csendes tag
válasz
Delila_1
#12444
üzenetére
Köszi.
Szuperül működik. De nem sikerült rájönnöm, hogyan tudom többször felhasználni.
A következőt gondolom:1 munkalap A oszlop név, B oszlop e-mail, C oszlop választó1, D oszlop választó2, E oszlop választó3.
2 munkalap= választó1
3 munkalap= választó2
4 munkalap= választó3Mindegy melyikbe teszek jelet, és akár többe is az alap kód működjön.
Üdv: Marci.
-
motinka
tag
válasz
Delila_1
#12636
üzenetére
köszönöm Delila!
az alábbi működik:
Set WS2 = Sheets("HÓNAP")
usorH = WS2.Range("A1").End(xlDown).Row
sor = 2 f = Falsetehát itt átírtam az 1-est 2-re és az első sort így nem bántja csak a 2 sortól írja az adatokat.
sajnos volna még egy problémám, a HÓNAP fülről csak 3 oszlopból hoznék át adatot, azaz csak 3 sor beírását kelle törölni.
ezt én azt gondolom itt lehetne átírni,If f = False Then
Range("A2") = "Nincs adat erre a napra"
Range("C1:IV1").Delete
End Ifde ez nem működik:
If f = False Then
Range("A2") = "Nincs adat erre a napra"
Range("B25000").Delete
End If -
motinka
tag
válasz
Delila_1
#12613
üzenetére
Delila,
köszönöm a megoldást, most próbálgatom, egyelőre nem működik.
Elmagyaráznád hogy melyik sor mit csinál?
Jelenleg annyi működik, hogy amikor beírom a dátumot az A1 cellába, beírja a B1-be hogy "Nincs adat erre a napra" és minden mást letakarít ezen a "kigyüjtés" nevű fülön.
Ha jól értettelek ehhez mondtad hogy rendeljem a makrót. -
csferke
senior tag
válasz
Delila_1
#12550
üzenetére
Szia Delila_1!
Pár napig nem követtem a fórumot de most ott folytatnám ahol abbahagytuk.#12549-ben feltett kérdésemre:
Lehetséges-e a legördülő listában, hogy 2 nem egymás melletti oszlop (A, D) tartalma jelenjen meg?#12550-ben válaszoltál is csak én nem igazán arra gondoltam.
Tehát CSAK a legördülő menüben kellene, hogy látszódjon a 2 oszlop A és D de magában az A1 cellában mint eredmény CSAK a kiválasztott alapján az A oszlop megfelelő cellája.Nekem olyasmi kellene mint pl. amikor ki kell egy céget választani és csak a cég neve kell, hogy szerepeljen mint eredmény de sokban megkönnyíti a kiválasztást ha pl. a város neve is szerepel a legördülőben (az adatok a városok szerint vannak rendezve)
köszi
köszi
Nagyon köszönöm! 
- remélem a tanár nem lesz ilyen.... köszi
![;]](http://cdn.rios.hu/dl/s/v1.gif)
9").Copy
. Lehet hogy én vagyok a balek de fúlósan nem tudom össze hozni de ha még nem említettem volna ezt a műveltetett open office-val csinálom 
) volna még egy kérdésem az általad adót parancsot az én dokumentumomhoz rendeltem alakítottam de valami okból kifolyólag hibát irki 
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Honor 200 Pro - mobilportré
- Milyen belső merevlemezt vegyek?
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Intel Core i3 / i5 / i7 / i9 10xxx "Comet Lake" és i3 / i5 / i7 / i9 11xxx "Rocket Lake" (LGA1200)
- Kerékpárosok, bringások ide!
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Fotók, videók mobillal
- Le Mans Ultimate
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Xbox Series X|S
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Antivírus szoftverek, VPN
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 7600XT 16GB GAMER PC termékbeszámítással
- LG 77G4 - 77" OLED evo - 4K 144Hz 0.1ms - MLA - 3000 Nits - NVIDIA G-Sync - AMD FreeSync - HDMI 2.1
- Eredeti, új Lenovo 330W töltők - ADL330SDC3A
- Bomba ár! Dell Latitude E5570 - i5-6300U I 8GB I 256GB SSD I 15,6" FHD I HDMI I CAM I W10 I Gari!
- LG 27GP95RP - 27" Nano IPS - UHD 4K - 160Hz 1ms - NVIDIA G-Sync - FreeSync Premium PRO - HDR 600
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged