Sub CopyLenNenulove() ' Macro recorded 25.6.2015 by Palo Dim xZdroj As String, xPodm As String, xCiel As String, xCielCely As String xZdroj = "Cenník2016!A1:F99" xPodm = "Cenník2016!H2:H3" xCiel = "Fakturácia!A4:F99" xCielCely = "Fakturácia!A4:F1000" 'cisti ciel Range(xCielCely).ClearContents 'vloz filtrovane Range(xZdroj).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range(xPodm), _ CopyToRange:=Range(xCiel), Unique:=False End Sub
Excel - Automatické vyplnenie bunky