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...

Dobrý den nize uvedene makro mi fungovalo v Exelu 2010 a pri prechodu na Exel 2013 nefunguje. Nevite kde by mohla byt chyba ? Dekuji Kment Sub Ulozeni_dokumentu() Application.ScreenUpdating = False jmeno = Range("C6") ActiveWorkbook.SaveAs Filename:="\\192.168.2.248\zlutysanon_vaclava...

Děkuji za odpověď zkusím a dám vědět . děkuji