Příspěvky uživatele
< návrat zpět
Tak nakonec jsem si to vyřešil sám -> v cestě nesmí být mezera a diakritika u jedné složky to tak bylo proto to nejelo...
Jak mám napsané asi o 5 článků níže...
Private Sub UserForm_Initialize()
Dim Dateiname As String, Graf As Chart
Set Graf = Sheets("Vyhledat").ChartObjects("Graf 7").Chart
Dateiname = ThisWorkbook.Path & "\graf.gif"
Graf.Export Filename:=Dateiname, FilterName:="GIF"
'Image1.Picture = LoadPicture(Dateiname)
Sheets("Lisy - Vedouci smen").Select
'Add Dynamic Image and assign it to object 'Img'
Set Img = UserForm2.Controls.Add("Forms.Image.1")
With Img
'Load Picture to Image Control
.Picture = LoadPicture(Dateiname)
'Align the Picture Size
'.PictureSizeMode = fmPictureSizeModeStretch
.Width = 717
.Height = 460
'Image Position
.Left = 20
.Top = 100
End With
End Sub
Pošli přílohu
ale teď jsem narazil na problém, když to mám na svém disku tak to funguje, ale když soubor přesunu na firemní server tak tam to graf.gif uloží, ale nenačte ho 
i když mu definuji přesnou cestu odkud to má načíst
EDIT:
tak jsem to nakonec zmastil takhle:
Private Sub UserForm_Initialize()
Dim Dateiname As String, Graf As Chart
Set Graf = Sheets("Vyhledat").ChartObjects("Graf 7").Chart
Dateiname = ThisWorkbook.Path & "\graf.gif"
Graf.Export Filename:=Dateiname, FilterName:="GIF"
'Image1.Picture = LoadPicture(Dateiname)
Sheets("Lisy - Vedouci smen").Select
'Add Dynamic Image and assign it to object 'Img'
Set Img = UserForm2.Controls.Add("Forms.Image.1")
With Img
'Load Picture to Image Control
.Picture = LoadPicture(Dateiname)
'Align the Picture Size
'.PictureSizeMode = fmPictureSizeModeStretch
.Width = 717
.Height = 460
'Image Position
.Left = 20
.Top = 100
End With
End Sub
Zdravím,
už 5 hodin se trápím a nejde mi dát obrázek fo formu..
Uloží se mi obrázek grafu na disk a tím jsem skončil.
Private Sub UserForm_Initialize()
Dim Dateiname As String, Graf As Chart
Set Graf = Sheets("Vyhledat").ChartObjects("Graf 7").Chart
Dateiname = ThisWorkbook.Path & "\graf.gif"
Graf.Export Filename:=Dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(Dateiname)
Sheets("Lisy - Vedouci smen").Select
End Sub
nevíte kde dělám chybu ?
Píše mi to chybu u:
Image1.Picture = LoadPicture(Dateiname)
Moc moc moc prosím.. ( přílohu bohužel nemůžu dát )
Ale pokud bude soubor používat více uživatelů, tak budeš horko těžko všechny obcházet kdo ho má zapnutý.
Tady máš kód pokud nemáš otevřený soubor tak se ti otevře pokud máš otevřený tak se jen zkopíruje...
Jen si uprav cestu, kde se nachází..
Sub copy()
Dim strBookName As String
strBookName = "TADYkopirovat.xlsx"
If WorkbookOpen(strBookName) Then
Workbooks("TADYkopirovat.xlsx").Worksheets("List1").Range("A3:I35").Value = Workbooks("odTUD.xlsm").Worksheets("List1").Range("A5:I37").Value
Else
Workbooks.Open FileName:="C:\TADYkopirovat.xlsx" ' <-Tady upravit cestu.......
Workbooks("TADYkopirovat.xlsx").Worksheets("List1").Range("A3:I35").Value = Workbooks("odTUD.xlsm").Worksheets("List1").Range("A5:I37").Value
End If
End Sub
Function WorkbookOpen(strWorkBookName As String) As Boolean
Dim oXL As Excel.Application
Dim oBk As Workbook
On Error Resume Next
Set oXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
WorkbookOpen = False
Else
Set oBk = oXL.Workbooks(strWorkBookName)
If oBk Is Nothing Then
WorkbookOpen = False
Else
WorkbookOpen = True
Set oBk = Nothing
End If
End If
Set oXL = Nothing
End Function
A nepomohl by ti sešit jen pro čtení ?
http://www.vbaexpress.com/kb/getarticle.php?kb_id=468
Zdravím,
i díky tvému luxusnímu návodu jsem na to nepřišel.
Chtěl jsem tam dodat ještě směny, jelikož potřebuji v DISORDER_A vyhledávat pouze směny 123 resp. větší než 0.
A v DISORDER 0 vyhledávat pouze směny 0.
Strávil jsem nad tím dva dny a na tohle jsem asi vážně trouba 7 .
Přidával jsem tam všechno co mě napadlo, ale totálně jsem selhal..
EDIT:
momentálně jsem udělal:
pojmenoval buňky takhle s názvem SHIFT:
=POSUN(STOPS!$C$1;POZVYHLEDAT(DISORDER_A!$A2;STOPS!$B$2:$B$1998;0);;COUNTIF(STOPS!$B$2:$B$1998;DISORDER_A!$A2))
a do DISORDER_A jsem přidal podmínku ať to vyhledá SHIFT<>0
a stejnak mi to nejede 7
Mohl by jste mi někdo poradit ?
EDIT2:
a pak jsem zkoušel :
=POSUN(PODSKUPINA;;-8)
, ale se stejným výsledkem nevím na které buňce mám stát a jestli to píšu správně
Děkuji mockrát
Takhle?
Stalker napsal/a:
Sheets("STATISTIKA").Cells(RNG.Row, 2).PasteSpecial xlPasteValues
děkuji
Jiří497 napsal/a:
Přiznávám, že z toho nejsem vůbec moudrý.
1. Je tam 12 listů a napíšeš" "Akurát v té buňce U2 je datum....." dobrý, ale v kterém listu?
2. "hodí to chybu místo i tam dat o" - tuto větu nechápu vůbec
Toto:
'Target
Sheets("DISORDER_A").Range("J80").Copy
Sheets(Active).Cells(46, o).PasteSpecial xlPasteValues bych nahradil tímto: Sheets(Active).Cells(46, o).Value = Sheets("DISORDER_A").Range("J80") + samozřejmě všechno podobné kopírování.
Sorry
je tam list VZOR tam kliknout na Přidat další den (vytvoří to aktuální den )
a pak kliknou na směnu A ( je to modul3 )
a to načte data s dalších listů a potom to chci zkopírovat určité data do listu STATISTIKA na požadováný řádek s datem
Stalker napsal/a:
A?
Pokud sem nevložíš vzorový soubor, tak se nikam nepohnem!
Ja jsem ho zazipoval dal jsem ho tam, akurát při nahrávání jsem klikl na .xlsm
uz ho tu dávám..
Musí se kliknout na Pridat další den.
a potom na směnu A - tu jsem zatím jen upravil.
EDIT:
hodí to chybu místo i tam dat o
'Target
Sheets("DISORDER_A").Range("J80").Copy
Sheets(Active).Cells(46, o).PasteSpecial xlPasteValues
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články