SG Fórum - Excel kérdés - #1792

SG Fórum - Excel kérdés - #1792

Fórum / Felhasználói programok

Delila1 2013. máj. 31. 14:13 | válasz | #1792
Tegyél ki gombokat, vagy rajz objektumokat a Lista lapra, és rendeld hozzájuk a makrókat.

Sub Fel()

Dim sor As Integer, lap%, WS As Worksheet, B, C

Application.DisplayAlerts = False

sor = Selection.Row

B = Cells(sor, "B"): C = Cells(sor, "C")

For lap% = 1 To 3

Set WS = Sheets(lap%)

WS.Range("B" & sor) = WS.Range("B" & sor - 1)

WS.Range("C" & sor) = WS.Range("C" & sor - 1)

WS.Range("B" & sor - 1) = B

WS.Range("C" & sor - 1) = C

Next

Application.DisplayAlerts = True

Sheets("Lista").Range("B" & sor - 1).Select

End Sub

Sub Le()

Dim sor As Integer, lap%, WS As Worksheet, B, C

Application.DisplayAlerts = False

sor = Selection.Row

B = Cells(sor, "B"): C = Cells(sor, "C")

For lap% = 1 To 3

Set WS = Sheets(lap%)

WS.Range("B" & sor) = WS.Range("B" & sor + 1)

WS.Range("C" & sor) = WS.Range("C" & sor + 1)

WS.Range("B" & sor + 1) = B

WS.Range("C" & sor + 1) = C

Next

Application.DisplayAlerts = True

Sheets("Lista").Range("B" & sor + 1).Select

End Sub

Sub Rejt()

Dim oszlop%, lap%

For oszlop% = 36 To 6 Step -1

If Sheets("Lista").Cells(5, oszlop%) = "" Then

For lap% = 1 To 3

Sheets(lap%).Select

Columns(oszlop%).Select

Selection.EntireColumn.Hidden = True

Cells(1).Select

Next

End If

Next

Sheets("Lista").Select

End Sub

Sub Felfed()

Dim lap%

For lap% = 1 To 3

Sheets(lap%).Select

Cells.Select

Selection.EntireColumn.Hidden = False

Cells(1).Select

Next

Sheets("Lista").Select

End Sub