Sziasztok!

Szeretném a segítségeteket kérni! A megoldandó dolog a következő: az A1 cellában van egy szám (pl. 241), a B1 cellában egy név (X.Y.) és azt szeretném, ha a C1 cellában az aznapi dátum jelenjen meg amikor vagy a számot vagy a nevet beírom.

Köszi:Airyca

=HA(A1;MA();HA(B1;MA();))

So it goes… We stand alone by standing stones and turn them into circles.

Hi!

Most már csak az a gondom, hogy a dátum ne is változzon. Ugyanis ha így beírom, akkor másnap szépen átállítódik a dátum. Viszont azt szertném, ha hozzárendelem adott cellákhoz az aznapi dátumot, akkor az ne változzon meg a következő nap.

Valaki???

Köszi:Airyca

Egy makrót írsz amit napvégén lefuttatsz: dátum terület kijelöl; irányított beillesztés; értéket ugyanarra a területre. így a képlet eltűnik, többé nem számol. Ha valaki tud függvényből megoldást, engem is nagyon érdekel.

Üdv!

Jobb klikk a worksheet fülön, Kód megjelenítése

aztán ezt beilleszt

Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Value <> '''' And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = ''yyyy/mm/dd''
End If

End Sub

So it goes… We stand alone by standing stones and turn them into circles.

Bocs... v1.1

Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Value <> '''' And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = ''yyyy/mm/dd''
Target.Activate
End If

End Sub

So it goes… We stand alone by standing stones and turn them into circles.

Azért szólhatnál, hogy most ez megfelel-e vagy nem :/

So it goes… We stand alone by standing stones and turn them into circles.

Szia!

Bocsánat, hogy eddig nem jelentkeztem!

1× is, köszi a segítséget!

Beillesztettem amit írtál, de nálam, ahogy beírok valamit az egyik cellába és lépek a másikba kiírja, hogy syntax error...

Aha... tudom is, miért... A prohardver hozzászólás-modul kicseréli az idézőjelet két aposztrófra. Próbáld korrigálni

So it goes… We stand alone by standing stones and turn them into circles.

No, próbálom újra...


Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Value <> "" And (Target.Column = 1) Or (Target.Column = 2) Then
Cells(Target.Row, 3).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = "yyyy/mm/dd"
Target.Activate
End If

End Sub


Most & q u o t ;-ot írtam '' helyett, hátha így nem javítja ki...

So it goes… We stand alone by standing stones and turn them into circles.

OK, így működnie kell.

So it goes… We stand alone by standing stones and turn them into circles.

ja igen, és ha 'kód megjelenítése' után benne van a kurzor

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ITT
End Sub

van, akkor klikkelj ki belőle, mielőtt beilleszted a makrót

So it goes… We stand alone by standing stones and turn them into circles.

Kipróbáltam, visszamásoltam.
Magyar Office97 és angol Office XP alatt működik, úgyhogy remélhetőleg a köztük lévő összes többin is
Ha mégsem, akkor tényleg nincs több ötletem

So it goes… We stand alone by standing stones and turn them into circles.

Müködik, köszönöm szépen, hogy segítettél!

Ment egy mail is, de most már az felesleges akkor...
Szívesen.

So it goes… We stand alone by standing stones and turn them into circles.

Nem érkezett még emil, pedig kíváncsi vagyok, hogy mit írtál. Tudom tipikus női tulajdonság és még hamar meg is öregszem

Nincs benne semmi izgalmas, nem írtam szerelmes verset Sajnálom...
Csak egy excel fájlt csatoltam, ugyanezzel a megoldással.

So it goes… We stand alone by standing stones and turn them into circles.

nem is vártam szerelmes verset

Számíthatok később is a segítségedre, ha gondom akad?

Nem.

Persze És mindenki máséra is, szerintem.

So it goes… We stand alone by standing stones and turn them into circles.

Kedves Excelben Excellálók! (nylvszk kmljtk)

plíz segítsetek:

szitu: Van ugye az 1.sor, ahova bekerült a változónév, alattuk az adatok.
probléma: Ha megtelik egy képernyőnyi sor, a változónév ugye eltűnik, pedig jó lenne látni
kérdés:
1) lehet-e az oszlopoknak alternatív címkét adni (a változónevet), és hogyan?
2) be lehet-e állítani, hogy az első sor együtt gördüljön a kerettel.

Köszi.

Odaklikkelsz a címsor alatti, utolsó oszloptól jobbra lévő cellába, Ablak/Ablaktábla rögzítése (Freeze Panes)

So it goes… We stand alone by standing stones and turn them into circles.

Hurrá, sikerült!

Köszönöm!

Mégegy kérdés:

van 5 oszlop adat, pl:

10,13,12,15,10

arra vagyok kíváncsi, milyen képlettel lehet összegezni csak az előző értékhez való negatív eltéréseket (elnézést, ha nem elég matekos).

tehát az előző sorból van egyszer a 13-12 (1) és a 15-10 (5) ezek összege 6.

Köszi

Na várj, pontosítsunk.

10
13
12
15
10

Így van? és hova kellene tenni az eredményt?
A példádban természetesen =A2-A3+A4-A5, de nem tudom, hogy gondolod

So it goes… We stand alone by standing stones and turn them into circles.

Pl:

A1 A2 A3 A4 A5 A6
10 13 12 10 11 3 - ez a megoldás jelen esetben (13-12)+(12-10)

Hát akkor ez stimmel. Azt hittem, valami bonyolultabb

So it goes… We stand alone by standing stones and turn them into circles.

jajaj, elcsusszant...

szóval sorban vannak az adatok egymás mellett. és mégmelléjük jönne ugye a képlettel felfegyverzett cella.

Az a baj, hogy nem kiszámítható, hogy melyik oszlopban milyen szám lesz, és nekem csak a balról jobbra haladva negatív különbségek kellenek, tehát lehet, hogy egy sem lesz, ha végig csökken a sorozat, akkor mindegyik negatív

Pl:

10/11/13/15/16 =0
16/10/10/10/10=6

Ja értem, OK. Azt lehet tudni előre, hogy HÁNY szám lesz? Hány oszlop

So it goes… We stand alone by standing stones and turn them into circles.

Vagy mégsem. Hogy lesz ebből 0?

(10-11)+(11-13)+(13-15)+(15-16)=-1+-2+-2+-1=-6 nálam

So it goes… We stand alone by standing stones and turn them into circles.

5 oszlop van, és úgy lesz 0, hogy a sorozat monoton növekvő, tehát balról jobbra egyre nagyobbak a számok, így visszaesés (ezaz!) nincs. Az összvisszaesés mennyiségét szeretném tk. kiszámolni.

az, hogy hány adat van, az fix?

5 adat van sorban egymás mellett, nagyon fontos a sorrendiségük, hiszen:

10/16/10/10/10 =6 hat az össz csökkenés
10/10/10/10/16 =0 nincs csökkenés

OK, már értem, csinálom, kis türelem

So it goes… We stand alone by standing stones and turn them into circles.

tfh: A1, B1, C1, D1, E1 adatok, ekkor

A2: IF((A1-B1)<0;(A1-B1);0)
B2: IF((B1-C1)<0;(B1-C1);0)
C2: IF((C1-D1)<0;(C1-D1);0)
D2: IF((D1-E1)<0;(D1-E1);0)
E2: SUM(A2..B2)

egyszerűbben is lehet.

Godlike! Bérmunka rulez!

¤ Most már biztos: teljesen normális vagyok! ... ... ... ... ... ... ... ... ... ... ... ... ... ... Mondták itt ezek a hangok is a fejemben. :)) ¤ My IP is: 127.0.0.1

F1-be egy képlettel esélytelen?

Ja, ez jó, csak mehet egy képletbe az egész

So it goes… We stand alone by standing stones and turn them into circles.

De, nyilván
=HA((A1-B1)<0;(A1-B1);0)+HA((B1-C1)<0;(B1-C1);0)+HA((C1-D1)<0;(C1-D1);0)+HA((D1-E1)<0;(D1-E1);0)

So it goes… We stand alone by standing stones and turn them into circles.

Mert sok sok ilyen sorozatom van egymás alatt

Köszi, ezt kipróbálom!

Ja igen, most látom, te fordítva kérted:

=HA((A1-B1)>0;(A1-B1);0)+HA((B1-C1)>0;(B1-C1);0)+HA((C1-D1)>0;(C1-D1);0)+HA((D1-E1)>0;(D1-E1);0)

So it goes… We stand alone by standing stones and turn them into circles.

És aztán megfogod az F1 jobb alsó sarkát, és elkezded húni lefelé.

So it goes… We stand alone by standing stones and turn them into circles.

Köszi, most akartam elkámpicsorodni

Működik!!!

Mégegyszer nagyon köszönöm, ez nekem nem ment volna.

Köszönd bcs-nek, ő gyorsabb volt

So it goes… We stand alone by standing stones and turn them into circles.

Igazad van!

Kösz, bcs!

nincs mit