- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Geri Bátyó: Megint tahó voltam – SZEMÉLYISÉGFEJLŐDÉS
- Meggyi001: Nyilvános wc-k.....még mindig hiánypótló...
- MasterDeeJay: Alacsony fogyasztású házi szerver a korábbi projektekből összeépítve
- Argos: Adjátok vissza a netet! - szeretnék elaludni!
- gban: Ingyen kellene, de tegnapra
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
-
LOGOUT
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
-
-
Caipi
tag
Igen, így tökéletesen megfelel amit létrehoztam a segítségeddel :-)
Megnézetem vele, hogy az azonosítót valóban azonosító-e (nem Aaa, pl) és, ha tényleg azonosító akkor rákeres a második fülön. Ha üres a végeredmény, nem jelenít meg semmit, ha az adott cella tartalmaz valamit, akkor egy linket hoz létre a szöveg alapján.
Ha nem jó a szöveg (nincs ilyen file, vagy rosszul írtam be a file nevet), akkor az excel hibaüzenete jön vissza, ebből tudom, hogy meg kell vizsgálnom az adott cellába írt szöveget. Szval minden klappol :-)Nézegettem az excel súgóban a Hiperhivatkozás()-t. Van olyan lehetősége is, hogy nemcsak megnyitja az adott filet, hanem a filen belül a megadott cellára ugrik.
Ez is hasznos lenne nekem, de mivel én függvénnyel rakom bele a fájlnevet nem jöttem rá, hogy így is meg tudnám-e csinálni (a szintaktika szerint [ ] közé kellene tennem a megnyitni kívánt file nevét (de ha ezt tettem nekem nem tudta értelmezni a zárójelek közé került függvényt), majd utána megadnom a cellát).
Van esetleg erre is valakinek ötlete?=HYPERLINK("[próba.xlsx]Munka1!A1", "Link")
Köszönöm
-
Delila_1
veterán
válasz
BuktaSzaki #16994 üzenetére
G1-be:
=HA(DARABTELI(B:B;A1)=0;"Nincs";"")Ezt a képletet másold le addig a sorig, ahol az A oszlopban még van adat.
-
BuktaSzaki
tag
Sziasztok,
megint belefutottam egy olyanba, hogy van két oszlop, A és B. B összes eleme A-nak is eleme.
Azt kéne kiíratni mondjuk C-be, hogy A melyik elemei nem szerepelnek B-ben.köszi,
B. -
Caipi
tag
Közben sikerült egy kicsit másként megoldanom, de a Hiperhivatkozás() szintaktikája sokat segített.
Köszönöm szépen!
=+HA(VAGY($A$3="";BAL($A$3;4)="Aaaa");"";HIPERHIVATKOZÁS(FKERES($A$3;'Munka2'!B:AV;15;HAMIS)))
Így ha nincs szöveg, nem ír ki semmit, ha van akkor kiteszi linkkel. Ha a file név nem megfelelő, akkor az excel feldob egy hibaüzit, hogy nem jó a file.
Szuper :-)
-
sarvari
csendes tag
Sziasztok!
Fontos lenne, tudna nekem valaki segíteni?!Van egy táblázatom:
-----------------------------
|név | xy |
|szám| 1234 ||vas. | szélesség
| | 10cm | 20cm | 30cm |
|3cm | 300g | 600g | 900g |
|4cm | 400g | 800g | 1200g |
|5cm | 500g | 1000g | 1500g |
-----------------------------ebből akarok olyat csinálni, hogy:
---------------------------------
|név | szám | vas.| szél.| súly |
| xy | 1234 | 3cm | 10cm | 300g |
| xy | 1234 | 3cm | 20cm | 600g |
| xy | 1234 | 3cm | 30cm | 900g |
| xy | 1234 | 4cm | 10cm | 400g |
| xy | 1234 | 4cm | 20cm | 800g |
| xy | 1234 | 4cm | 30cm | 1200g|
| xy | 1234 | 5cm | 10cm | 500g |
| xy | 1234 | 5cm | 20cm | 1000g|
| xy | 1234 | 5cm | 30cm | 1500g|
---------------------------------Milyen függvénnyel tudnám ezt megoldani?
-
Caipi
tag
Köszönöm,
Bemásoltam, próbálgattam, de mindig #HIÁNYZIK -al jön vissza.
(megnéztem, a HOL.VAN()-al van problémája. Okozhatja az, hogy amit kerestetek (A3 cella, lásd lent;listából választható?)
Leszedtem HA()-t az elejéről, csak az index()-t néztem, de nem jöttem rá, mi a hiba.
HIPERHIVATKOZÁS(INDEX('Munka2'!$B:$AV;HOL.VAN($A$3;'Munka2'!$:$AV;0);15))Nekem az első lap $A$3 cellája adja az adatot, amit meg kellene keresnie a Munka2 B:AV tartományban, aholis a 15. sorban vannak jelenleg a file nevek beírva.
-
-
benjaminn
csendes tag
Sziasztok!
Kezdő excelesként kérném a segítségeteket.
Megpróbálom értelmesen leírni a problémámat.
adott két táblázat , és azt szeretném elérni hogy a táblázat1-ből csak azokat jelenítse ami a táblázat2-ben is szerepel. Mind a 2 táblázat A oszlopa a vonalkódját tartalmazza , a táblázat 2 tartalmazza azokat a vonalkódokat amiket módosítanom kell a táblázat1 -ben.
Segítségeteket előre is köszönöm. Ha nem világos szóljatok megpróbálom másképpen leírni.
kösziköszi -
Caipi
tag
Sziasztok,
Szeretnék segítséget kérni a következő feladat megoldásához:
Adott két munkalap.
A Munka2 adatokat tartalmaz, A oszlopban soronként egyedi azonosítóval (pl: 1A0001, 1A0002, stb).
Egyes azonosítókhoz tartozik egy-egy segédexcel file, ami ugyanabban a könyvtárban található. Ezeknek a fájloknak a nevei egy következő oszlopba kerülnek felvezetésre (pl.: 1A0001 esetén nincs név, 1A0002 esetén az adott cellában a "segédfile1.xlsx" szöveg szerepelne).
A Munka1 lapon egy egysoros összesítő van, amelyben az A2 cellában legördülő menüvel kiválasztható a Munka2 "A" oszlopában található azonosítók. A kiválasztott azonosítóhoz ezután sorban megjelenít bizonyos további adatokat egymás után (ezzel készen vagyok).
Szeretném ha sikerülne ide betenni, hogy a kiválasztott azonosító esetén, ha a Munka2 munkalap tartalmaz fájlnevet, akkor működő hivatkozásként itt megjelenjen (azaz az egyik cellában jelenjen meg egy link, amelyre kattintva a pl. "segédfile1.xlsx" nyílik meg).
Ha viszont a a Munka2-n nincs az adott metszetben szöveg, akkor egy üzenetben jelezze, hogy nincs megnyitható fájl. Amennyiben van szöveg ott, de a fájlnév nem helyes (pl: "segédileaa.xlsx", akkor jelezze, hogy a fájlnév nem megfelelő.Tehát az összes fájl, ez az excel és a további fájlok is azonos könyvtárban helyezkednek el.
Köszönöm a segítségeteket előre is! :-)
-
válasz
detroitrw #16976 üzenetére
Eltünt a netem, nem tudtam szerkeszteni...
Szóval ha az előző módszer megy kifogástalanul, akkor ennyit kell módosítani (példában Munka1 lapon van a command1 és a munka2-n a command2)Munka1 - itt fontos, hogy hivatkozni kell a munka2-re
Private Sub CommandButton1_Click()
Munka2.CommandButton2_Click
End SubMunka2 - itt az a fontos, hogy Public a deklaráció (enélkül munka1-en nem "látja" a command1)
Public Sub CommandButton2_Click()
MsgBox ("CommandButton2_Click")
End SubRitkán alkalmazzák az ilyen megközelítést, pont azért, mert körülményes és könnyen be lehet nézni, helyette Module-ban globálisan célszerű az eljárásokat megírni.
-
-
válasz
Excelbarat #16947 üzenetére
Szia!
sajnos így se működik
kipróbáltam egy teljesen üres lapon de ugyan úgy nem működikazt is kipróbáltam hogy lépjen át arra a fülre s ott ugyan azt a parancssort futtassa, de akkor is hibát dob
nem értem mi lehet a problem
-
Delila_1
veterán
válasz
ricshard444 #16974 üzenetére
-
Delila_1
veterán
válasz
ricshard444 #16972 üzenetére
Mert a képletet másolod.
Jelöld ki a másolandó területet, Crrl+c-vel tedd a vágólapra.
Állj abba a cellába, ahova az első értéket akarod tenni.
Jobb klikk, Irányított beillesztés, Értéket. -
Delila_1
veterán
válasz
ricshard444 #16970 üzenetére
Csak időt kell adni érte....
Szívesen.
-
Delila_1
veterán
válasz
ricshard444 #16968 üzenetére
Kijelölöd a B oszlopot. Kezdőlap, jobb oldalon a távcső, csere.
Keresett szöveghez írj egy pontot, a másik rovatba vesszőt. "Az összes cseréje" gomb elvégzi a feladatot. -
Delila_1
veterán
válasz
ricshard444 #16966 üzenetére
Cseréld ki a pontokat vesszőkre.
-
Delila_1
veterán
válasz
ricshard444 #16964 üzenetére
Megeshet, hogy nem mindegyik alakult számmá, de ezt most megoldjuk.
Írj egy üres cellába egy egyest. Másold Ctrl+c-vel.
Jelöld ki a kérdéses tartományt (első cellán állsz, Shift+Ctrl+le nyíl). Jobb klikk, Irányított beillesztés, szorzás.Ezzel az egész tartományt felszorzod 1-gyel, és egyúttal számmá alakítod, ha valamelyik mégsem az.
-
Delila_1
veterán
válasz
ricshard444 #16962 üzenetére
Állj az első, látszólag számot tartalmazó cellára. Vedd hozzá a következőt a kijelölésben. Ha lent, a státuszsorban látod az összegüket, számokat tartalmaznak, ha nem, továbbra is szövegek.
-
Delila_1
veterán
válasz
ricshard444 #16958 üzenetére
Valószínű, hogy szövegként szerepelnek a cellákban a számok. A szövegből oszlopok elkészítésénél add meg, hogy számként kezeljen mindent, ami annak látszik.
Technikai tippek, hogy ne teljen el az ifjúságod a képernyő görgetésével:
1. A1-en állva Shift+Ctrl+le nyíllal egy lépésben kijelölöd az adatokat tartalmazó oszlopot.
2. A képlet beírása után a cella jobb alsó sarkában lévő kis fekete négyzetre duplán klikkelsz, és már le is másolta a képleteket addig, míg a balra mellette lévő cellákban adatot talál. -
Delila_1
veterán
válasz
atillaahun #16959 üzenetére
Gratu.
-
ricshard444
veterán
Sziasztok, lenne egy nagy problémám:
El is jutok egészen addig, hogy beírom: B3-B2 , de kiírja, hogy... ÉRTÉK
Mit nem veszek észre?
-
Delila_1
veterán
válasz
atillaahun #16956 üzenetére
=ha(hibás(ide_jön_a_függvény);ezt_tegye_hiba_esetén;ez_legyen_ha_nem_fut_hibára)
-
atillaahun
veterán
Ha a 2003 nem eszi meg a HAHIBA-t, akkor mit tudok helyette használni?
-
picsu
csendes tag
válasz
Delila_1 #16951 üzenetére
Szia Delila!
Nagyon köszi a segítséget. Annyi a különbség, hogy a könyvtáramban van vagy 80 file amiből ezeket a cellákat ki kellene venni és a makrós xls-be belerakni egymás alá...
...és ha ez megvan jön a feketeleves...
Minden tábla ugyanilyen csak különböző adatokkal. Amire szükség lenne az az "A" oszlopban levő számok és a hozzá tartozó 'AE" oszlopban levő szám. Például 10-es sor: 01-B340L --> 3.480
Ami a buktató nekem, hogy egy komisszió többször is szerepel az "A" oszlopban. (mivel első, másod és van, hogy harmadosztályú) mint például a "A11-A12-A13" celláknál.
Ilyenkor csak mindig az a sor kellene ahol az "F" oszlopban "1"-es van.
Tehát például 18-as sor: 01-B462L --> 12.560Még mindig tudsz segíteni?
Isti
-
Istv@n
aktív tag
válasz
Excelbarat #16952 üzenetére
Szia!
Köszönöm!
Ez alapján már át tudom variálni a sajátomat! -
Excelbarat
tag
válasz
Istv@n #16949 üzenetére
Hi! 16738-as hozzászólásomban linkeltem egyet!
Tessék a működése hogy beírsz egy maszk nevet ami mindegyiknél azonos (te esetedben: 2013.01.*) és ő a soron következő fájlokat megnyitja majd az első munkalapról(vagyis ami aktív volt utoljára) az "A2" cellától kijelöli az alatta és jobbra mellette lévő sorokat amíg van benne érték (azért A2 mert azt feltételezem hogy az első sorban a fejlécek vannak és az összesítőbe ez nem kell!)
Ha neked máshol van akkor ezt a sort írd át a makróban:
Range("A2").Select ezt írd át oda ahol az első adatod van a táblázatban.
Ha van összegző sorod a napi kimutatásodban akkor jelöld az igent és átmásolásoknál az utolsó sorokat törli. Ha nincs értelemszerűen a nemet.
Ha ezt használod akkor megnyitja az összes napot bemásolja egy külön fülre majd ezt a fület elmenti egy új fájlba ugyan abba a mappába, a végén kiírja hogy milyen fájlnévvel hova mentette.
(a kódot persze szabadon variálhatod tetszés szerint) -
Delila_1
veterán
Ha jól értem, egy könyvtárból kiválasztott fájl első lapjának A3:F3 tartományát akarod bemásolni az indító fájl A5:F5 celláiba.
Sub mm()
Application.DisplayAlerts = False
Dim fldlg As FileDialog, utvonal As String
Dim cel As String, forras As String
Dim rv, oszlop As Integer
cel = ActiveWindow.Caption
utvonal = "E:\Eadat\" 'Itt add meg az induló könyvtár útvonalát
Set fldlg = Application.FileDialog(msoFileDialogOpen)
With fldlg
.Title = "Megnyitás"
.InitialFileName = utvonal
.FilterIndex = 1 '*.xls, vagy *.xlsx
End With
rv = fldlg.Show
If rv Then
Workbooks.Open fldlg.SelectedItems(fldlg.FilterIndex)
forras = ActiveWindow.Caption
Workbooks(forras).Sheets(1).Range("A3:F6").Copy _
Workbooks(cel).Sheets(1).Range("A5")
End If
Workbooks(forras).Close
Application.DisplayAlerts = True
End Sub -
picsu
csendes tag
Sziasztok!
Egy kis segítségre lenne szükségem. Régen office 2003-am volt amin szuperül működött ez a parancs:
Set fajllista = Application.FileSearchAz új 2007-esben azonban hibát kapok rá... :-(
"Runtime error '445'
Object doesn't support this actionTudnátok segíteni, hogy mivel tudom helyettesíteni?
Előre is nagyon köszönöm.
IstiA makróm ez:
Sub export()Dim elso, masodik, harmadik, negyedik, otodik, hatodik, hetedik As String
Dim fold As FileDialog
Dim foldrv As Variant
Dim fso As Object
Dim fajllista As FileSearch
Dim fajllistaindex As Long
Dim forras, cel As StringApplication.Calculation = xlCalculationManual
Application.ScreenUpdating = Falsecel = ActiveWindow.Caption
Set fold = Application.FileDialog(msoFileDialogFolderPicker)
With fold
If .Show = -1 Then
foldrv = .SelectedItems(1)
Else
Exit Sub
End If
End WithSet fajllista = Application.FileSearch
With fajllista
.NewSearch
.LookIn = foldrv
.Filename = "*.xls"
.SearchSubFolders = False
If .Execute > 0 Then
For fajllistaindex = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(fajllistaindex)
Workbooks.Open Filename:=.FoundFiles(fajllistaindex)forras = ActiveWindow.Caption
'
With Workbooks(forras).Sheets(1)Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 1) = Workbooks(forras).Sheets(1).Cells(3, 1)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 2) = Workbooks(forras).Sheets(1).Cells(3, 2)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 3) = Workbooks(forras).Sheets(1).Cells(3, 3)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 4) = Workbooks(forras).Sheets(1).Cells(3, 4)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 5) = Workbooks(forras).Sheets(1).Cells(3, 5)
Workbooks(cel).Sheets(1).Cells(fajllistaindex + 5, 6) = Workbooks(forras).Sheets(1).Cells(3, 6)End With
'(fajllistaindex, 1) = workbooks(Application.DisplayAlerts = False
Workbooks(forras).Close
Application.DisplayAlerts = True'"=[Book1.xls]Sheet1!R1C1"
'"=[" & .FoundFiles(fajllistaindex) & "]Sheet1!R1C1"Next fajllistaindex
End If
End WithApplication.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.CalculateMsgBox "Na ez is megvan mégsincs este... Összesen " & fajllistaindex & " fájlból importáltunk adatokat.", vbInformation + vbOKOnly, "Komisszióadatok importálása befejeződött"
End Sub
-
Istv@n
aktív tag
Sziasztok!
Makróban kérnék egy kis segítséget.
Azt szeretném megoldani, hogy egy összesítő fájlba automatikusan kerüljenek be adatok, egy naponta generálódó excel fájlból.
Az nem sikerül, hogy az adatfájlok változó neveire hivatkozzam a makróban. For ciklussal próbáltam, de a változó beírása után hibára fut a program. Próbáltam idézőjelbe írni, aposztrófba, de ugyan az a hiba. Az adatfájl neve mindig a napi dátum éééé-hh-nn_<szöveg>.xlsx Ebből a napot szeretném a ciklusban mindig egyel növelni.Hogyan próbáljam?
-
Salex1
őstag
Sziasztok! egy kis segítség kellene, meg lehet ezt oldani valahogy:
A lényeg, hogy van egy tábla, amit folyamatosan bővítek kézzel (napi/heti egy két plusz sor) és van egy másik munkalap, amin van egy táblázat,minden sorban dátummal, itt egy függvény nézi, hogy melyik régebbi, mint az aktuális dátum (MA). Az első munkafüzet következő üres sorába kellene átírni annak a nevét, aminek a dátuma lejárt. -
válasz
Excelbarat #16945 üzenetére
Szia!
ezt írtam be:
Sub CommandButton1_Click()
Call CommandButton2
End Subde nem jó, not defined
-
Excelbarat
tag
válasz
detroitrw #16944 üzenetére
Hi!
Csak simán ahhoz is hozzárendeled ugyan azt a makrót. (ha netán ezt szeretted volna)
Ha a parancsgomb Űrlapvezérlő elem akkor jobb klikk rá és makró hozzárendelése, Ha ActiveX vezérlő akkor tervező mód bekapcsol és kétszer ráklikkelsz utána beírod a sub és end sub közé, hogy Call makronév. Remélem segített. -
Sziasztok!
lenne egy furi kérdésem
parancsgombot hogy lehet egy másik gombbal "megnyomni"? (különböző fülön vannak)
-
Excelbarat
tag
válasz
Bocimaster #16941 üzenetére
Bocs a kellemetlenségért, siettében átsiklottam a +1-en
vagyis csak oda gondoltam..., de ahogy látom Delila_1 közben meg is válaszolta.
-
Delila_1
veterán
válasz
Bocimaster #16941 üzenetére
Az is jó, csak ott több billentyűt kellett volna leütnöm.
-
Delila_1
veterán
válasz
Bocimaster #16939 üzenetére
Az Cells(u, "A").Select sort írd át Cells(u+1, "A").Select-re.
-
Bocimaster
csendes tag
válasz
Excelbarat #16924 üzenetére
köszönöm mégegyszer a segítséget de , van egy hibácska ,
mondjuk az első lapról másolt után a második lapról másolt adatot az előző után kéne hogy rakja, de
nem - az első adagnak az utolsó sora mindig felül íródik az azt követő első sorával.- lenne erre valami megoldás...
nagyon köszönöm
-
skoos
őstag
válasz
Delila_1 #16936 üzenetére
Nagyon köszönöm segítséged! Sajnos még nem sikerült a képlet, de már nagyon közel lehetünk szerintem.
#HIV hibát dobja.
Még egyszer megpróbálom másképp.
Az első lap A oszlopában fel van sorolva: 'munkafüzet 1, munkafüzet 2...munkafüzet n'. Ugyan ilyen nevek alatt van a többi sheet.
Ha a képletet manuálisan megadva =munkafüzet n!$X$X a megfelelő adatot adja. A kérdés az lenne, hogy az A oszlopban található felsorolásból hogyan tudom a képletbe a szöveget és nem a hivatkozást másolni. Tehát hogy ne =A1!$X$Y legyen hanem hogy a cellába beleírt szöveget másolja tovább a képletbe (=munkafüzet n!$X$X)Köszönöm javaslataid.
-
skoos
őstag
Kedves Guruk, a következö problèmàval àllok szemben:
Van egy több lapból álló excel munkafüzetem.
Az első lap egy összegző lap, melyen szerepel egy oszlopban a többi lap neve, mellette levő oszlopokba pedig szeretném ha a többi lapról átmásolna bizonyos cellákat.
Mivel az első lapon kívül az összes többi lap formanyomtatvány, minden lapról ugyan az a pár cella szükséges.
Azt szeretném ha az első lapon levő „többi lap oszlopban” található nevekből illessze be a hivatkozási függvénybe a nevet. (=’többi lap oszlop’!$X$Y) de ilyenkor csak a cella hivatkozását másolja tovább (=’A1’!$X$Y … ’An’!$X$Y) nem a bele írt szöveget, ettől a képletem hibás lesz és nem hivatkozik jól.
Mi erre a megoldás?Megköszönnèm segìtsègetek,
Sanyi. -
Delila_1
veterán
válasz
atillaahun #16933 üzenetére
Mikor leáll, Ctrl+g-vel hozd be a VB szerkesztőben az Immediate ablakot. Írd be
?CV.row
Erre válaszként kapsz egy számot, a ciklusváltozónak a sorát. Lépj az Excelbe, és nézd meg ezt a sort. Akár billentyűzetről is kijavíthatod, majd futtathatod tovább a makrót. -
atillaahun
veterán
válasz
Delila_1 #16895 üzenetére
Tudnál még segíteni kicsit ebben a makróban?
A tegnapi pár százas mintára mikor ráeresztettem teljesen jól működött, viszont hogy azóta futtattam még további adatbázisokon is, néha megakad.
Run-time error '13':
Type mismatch
hibával, és ha a debug-ra nyomok, akkor az
If InStr(CV, "@") Then
sort jelöli ki sárga háttérrel a VB.
Ilyenkor is lefut valameddig a ciklus, és másol is ki címeket a Munka2-re, de változó helyeken megakad.
Valami hülye karakterek lennének a széttagolt adatbázisban, vagy mit jelent itt nála a mismatch?
Pedig még a tisztít függvényt is direkt végighúztam az egész listán széttagolás előtt.
Mivel sortörésekkel voltak tele az email-ek és ezeket kiszedte, vannak helyek, ahol rengeteg sort egybefűzött, és azok egy cellába kerültek. Lehet ez a baja, hogy túl hosszú bizonyos cellák tartalma, vagy mitől áll fejre? -
w.miki
veterán
válasz
Excelbarat #16925 üzenetére
azt gondoltam, hogy valamilyen formátum kóddal is meg lehet oldani, de így is jó, bár nem olyan szép kinyomtatva
-
Mutt
senior tag
Hello,
Ha Excel 2010-et használsz, akkor könnyedén lehet állítani a tizedesjelet és ezreselválasztót.
File menű -> SpeciálisA többi verzió esetén a Windows területi beállításait kellene módosítani.
Lehet, hogy ez is megoldja a problémádat.Ha mégis csere kell, akkor pedig javaslom hogy egy üres sztringet ("") fűzz az értékhez.
pl. 12,1 -> =HELYETTE(A1;",";".")&"" -> 12.1
Ilyenkor szövegként fogja tárolni a számot, aritmetikai műveleteknél nem fog gondot okozni, de logikai és összehasonlításoknál igen.üdv.
-
Bocimaster
csendes tag
válasz
Excelbarat #16924 üzenetére
huuu, és huuuu , wow....
köszi, nem semmi...
-
Excelbarat
tag
válasz
w.miki #16916 üzenetére
A oszlop adatait jobbra rendezed B oszlop adataid balra rendezed és beszúrsz közéjük egy új oszlopot amit feltöltesz kötőjelekkel, plusz még az segíthet ha kikapcsolod a munkalapon a rácsvonalakat vagy esetleg rajzolsz szegélyeket. (az a sok pont csak problémát fog okozni a későbbiekben....
)
-
Excelbarat
tag
válasz
Bocimaster #16918 üzenetére
Ez megoldja a problémád:
Sub masolo()
Application.ScreenUpdating = False 'kikapcsolja a képfrissítést így gyorsabb
Sheets.Add.Name = "Összes" 'beszúr egy összes nevű lapot
For i = 1 To ActiveWorkbook.Worksheets.Count
Sheets(i).Select
If Sheets(i).Name = "Összes" Then 'ha a lap neve összes akkor ugrik a következőre
Else
Range(Rows(4), Rows(19)).Copy 'kijelöli a 4-től 19-ig a sorokat
Sheets("Összes").Select 'átvált az összes lapra
u = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 'megkeresi az összes lapon az utolsó sort
Cells(u, "A").Select
Selection.PasteSpecial Paste:=xlPasteValues 'bemásolja
End If
Next i
Application.ScreenUpdating = True 'visszakapcsolja a képfrissítést
End Sub -
Excelbarat
tag
Ebben a hozzászólásban pont erre van válasz!
Annyi módosítást csinálsz, hogy miután ugrással kijelölted az üres cellákat azokat csak törlöd.
Egy másik megoldás (lehet inkább ez lenne az ideális neked), hogy B oszlopban beírod ezeket:
B1: 1
B2: 6
B3: 11 (lehúzod ameddig szeretné hogy majd kiírja)
A "C" oszlopban pedig ezt írod:
C1: =INDEX(A:A;B1;1) Így ezzel a "B" oszlop számaival egyező "A" oszlop sorú értéket ad vissza. (ezt is csak végighúzod)
Remélem valamelyik módszer jó lesz. -
Delila_1
veterán
válasz
zenefan #16920 üzenetére
Leírni hosszabb lesz, mint végrehajtani...
Vegyük, hogy az A oszlopban vannak a városaid, A1 a cím: Városok. B1-be beírsz egy címet: db.
B2 -> =DARABTELI(A:A;A2) Ezt lemásolod a többi városnév mellé.E1 -> db
E2 -> >2
G1 -> VárosMost kijelölöd az A oszlop tartományát, és behívod az irányított szűrést.
- Más helyre másolja
- Listatartomány, amit eleve beír
- Szűrőtartomány $E$1:$E$2
- Hova másolja $G$1OK.
A G oszlopban címsorostúúúl megjelennek a városok, amelyek legalább 3-szor szerepelnek az A oszlopban. Ezt a tartományt kijelölve indítod a kimutatás varázslót. A Város címet a sorokhoz, és az adatokhoz is behúzod, kész. -
zenefan
aktív tag
Nem volt időm minden hozzászólást végignézni, de hogy lehet EXCELben olyan diagramos kimutatást készíteni (tehát y tengely mutatja a DARABSZÁMOT, x tengely a TELEPÜLÉSEKET) hogy egy oszlopban lévő település nevekből kirajzolja / kiszámolja hogy hányszor szerepel benne pl. Budapest, Pécs, Miskolc... stb.
Az külön öröm lenne ha csak azokat rajzolná ki, amelyek pl. 2-nél többször szerepelnek az oszlopban.Köszönöm a figyelmet!
-
akyyy
senior tag
van egy oszlopom ahol igy néz ki kb a tábla:
XYZ
valami
[üres]
[üres]
[üres]
XZZ
valami
[üres]
[üres]
[üres]tehát az A1-ben van egy XYZ szöveg, majd az A6-ban, majd az A11-ben, és igy tovább
A B oszlopban egymás alá szeretném ezeket beirni hivatkozással, tehát igy:
=A1
=A6
=A11a gondaz, hgoy ha ezt lehúzom kitöltés szerüen, akkor az 11-es után szerinte ez jön: A4, majd A9, az A16-os helyett.... remélem érthető
-
Bocimaster
csendes tag
Sziasztok!
Egy kis macro-t keresek.
Lapokat szeretnék összefűzni az első lapra minden lapon 16 sort (4.-től)
pl:95 lapom van, a macro rögzitővel egy szintig eljutottam de a folyamatosság hiányzik......előre is köszi
-
MZsoltee
veterán
Sziasztok!
Régen 3-4 éve egész jól tudtam használni az excel. Szükségem lenne valamire, amivel felfrissíthetem a tudásomat. Nem tud valaki valami kis tanfolyam tutorial cuccost kezdőtől haladóig?
-
w.miki
veterán
válasz
detroitrw #16915 üzenetére
Hali!
Excel(2003)ben hogyan lehet megcsinálni, hogy egy cellában a sor végéig pontok legyenek egy oszlopban?
Egy szótár.xls-ról van szó, most így néz ki:
A----------------------B-----------------------------C--------------D
accompaniment kísérő / kiegészítő braise dinsztel hústilyenre szeretném:
A----------------------B-----------------------------C--------------D
accompaniment..kísérő / kiegészítő braise.......dinsztel húst -
Szia!
kipróbáltam, de hibát lök a futtatáskor
egy ilyennel oldottam meg:
A = ActiveCell.Row
B = ActiveCell.Column
ActiveSheet.Cells(A + 1, B + 0).Selectmivel ez csak 1 ciklus így adtam neki egy ciklus mennyiséget:
Private Sub xxxxx
For x = 1 To 1000
......
Next x
End Subnem olyan elegáns de megoldja a gondom
Köszi
-
Mutt
senior tag
válasz
detroitrw #16910 üzenetére
Hello,
...ez a makró A1-A2000 -ig végigfusson?
Az elején és a végén kell egy kicsit módosítani:
Dim blnHit As Boolean 'logikai jelző ha már létezik a vizsgált szám
Dim cell As Range
For Each cell In Range("A1:A2000")
arraySplit = Split(cell, strDelimiter)
...<itt marad az eredeti> ...
For i = 1 To UBound(arrayResult, 2)
Cells(cell.Row, cell.Column + i) = arrayResult(1, i) & " db - " & arrayResult(2, i)
Next i
Application.ScreenUpdating = True
End If
Next
End Sub -
G.A.
aktív tag
Üdv!
Egy idegesítő problémába ütköztem.
Egy táblában a vesszős számokat pl 5,5 4,5 ... stb. kellene átalakítanom 5.5 ill. 4.5 re.
A gondom csak az, hogy az a ........... automatikus dátum ........... -ág mindig elrontja nekem. A csere funkció sem jó mivel akkor is 40000-res értékeket kapok, szóval először váltja dátumra, aztán normálisan próbálja meg kiírni. A cellát már próbáltam szövegként is formázni, de ekkor sem megy.
A net(google) meg szintén nem segített.... Főleg így hajnali fél 3kor.... (Aludni kéne, de az sem megy.)
GA
-
madd dogg
senior tag
Hi.
Van AP visszajelző oszlopom, amiben függvények segítségével 4 betű szerepelhet, x, y, z, és w. Ezen négy betűhöz hozzárendeltem négy színt, adott betű esetén adott színnel töltődik ki a cella. Én azt szeretném, ha a betű maga nem látszana. Van rá mód, hogy egy betűt színtelenné tegyek?
Próbálkoztam létrehozni AQ oszlopot, ami másolja AP kitöltőszínét, de ehhez sem képletet, sem feltételes formázást nem ismerek. Tud valaki segíteni?
-
Mutt
senior tag
válasz
detroitrw #16893 üzenetére
Hello,
adott:
A1=1603+1603+640+640+640+388+388 -> pl. B1=2db - 1603Gondolom a számok is változnak (nem mindig csak 1603, 640 és 388 ismétlődik), ezért csak függvényekkel megoldani körülményes, javaslatom a lenti makró (mindig csak a kijelölt cellát vizsgálja):
Sub Szetszed()
Dim arraySplit
Const strDelimiter As String * 1 = "+" 'tagolás jele
Dim arrayResult() 'itt lesznek a darabszámok és a számok/karakterek
Dim c As Long, i As Long
Dim blnHit As Boolean 'logikai jelző ha már létezik a vizsgált szám
arraySplit = Split(ActiveCell.Value, strDelimiter)
If IsArray(arraySplit) And UBound(arraySplit) > 0 Then
ReDim arrayResult(1 To 2, 1) 'találat létrehozása
arrayResult(1, 1) = 1 '1 db
arrayResult(2, 1) = arraySplit(0) 'első érték megjegyzése
'további számokon végigfut
For c = 1 To UBound(arraySplit)
blnHit = False
i = 1
Do
'ha már van ilyen szám, akkor eggyel növeljük a számlálót
If arraySplit(c) = arrayResult(2, i) Then
arrayResult(1, i) = arrayResult(1, i) + 1
blnHit = True
End If
i = i + 1
Loop Until blnHit Or i > UBound(arrayResult, 2)
'ha még nincs ilyen akkor megjegyezzük a számot
If Not blnHit Then
ReDim Preserve arrayResult(1 To 2, UBound(arrayResult, 2) + 1)
arrayResult(1, UBound(arrayResult, 2)) = 1
arrayResult(2, UBound(arrayResult, 2)) = arraySplit(c)
End If
Next c
Application.ScreenUpdating = False
For i = 1 To UBound(arrayResult, 2)
Cells(ActiveCell.Row, ActiveCell.Column + i) = arrayResult(1, i) & " db - " & arrayResult(2, i)
Next i
Application.ScreenUpdating = True
End If
End Subüdv.
-
Mutt
senior tag
válasz
artiny #16865 üzenetére
Hello,
most egy olyan függvényt keresek ami megtalalja abszolut ertekben a 2 legnagyobb erteket
Excelbarát megoldása rendben műkődik, amíg a számok között nincs ismétlődés (esetedben is csak akkor van gond, ha a maximum pl. 9 többször szerepel).
Ha ez nem okoz gondot, akkor NAGY(tartomány;2) kell neked, ha CSE függvényként viszed fel akkor még a segédoszlopra, ahova az abszolút értéket teszed sincs szükség:
{=NAGY(ABS(tartomány);2)}
Ha viszont tényleg a második legnagyobb szám kell, akkor kell egy segédoszlop vagy egy UDF.
A segédoszlopba (pl. B1) ez a képlet kell (adatok A1.A8-ban vannak):
=(ABS(A1)<>MAX(ABS(MAX($A$1:$A$8));ABS(MIN($A$1:$A$8))))*ABS(A1)A segédoszlop maximuma lesz a 2. legnagyobb érték, amit keresel.
üdv.
-
Mutt
senior tag
válasz
atillaahun #16876 üzenetére
Hello,
Olyan függvény van, ami megszámolja, hogy bizonyos karakter/kifejezés hányszor szerepel egy cellában?
Erre a megoldás, hogy megszámolod mennyivel lett rövidebb a szöveged, ha törőlted belőle a kivánt karakter(eke)t.
A képlet (A1-ben az eredeti szöveg, B1-ben a keresendő karakter(ek):
=(HOSSZ(A1)-HOSSZ(HELYETTE(A1;B1;"")))/HOSSZ(B1)üdv.
-
Delila_1
veterán
válasz
atillaahun #16904 üzenetére
Lehet, hogy tényleg gyorsabb szövegfüggvényekkel.
B1: =KÖZÉP(A1;SZÖVEG.KERES("<";A1)+1;256)
C1: =BAL(B1;SZÖVEG.KERES(".hu";B1)+2) -
atillaahun
veterán
Nah jó lesz ez, még a .hu után lévőket levagdosom róla közép-pel, ami 1-2-nek az elejére ráragadt azt meg kitörlöm kézzel.
Ismételten köszönöm a hathatós segítséget. -
atillaahun
veterán
válasz
Delila_1 #16900 üzenetére
Ezt így hirtelen fogalmam sincs hogy kell, de már végülis kivágtam a címeket <-től >-ig, amibe nem volt, azt meg hahiba-val visszaadtam. Így most nagyjából 95%+ -os, a maradékot meg asszem kiírkálom kézzel.(#16902) Delila_1
Oké. Mindjárt meglátom akkor így mi marad belőle. -
Delila_1
veterán
válasz
atillaahun #16899 üzenetére
Előbb pucold ki a szemét karaktereket.
Az előbbi makró végére:Columns("A:A").Select
Selection.Replace What:=")", Replacement:="", LookAt:=xlPart
Selection.Replace What:=":", Replacement:="", LookAt:=xlPart
Selection.Replace What:=">", Replacement:="", LookAt:=xlPartstb. Ez sok szemetet eléget.
-
Delila_1
veterán
válasz
detroitrw #16898 üzenetére
Szövegből oszlopok, határoló jel a + jel. Ez a példád szerint az A1-be írt adatot szétszedi az A1:G1 tartományba.
Könnyítésként soronként egy függvény megszámlálja, hogy hány féle adat van a sorodban.
=SZORZATÖSSZEG((A1:G1<>"")/DARABTELI(A1:G1;A1:G1))Utána már a darabteli függvénnyel megszámolhatod az egyes adatokat soronként.
J1 -be =DARABTELI($A$1:$G$1;1603)
K1-be =DARABTELI($A$1:$G$1;640)
L1-be =DARABTELI($A$1:$G$1;388)
Új hozzászólás Aktív témák
Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- Tuningmesterek, teszterek, figyelem! Itt a Thermal Grizzly spéci tesztpadja!
- One otthoni szolgáltatások (TV, internet, telefon)
- Milyen videókártyát?
- Kerékpárosok, bringások ide!
- Milyen légkondit a lakásba?
- Kedvenc zene a mai napra
- Kerti grill és bográcsozó házilag (BBQ, tervek, ötletek, receptek)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Path of Exile 2 early access kulcs
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- HIBÁTLAN iPhone 14 Pro Max 128GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3146
- 120 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070 - 4 év garancia
- Apple Watch SE 2020 ezüst, 44mm // Számla // Garancia // Válaszható szíj //
- Vadiúj videókártyák! Kamatmentes rèszletre is! Èrdeklődj!
- HIBÁTLAN iPhone 15 Pro Max 256GB Black Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3005
Állásajánlatok
Cég: FOTC
Város: Budapest