Děkuji moc zkusím to.

Dobrý den, mám ve VBA upravený sešit, který čerpá data z jiných Excelovských sešitů. Po přechodu Excel 21 na Excel 24 přestalo toto spojení přestalo fungovat. Vyskakuje mi hláška : Method updatelink of object _Workbook failed. Zde je macro : Private Sub prijemka_mesicni_Click() 'nezobrazit proceduru...

Sub Import_2() Dim MsgResponse, MsgTit As String Dim ImportFirstFile As Boolean, ImportDir As String, ImportFile As String Dim ZdrojSoubor As Workbook, ZdrojList As Worksheet, ListData As String, ZdrojAdresa As String Dim ZdrojOblast As Range, c As Range Dim CilOblast As Range, i As Integer, j As In...

Děkuji zkusím to ...

Dobrý den, mám makro v excelu ,ktere mi fungovalo az do prechodu z office 2007 na 2016 Po spusteni makra se ukaze tato chybova hlaska : Run-time error 1004 Obecna chyba posty. Ukoncete aplikaci excel, spuste znovu postovní system a opakujte akci. Po zmacnuti tlacitka debug se objevi toto makro a zlu...

Nespustí - skonci hned na "jmeno" . Co s tím prosím ??

Dobrý den , toto makro : Sub Ulozeni_pokus_2017() Application.ScreenUpdating = False jmeno = Range("B201") ActiveWorkbook.SaveAs Filename:="\\192.168.2.248\zlutysanon_vaclavak\Zaměstnanci - seznam\" & jmeno MsgBox " Prijimaci karta pracovnika " & jmeno & &qu...

Dobrý den, mám prosbu. V Exelu z roku 2007 mám toto makro : Private Sub foto_osobni_01_Click() If (MsgBox("Chcete načíst novou fotku?", vbYesNo + vbDefaultButton2)) = vbNo Then Exit Sub On Error Resume Next Dim umisteni As String umisteni = Application.GetSaveAsFilename("\\Filesrv\zlu...

Děkuji moc funguje to skvělě . Diky Snek

Dobrý den, mám zase jeden problem: mám toto makro : Sub odeslat_mejlikem() ' ' odeslat_mejlikem Makro Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .to = "" .CC = &q...

Děkuji vyzkouším.

Dobrý den, mám toto fungujíci makro na pěti různých listech. Potřeboval bych sepsat tyto makra do jednoho makra, aby se mi zpustili postupně a proběhly . Private Sub CommandButtonElysse_Click() Dim a As Integer, i As Integer Dim wsh As Worksheet Application.ScreenUpdating = False a = Worksheets(3).C...