[Delila]

illusion

Első lépésként meg kell szüntetned minden olyan cella zárolását, amelyikbe engedélyezni akarod a beírást. Ezután bemásolod a laphoz a makrót.

Private Sub Worksheet_Change(ByVal Target As Range)
   'feltételek (M oszlop, A érték)
   If Target.Column = 13 And Target.Value = "A" Then
   
      'a lapvédelem feloldása a makró futásának idejére
      ActiveSheet.Protect UserInterfaceOnly:=True
      
      'az aktuális sor zárolása
      Rows(Target.Row).Locked = True
      
      'lapvédelem beállításai
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
      ActiveSheet.EnableSelection = xlUnlockedCells
   End If
End Sub

A fórummotor kissé sajátságosan színezi a kódot , rá se ránts.
Írtam magyarázatokat a sorokhoz.

[illusion]

Idézet: Delila - Dátum: 2011. 01. 09. 08:49

illusion

Első lépésként meg kell szüntetned minden olyan cella zárolását, amelyikbe engedélyezni akarod a beírást. Ezután bemásolod a laphoz a makrót.

Private Sub Worksheet_Change(ByVal Target As Range)
   'feltételek (M oszlop, A érték)
   If Target.Column = 13 And Target.Value = "A" Then
   
      'a lapvédelem feloldása a makró futásának idejére
      ActiveSheet.Protect UserInterfaceOnly:=True
      
      'az aktuális sor zárolása
      Rows(Target.Row).Locked = True
      
      'lapvédelem beállításai
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
      ActiveSheet.EnableSelection = xlUnlockedCells
   End If
End Sub

A fórummotor kissé sajátságosan színezi a kódot , rá se ránts.
Írtam magyarázatokat a sorokhoz.

Köszönöm szépen!!!! Működik! Ha a lapvédelem feloldását jelszóhoz szeretném kötni, akkor csak javítanom kell erre?:
-----ActiveSheet.Protect DrawingObjects:=True, Password:"jelszó", Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub
----mert így nem kéri a "jelszó"-t.

[1985]

Helló!
A problémám a következő lenne.
Cégünk szállitóleveleit excel segítségével szerkesztjük, naponta frissülő adatbevitellel.
A helyzet a következő: a mai nap folyamán, amikor megnyitottam a dokumentumot egy fél évvel ezelőtti szállítólevelet dobott ki "legfrissebb adatként". Fogalmam sincs hová tűntek a többi adatok a tegnapi nappal bezárólag. Tudtok segíteni hol kereshetem elő? Vagy mi történhetett?

Előre is köszönöm.
Üdv!

[Delila]

illusion

Kissé megkésve, de nagy szeretettel:

Private Sub Worksheet_Change(ByVal Target As Range)
    'feltételek (M oszlop, A érték)
    If Target.Column = 13 And Target.Value = "A" Then
        'a lapvédelem feloldása a makró futásának idejére
        ActiveSheet.Unprotect Password:="jelszo"
  
        'az aktuális sor zárolása
        Rows(Target.Row).Locked = True
      
        'lapvédelem beállításai
        ActiveSheet.Protect Password:="jelszo", DrawingObjects:=True, _
            Contents:=True, Scenarios:=True
    End If
End Sub

[illusion]

Idézet: Delila - Dátum: 2011. 01. 12. 18:35

illusion

Kissé megkésve, de nagy szeretettel:

Private Sub Worksheet_Change(ByVal Target As Range)
    'feltételek (M oszlop, A érték)
    If Target.Column = 13 And Target.Value = "A" Then
        'a lapvédelem feloldása a makró futásának idejére
        ActiveSheet.Unprotect Password:="jelszo"
  
        'az aktuális sor zárolása
        Rows(Target.Row).Locked = True
      
        'lapvédelem beállításai
        ActiveSheet.Protect Password:="jelszo", DrawingObjects:=True, _
            Contents:=True, Scenarios:=True
    End If
End Sub

Ha hölgy vagy: Imádnivaló vagy!
Ha srác: Köszönöm szépen !!!

[Delila]

illusion

Nagyon szívesen.
(Hölgy vagyok)

[Lacy1]

Sziasztok!

Egy kis gondom adódott az Excel-lel, a gondom a következő lenne.
Egy dátumból szeretném kiszedni a hónapok számát, ezt a következő képpen tettem JOBB(HÓNAP(C4);2, én ettől azt vártam, hogy a hónap számát 2 karakterrel adja meg (pl.: 2010.01.22 dátum esetén az eredmény 01), ám így az eredményem 1 lett.
Valamit ez esetben nem jól csináltam?

Segítségeteket előre is köszönöm!
Lacy

[Delila]

Lacy1


Így add meg a képletet: =JOBB("0"&HÓNAP(A1);2)

Szerkesztette: Delila 2011. 01. 23. 17:30 -kor

[szabi]

Nekem is időformátummal gyűlt meg a bajom.
Miképp lehet rávenni, hogy tizedmásodpercekkel is számoljon?
Mert jelenleg nem teszi, csak ezt ismeri: "HH:MM:SS"

Üdv
szabi

[Delila]

szabi

A formátumot az egyéni kategóriában add meg, így: óó:pp:mm,00
illetve hh:mm:ss,00

[chbs]

Sziasztok!
Segítséget szeretnék kérni.
A problémám leegyszerűsítve: van két táblám (sheet). Az első tábla "A" oszlopában számok vannak, pl A1 - 1, A2 - 2, A3 - 3, A4 - 4, stb. A második táblámban az egyik cellában hivatkozok az első tábla egy adott mezőjére, pl. =Munka1!$A$3, vagy =Munka1!A3 (eredmény=3). Az a gondom, hogy ha az első tábla első sorát kitörlöm, akkor a második táblában a képletet az excel átírja (átszámítja) =Munka1!$A$2, illetve =Munka1!A2 -re, és így az eredményem 3 lesz, holott nekem továbbra is az aktuális A3 mező értékére (jelen esetben ennek tartalma a 4)lenne szükségem. Hogy kell a cellára hivatkoznom, hogy az Excel sortörléskor ne írja át a hivatkozásomat?
Segítségeteket előre is köszönöm.

[Delila]

chbs

A Prog.hu-n már megkaptad a választ.

[chbs]

Idézet: Delila - Dátum: 2011. 02. 12. 13:47

chbs

A Prog.hu-n már megkaptad a választ.

Igen, mególdodott a probléma, köszönöm.

[illusion]

Sziasztok! Szia Delila!

1. A kérdésem az lenne, hogy a cellába való beíráskor eddig Alt + lefele nyíllal választhattam az eddig beírtak közül, valami miatt most nem tudok. Mi az oka?

2. Az auto-szűrő bekapcsolásakor a sorok dátumok szerinti sorbarendezése nem mindíg 100%-os. Tehát az "A" oszlopban csak dátumok szerepelnek, és ha rászűrök, nem biztonságos a sorba rendezése.

Segítenétek?

[Steve G]

Kedves Felhasználók!

Sajnos csak kezdő vagyok az excel használatában, így segítségért fordulok hozzátok.
Van két cella, amelyekre ráhelyeztem egy-egy jelölőnégyzetet (D4 és E4). Az F4-es cellában szerepel egy szám (1000).
Szükségem lenne egy olyan képletre, amely (mondjuk a G4-es cellába)

• 0-t ír, ha egyik négyzet sincs bejelölve
• 1000-et ír, ha a D4-es négyzet van csak bejelölve
• ha mindkét négyzet be van jelölve, akkor írja be az F4-es cellában szereplő összeg 50%-kal növelt értékét.

Az első két esetet még megoldottam, de a harmadikkal már nem boldogulok.

Előre is köszönöm a segítségeteket!

Steve G

[Delila]

Steve G

A jelölők csatolása gondolom, a D4 és E4 cellákban van.
Olyan is előfordulhat, hogy csak az E4-es jelölt, erre az esetre nem vonatkozott a kérdésed, de a lenti képlet alapján biztosan meg tudod oldani.

=HA(ÉS(D4;E4);F4/2;HA(ÉS(D4;NEM(E4));F4;0))

D4 üres, E4 jelölt esetén (látszólag) üresen marad a képletet tartalmazó cella:
=HA(ÉS(D4;E4);F4/2;HA(ÉS(D4;NEM(E4));F4;HA(ÉS(NEM(D4);E4);"";0)))

Szerkesztette: Delila 2011. 02. 25. 19:42 -kor

[Steve G]

Köszönöm a segítséget!

[Delila]

Steve G

Szívesen.

[illusion]

Sziasztok!
Két kérdésem lenne: milyen módszerrel tudom megoldani, hogy ha

1. Adott táblázatban ez egyik cellájába beírjuk: "GTR", akkor a balról mellette lévő cellában lévő adat mondjuk 10-es betűméretű és piros színű legyen, valamint a "GTR" bejegyzés kék és mondjuk 12-es vastag betűméretű legyen.

2. Egyik cellába beírjuk, hogy "Mici" akkor a cella egész sora kapjon egy piros keretet.

Próbáltam a feltételes formázást, de a másik gépünkön régebbi verziójú excel van, az pedig nem ismeri fel ezt a feltételes formázást.

Köszi előre is!

[Delila]

illusion

A lenti makrót ahhoz a laphoz kell rendelned, amelyik lapon ezt az automatikus formázást létre akarod hozni. Lapfülön jobb klikk, Kódlap megjelenítése. A VB szerkesztőben jobb oldalon kapott üres lapra másold be.

Itt a "Micis"-s sorok szegélyét piros színre állítottam. A 4 ColorIndex-es sor nem kell , ha a keretet nem akarod színezni.

Vékonyabb keret létrehozásához a Weight-es sorokban xlMedium helyett írj xlThin-t.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim uoszlop As Long
    If Target = "GTR" Then
        With Range(Target.Address)
            .Font.ColorIndex = 3
            .Font.Size = 12
        End With
        With Cells(Target.Row, Target.Column - 1)
            .Font.ColorIndex = 5
            .Font.Size = 10
        End With
    End If
    If Target = "Mici" Then
        uoszlop = Range(Target.Address).End(xlToRight).Column
        With Range(Cells(Target.Row, 1), Cells(Target.Row, uoszlop))
            .Borders(xlEdgeLeft).Weight = xlMedium
            .Borders(xlEdgeLeft).ColorIndex = 3
            .Borders(xlEdgeRight).Weight = xlMedium
            .Borders(xlEdgeRight).ColorIndex = 3
            .Borders(xlEdgeTop).Weight = xlMedium
            .Borders(xlEdgeTop).ColorIndex = 3
            .Borders(xlEdgeBottom).Weight = xlMedium
            .Borders(xlEdgeBottom).ColorIndex = 3
        End With
    End If
End Sub

Szerkesztette: Delila 2011. 03. 01. 08:49 -kor