Sub Tlačidlo2_Kliknúť()
Private Sub Worksheet_Activate()
Dim i As Integer
Dim listu As Integer
Dim bbb As Integer
bbb = 4
listu = Sheets.Count
Sheets("zoznam").Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("zoznam").Cells(3, 1).Value = "Spotrebič"
Sheets("zoznam").Cells(3, 2).Value = "Názov spotrebiča/zariadenia"
Sheets("zoznam").Cells(3, 3).Value = "Stav"
Sheets("zoznam").Cells(3, 4).Value = "objekt"
For i = 1 To listu
bbb = bbb + 1
If Not (Sheets(i).Name = "Revízia spotrebiča" Or Sheets(i).Name = "zoznam" Or _
Sheets(i).Name = "Revízia spotrebiča" Or Sheets(i).Name = "zoznam") Then
Sheets("zoznam").Cells(bbb, 1).Value = Sheets(i).[B7].Value
Sheets("zoznam").Cells(bbb, 3).Value = Sheets(i).[H12].Value
Sheets("zoznam").Cells(bbb, 2).Value = Sheets(i).[B6].Value
Sheets("zoznam").Cells(bbb, 4).Value = Sheets(i).[B15].Value
Else
bbb = bbb - 1
End If
Next
MsgBox "Hotovo", vbInformation, "Dobrá zpráva"
Exit Sub
errr:
MsgBox "Došlo k neočekávané chybě.", vbCritical, "Informace"
End Sub
Mám tu jeden kód, potreboval by som aby ked kliknem na tlačítko v exceli
aby to tlačítko robilo to že ked nanho klinem aby sa mi udaje z jednej
tabulky presunuli do druhej bez ohladu na to kolko tabuliek mám. Vo visual
basicu som začiatočník a potreboval by som to hned.Dakujem za všetky vaše
rady.
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.
