Bocs, az csak benne maradt a nálam levő képletből - sajnálom. Az is természetesen az A1.

Mégegyszer sorry.

no, beírtam a
=KEREK.FEL(A1*1,2;-2)-HA(KEREK.FEL(C241*1,2;-2)-C241*1,2>50;110;10)
képletet, de #érték! az érték... valami ötlet?

[ Szerkesztve ]

═════════════════════════════════════════

Szia!

Ha már C241 van a végén, akkor az elején is annak kellene lennie az A1 helyén!

De miért nem használod a KEREKÍTÉS függvényt, az kapásból jól kerekít le és fel:

=KEREKÍTÉS(C241*1,2;-2)-10

Ha pedig 30-tól szeretnél már felfelé kerekíteni, akkor

=KEREKÍTÉS(C241*1,2+30;-2)-10

Üdv.

Működik, de már a 120-at is felfelé kerekít, módosítottam a 30-at 20-ra, így már más, de mág tezstelem

tehát =KEREKÍTÉS(S241*1,2+20;-2)-10 ez most így jó?

═════════════════════════════════════════

Szia!

Szerintem a +25 lehet a nyerő, de teszteléssel jobban megtalálhatod.

Üdv.

Szisztok!
Azt lehet egyszerűen, hogy a cellába kattintva az aktuális idõ jelenjen meg?

TV Box Amlogic S905X4 4GB+64GB 8K 2.4G/5G X96Max, OnePlus Nord2-5G, "P."

Sziasztok!

Egy tök egyszerű dologgal szívok. Egy xls fájlból szeretnék egy tartományt (C2640) átmásolni egy xlsx fájlba adott munkalapra úgy, hogy a kezdő cellát adom meg Range(Cells(sorokszama, 3))

Hogy a fenébe lehet?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Target.Value = Time()
End Sub

A target.address után azt a cellát írd, amelyikbe kattintva akarod, hogy megjelenjen az idő.

Szia!

Range("C26:C40").copy workbooks(ujfájlneve).sheets(ujsheetneve).cells(sorokszama,3)

Üdv.

azt
szeretném, hogy amikor egy cellában létrehozok egy egyéni számformátumot,
abban legyen felsőindexben a mértékegység megfelelő része.
Addig megvan, hogy Formátum/Cellák.../Szám/Egyéni... Itt beírom, Hogy
0"cm2", no ebből hogy lesz "négyzetcentiméter"?

köszönöm

Illetve hogyan lehet cellába 0 írni amivel tudok számolni

Bassz***** ez ilyen egyszerű?!
Az zavarhatott be, hogy beírtam a copy után, hogy Destination:=

Köszönöm szépen!

És azt hogy lehet megcsinálni, hogy egy cella tartalmát "L13" több cellába másoljam be pl "B210"?

Szia!

Szinte ugyanúgy:
range("L3").copy range("B2:B10")

Amúgy a Destination:=range("B2:B10") is ugyanúgy kell, hogy működjön, az nem lehetett a hiba oka szerintem.
Inkább a cél meghatározása volt helytelen.

Üdv.

0"cm²"

You are being revived

"Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Target.Value = Time()
End Sub"

Kösziii, de mit is csinálok ezzel??????

[ Szerkesztve ]

TV Box Amlogic S905X4 4GB+64GB 8K 2.4G/5G X96Max, OnePlus Nord2-5G, "P."

Szerintem jobb pl. duplaklikkhez rendelni az idő bevitelét. Laphoz rendeld a makrót:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Target.Address) = Time
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Lapfülön jobb klikk, Kód megjelenítése.
Már ott is vagy, ahol kell. Bal oldalon látszanak a lapjaid, és az van kijelölve, amelyikhez a makrót akarod rendelni. Jobb oldalon szép nagy üres lap, oda másold be a 3 sort, amit írtam.
Nyomás vissza az Excelbe. Duplaklikk egy cellán, ott az aktuális idő.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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.

Ésss makróbarát excel munkafüzetként mentsd majd el.

Üdv!
Excel 2010-ben hogyan lehet egész oszlopra érvényes képletet a leggyorsabban beírni?
Új nagyker táblázat jön(gyakran) és a szorzásokat eddig lehúzással másoltam át,de már nagyon unom,nagy a termékszám,hosszadalmas (pl.: C1=A1*X, a megoldás után a C55000 is be legyen szorozva X-el).
Lehet,hogy ez banális kérdés de nem leltem barátra a googleben erre

A képletet tartalmazó cella jobb alján lévő kis fekete négyzetre duplán kattintasz, és kész.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok
Segítsetek! Meg lehet azt oldani makróval,hogy:
Adott egy x(pl: 60 munkalapból àlló munkafüzet
Meg kellene oldani, hogy az összes munkalapon a AL1:AO49 tartományban az utolsó oszlop 0nàl nagyobb ra szűr majd a szűrt erednényt màsol majd egy tetszőleges munkalapra beilleszti (irányított) csak értéket. De ezt kérdès nélkül a munkafüzet összes lapjára tegye meg

Ennél a sornál az idézőjelbe annak a munkalapnak a nevét írod amelyikre az eredményt másolni szeretnéd.
Set eredmeny = ThisWorkbook.Worksheets("eredmeny")

Itt is kijavítod az eredmeny-t a munkalap nevére és ha nem az A tartományba akarod kiiratni az eredményt azt is megváltoztathatod (lényeg, hogy 4 oszlopnyi tartományt adj meg)
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)

Option Base 1
Sub nagyobbnulla()
Dim tomb()
ReDim tomb(4, 1)
Set eredmeny = ThisWorkbook.Worksheets("eredmeny")
j = 1
For Each ws In Worksheets
For Each cella In ws.Range("AO1:AO49")
If cella.Value > 0 Then
For i = 1 To 4
tomb(i, j) = ws.Cells(cella.Row, cella.Column - (4 - i)).Value
Next
ReDim Preserve tomb(4, j + 1)
j = j + 1
End If
Next
Next
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)
End Sub

[ Szerkesztve ]

Na szóval:

Itt is kijavítod az "eredmeny"-t a munkalap nevére és ha nem az A:D tartományba akarod kiiratni az eredményt azt is megváltoztathatod (lényeg, hogy 4 oszlopnyi tartományt adj meg)
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)

[ Szerkesztve ]

Úgy látszik már késő van (vagy már korán)

Set eredmeny = ThisWorkbook.Worksheets("eredmeny")
eredmeny.Range("A1:D" & j).Value = Application.Transpose(tomb)

Helyesen:

Vagy minden eredmeny-t átírsz a munkalapod nevére vagy csak az idézőjelben lévőt.
Vagy csinálsz egy eredmeny nevű munkalapot és hagyod az egész makrót a fenébe úgy ahogy van.

Óriási köszönet!
Ezt az egyszerű módszert sehol se találtam.

Szívesen.

Annyi kiegészítés hozzá, hogy addig másolja a képletet, ameddig a mellette lévő oszlopban bármilyen adatot (akár képletet) talál. Foghíjas oszlop mellett az első üres cella fölötti sorig másol.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Hálás köszönet èrte. Majd ha asztali gép közelébe jutok lepróbálom. Mégegyszer köszi.

Szivesen.

Sziasztok!

Segitseget szeretnek kerni!
Jovoevi szabi riportot szeretnek csinalni es egyszeruen nem tudok rajonni milyen fuggvennyel csinaljam meg!
Az eves szabibol vonja ki azokat amiket en beirok. ( ahogy a kepen is latszik )

[link]

( Szegyellem magam mert 5 evig tanultam az excelt de annyira regen hasznaltam hogy nem jut eszembe )

Elore is koszonom a segitseget!

Q7 képlete:

=B7-SZUM(D7:O7)

[ Szerkesztve ]

Bazz ....

Koszonom szepen!

Szivesen

Először is nagyon köszönöm az eddigi segítséget, ami itt kaptam, főleg Delila-tól és Fferi-től, sokat segítettetek!

Most újabb kérdésem volna, vajon miért dob hibát erre a soromra:

y = Range("rel_ev")

y az egy Long, rel_ev pedig egy név, mégpedig relatív:
=ÉV(Munka1!$G19)

G19-ben pedig egy dátum van. Azazhogy minden sor G oszlopában egy dátum van.

[ Szerkesztve ]

Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=Wyll

Részemről szívesen.

Ne tedd idézőjelbe a rel_ev-et.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

sziasztok tudtok segíteni?

Selection.AutoFilter Field:=4, Criteria1:=">0"
usor = Range("AY2").End(xlDown).Row
Range("AY2:BD" & usor).Select
Selection.Copy

nem tudom megoldani hogy a nem 0 értékeket szűrje mert ha a criteia-hoz <>0 írok akkor nem csinál semmit hanem az egész tartományt kijelöli viszont a >0 val az a baj hogy vannak negatív értékek is. és azt nem hozza.
ötlet? mit lehet tenni, hogy a nem nulla értékeket szűrje

[ Szerkesztve ]

Szia!

Biztos, hogy számok vannak abban az oszlopban mindenütt, ahol a <>0 kritériummal szeretnél szűrni? Próbáld ki a szűrést "kézzel" a menüből, akkor kiderül a turpisság.
Mert egyébként nálam szépen szűri a számokat azzal a feltétellel is.

Ha másolni akarsz, egyszerübb a
range("AY2:BD" & usor).specialcells(xlcelltypevisible).copy range.akármi
ahol az akármi helyébe írod a másolás célértékét. A szűrés után a látszó cellákat ezzel a módszerrel másolhatod át.
Nem kell a select....Sokszor hibát is okoz.

Üdv.

Képletek vannak abban a cellában. Manuálisa ha kiveszem a pipàt a 0 elől a szűrésnél akkor fain.

Szia!

És ha a manuálist szűrést makrórögzítővel "felveszed", akkor mit látsz a makróban?

Üdv.

Sziasztok!

Létezik valamilyen módszer arra, hogy több cella tartalmát betudom másolni egy cellába és mindezt tömegesen??

ÖSSZEFŰZ() függvény, vagy az ezzel egyenértékű & operátor.

Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=Wyll

Próbáld az ÖSSZEFŰZ() fv-t (angolban CONCATENATE())

Vagy egyszerűen a & karaktert

Ha ettől bonyolultabb a dolog akkor adj egy kicsit több részletet!

Köszönöm a segítséget mindkettőtöknek

Annyi probléma merült még fel, hogy ezt a szöveget egybe fűzi. Nem lehet beállítani, hogy az összefűzött cellák között maradjon szóköz?

A válaszomban a képen a szerkesztőlécen lévő mintát kövesd:

=A3&" "&B3&" "&.....stb stb

Az idézőjelek közötti szóközöket fogja beilleszteni a cellaértékek közé.

Siker

Grat...

Hali!
2 szöveget kellene összefűznöm makróban simán + jel? Olyan kellene mint az összefűz a táblában.
Másik kérdés: Van olyan függvény ami szóközzel egészíti ki egy szöveget hogy elég hosszú legyen?
Attila

Hardver hibára ritkán van jó szoftver...

Megvan köszi!

Hardver hibára ritkán van jó szoftver...