Vydělávej až 160.000 Kč měsíčně! Akreditované rekvalifikační kurzy s garancí práce od 0 Kč. Více informací.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
Avatar
Jakub Sobinovsky:18.12.2016 21:29
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.

 
Odpovědět
18.12.2016 21:29
Avatar
Jurajs
Člen
Avatar
Odpovídá na Jakub Sobinovsky
Jurajs:19.12.2016 17:20

Ahoj, z ceho ses ucil vba v excelu?

 
Nahoru Odpovědět
19.12.2016 17:20
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.

Zobrazeno 2 zpráv z 2.