Sub KopirujList() Sheets(3).Select ' "Tretí_List" Sheets(3).Copy After:=Sheets(Sheets.Count) End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Dim v As String On Error GoTo xErr If Target.Column = Columns("C").Column Then Select Case Target.Value Case 1 v = "tatra sklápač" Case 2 v = "valník" End Select Target.Offset(, 1).Value = v ElseIf Target.Column = Columns("E").Column Then Select Case UCase(Target.Value) Case "V", "VODIČ" v = "10" Case "Z", "ZÁVOZNÍK" v = "12" End Select Target.Offset(, 1).Value = v End If xErr: End Sub
Užitočné (3) | Stefan2005, Marína, marjankaj |
Sub PridajList() Dim xPocetListov, i On Error Resume Next xPocetNovychListov = InputBox("Zadajte počet nových listov:", "VSTUP", 1) If IsNumeric(xPocetNovychListov) And xPocetNovychListov > 0 Then For i = 1 To xPocetNovychListov Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "Novy_" & CStr(i) Next i End If End Sub
Užitočné (1) | Stefan2005 |
Užitočné (1) | Stefan2005 |
Sheets(Array("Sheet1", "Sheet3")).Copy After:=Sheets(Sheets.Count)
Sheets(Array(1, 3)).Copy After:=Sheets(Sheets.Count)
automatizácia pri zadávaní údajov