Delila10 Creative Commons License 2012.05.19 0 0 17864

A makró mindkét kérdésedre válasz. Mivel nem adtad meg pontosan, mi hol található a füzetedben, a saját belátásom szerint írtam meg.

 

A billentyűzetről történő bevitel, amit a makró figyel, az első lap A1-es cellája. Ennek a függvényében változik a B1 cella értéke IGAZ-ra, vagy HAMIS-ra.

 

A két terület nálam a Munka2!C1:E9 (Első), és Munka2!G2:J15 (Második) tartomány. Az Első-t a B1=IGAZ esetén az indító lap D3 cellájába másolja – a D3 lesz a tartomány bal felső sarka. B1=HAMIS esetén a Második tartomány adatai törlődnek.

 

A makró utolsó sora az F (hatodik) oszlop bevitelét figyeli. Mikor Enterrel elfogadtatod a bevitelt, a fókusz az azonos sor J oszlopába ugrik.

 

A makrót a bevitel lapjához kell rendelned. Lapfülön jobb klikk, a VB szerkesztőbe bejutva a jobb oldalon kapott üres lapra másold be.

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Első As Range, Második As Range
    
    If Target.Address = "$A$1" Then
        Set Első = Sheets("Munka2").Range("C1:E9")
        Set Második = Sheets("Munka2").Range("G2:J15")
        
        If Cells(1, "B") Then
            Első.Copy Sheets(1).Range("D3")
        Else
            Második.ClearContents
        End If
    End If
    
    If Target.Column = 6 Then Cells(Target.Row, "J").Select
End Sub

Ha Robbantómester tanácsa alapján lapvédelemmel oldod meg a fókusz helyét, az End Sub fölötti sort törölheted.

Előzmény: *HELP* (17862)