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();))

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

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

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

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

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...

OK, így működnie kell.

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

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

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.

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.

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.

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)

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

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

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

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

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

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

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!

F1-be egy képlettel esélytelen?

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

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)

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)

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

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

Igazad van!

Kösz, bcs!

nincs mit