Clipboard

Pomoč pri izdelavi makrov
Odgovori
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Clipboard

Odgovor Napisal/-a Stenly »

Pozdravljeni

Naredu sem neko VBA proceduro, kjer obdelujem kar nekaj podatkov iz txt datotek. Podatke kopiram, odlagam,...
Težava se pojavi, ko se med tem zapolni clipboard in se javlja clipboard obvestilo. Kako bi se tega obvestila znebil. Sem se že trudil, pa nimam več idej :( .

Lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Clipboard

Odgovor Napisal/-a admin »

Glede na to da niste nič napisali v katerem programu izvajate to VBA proceduro vam ne morem konkretneje pomagati, toda:
  1. Kopiranje preko odlagališča ni najprimernejše in če se la da se ga izognite!
  2. Obvestila v programu lahko skrijete če to program sam omogoča (govorim seveda o gostujočem programu, kjer teče VBA) a samo v primeru OBVESTIL! Napake se bodo prikazale ;)
lp,
Matjaž Prtenjak
Administrator
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Re: Clipboard

Odgovor Napisal/-a Stenly »

...res sem napisal bol malo :( .
Zadevo imam v Excelu 2003. Proceduro sem malo izpopolnil za nekom, ki je vse podatke vnašal ročno. Res se nisem ne vem kako potrudu - ampak dela. Zgleda pa tako:

Koda: Izberi vse

Sub Macro1()
'
Application.DisplayAlerts = False
Application.ScreenUpdating = False

    Worksheets("PodatkiIn").Activate

   For Each c In Range("C5:C20")
    If c.Value = "" Then GoTo Preskok
   
    mapa = ThisWorkbook.Path & "\"
    datoteka = c.Offset(0, 0).Value
    sheet_podatki_In = CStr(c.Offset(0, 1))
    od_frekvence = c.Offset(0, 2).Value
    do_frekvence = c.Offset(0, 3).Value
    
 'odpri txt
    Workbooks.OpenText Filename:= _
        mapa & datoteka _
        , Origin:=-535, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
'
    vrstica_1 = Columns("G:G").Find(What:=od_frekvence).Row
    vrstica_2 = Columns("G:G").Find(What:=do_frekvence).Row - 1
    
'spucaj odložišče

    Workbooks(ThisWorkbook.Name).Worksheets(sheet_podatki_In).Range("A5:D5000").ClearContents
'kopiraj
    Range("C" & vrstica_1 & ":F" & vrstica_2).Copy
'odloži
    Workbooks(ThisWorkbook.Name).Worksheets(sheet_podatki_In).Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 'zapri txt
    ActiveWorkbook.Close SaveChanges:=False
    
    Worksheets(sheet_podatki_In).Select
    
'SOLVER

    SolverOk SetCell:="$L$6", MaxMinVal:=3, ValueOf:="0", ByChange:="$L$3:$L$5"
    SolverSolve True
    
    SolverOk SetCell:="$K$6", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$3:$K$5"
    SolverSolve True
'
    Worksheets("PodatkiIn").Select

Preskok:
    Next

        
End Sub
Lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Clipboard

Odgovor Napisal/-a admin »

Kot vidim, ste že sami vgradili opcijo

Koda: Izberi vse

Application.DisplayAlerts = False
In to je edina opcija, ki bi vam ob tem lahko pomagala. Če ne pomaga potem imate samo opcijo, da odlagališča preprosto ne uporabljate... Saj za prepis celic ga ne potrebujete celice lahko preprosto prepisujete kot:

Koda: Izberi vse

  workbooks("zvezek1").Worksheets("List10").Range("A1:F10") =   workbooks("zvezek3").Worksheets("List2").Range("A1:F10")
lp,
Matjaž Prtenjak
Administrator
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Re: Clipboard

Odgovor Napisal/-a Stenly »

...; ja tak kot sem naredu mi je blo najhitrej :oops: . Si moram vzet mal več časa, da preskočim odlagališče :D .

Hvala za pomoč
Odgovori