Just nu i M3-nätverket
Gå till innehåll

Tommy H

Medlem
  • Antal inlägg

    277
  • Gick med

  • Senaste besök

Om Tommy H

  • Medlemstitel
    Aktiv
  • Födelsedag 1958-05-16

Kontaktinformation

  • Hemsida
    http://

Profil

  • Ort
    Staffanstorp

Senaste profilbesöken

Blocket med senaste besökare är inaktiverat och visas inte för andra besökare.

  1. Jag testade även med Mikael63's tanke om att lägga skrivarbytet före Word-koderna, och det verkade också fungera!
  2. Ja! Där satt den på en endaste kodrad! Tack!
  3. Det är ju ett krångligt makro eftersom jag behöver kolla igenom vilken port mina resp. skrivare ligger på, men så här ser det ut! Dim NetWork As Variant Dim X As Integer myprinter = "SKR-MMX-64-A4-Färg-ohålad" NetWork = Array("Ne00:", "Ne01:", "Ne02:", "Ne03:", "Ne04:", _ "Ne05:", "Ne06:", "Ne07:", "Ne08:", _ "Ne09:", "Ne10:", "Ne11:", "Ne12:", _ "Ne13:", "Ne14:", "Ne15:", "Ne16:", _ "LPT1:", "LPT2:", "File:", "SMC100:") X = 0 TryAgain: On Error Resume Next Application.ActivePrinter = myprinter & " på " & NetWork(X) If Err.Number <> 0 And X < 16 Then X = X + 1 GoTo TryAgain ElseIf Err.Number <> 0 And X > 15 Then GoTo PrtError End If On Error GoTo 0 NetworkPrinter = myprinter & " på " & NetWork(X) Application.ActivePrinter = NetworkPrinter 'här kan jag se att jag har rätt skrivare! Dim objDoc Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("R:\Anbud.docx") objWord.Visible = True objWord.PrintOut Ditt förslag om att styra Word hårdare har jag inte testat ännu! Ska kolla det efter lunch
  4. Jo, det går och det har jag gjort, men ändringen av skrivare når inte Word utan påverkar endast Excel. Det innebär att kollar jag i koden så har jag rätt skrivare, men när Word dokumentet öppnas så ligger standardskrivaren kvar i Word. Jag når inte fram till att ändra den i Word som sagt!
  5. Mja, jag vill ju kunna styra det via vba-koden i Excel, och det är väl inte riktigt denna lösningen?
  6. Jag behöver skriva ut ett word dokument men det skall skrivas ut på en annan skrivare än standardskrivaren. Hur byter jag skrivare för word? Dim objWord As Object Set objWord = CreateObject("Word.application") objWord.Documents.Open Filename:="r:\anbud\ica.doc" objWord.Visible = True objWord.Application.PrintOut Trots att jag kanändra skrivaen i Excel så förs ju inte det över till word utan där ligger standardskrivaren kvar. /Tommy
  7. Mja, jag har kanske varit lite otydlig. Kodraderna är ju utplockade från sin helhet, då det jag går bet på är just det sista villkoret. Jag vill kolla om ett antal celler runt min "offset" är tomma eller innehåller något. Det är den sista kod-radens sista And som jag inte får att fungera. Jag vill ju att oavsett om det står "IN2" eller "IN5" på .offset (2,0) så ska det tas med i If-satsen. Har jag koden enligt nedan, så accepteras inte villkoret även om allt uppfylls på Excelbladet. Jag misstänker att jag inte kan ha med en "text kontroll" i If-stasen men jag vet som sagt inte.... Sub IN_Reserver() Dim C As Range Dim d As Range Dim antal As Integer antal = 0 Dim firstAddress As String With Worksheets("Prenad").Range("K:K") Set C = .Find("IN" & "*", LookIn:=xlValues, LookAt:=xlWhole) If Not C Is Nothing Then firstAddress = C.Address Do On Error GoTo 90 With C Dim rng3upp As Range Set rng3upp = C.Offset(-3, -8).Resize(3, 1) '3 rader upp Dim rng3ner As Range Set rng3ner = C.Offset(1, -8).Resize(3, 1) '3 rader ner 'Kollar om det finns 3st tomma rader ovanför. If Application.WorksheetFunction.CountBlank(rng3upp) = 3 _ And .Offset(0, -8) <> "" And .Offset(0, 2) = "" And .Offset(1, 1) = "" And .Offset(0, 6) = "" And .Offset(2, 0) = "IN" & "*" Then bla, bla, bla
  8. Hej! Varför kan jag inte lägga in ett vilkor för att kolla om en del av innehållet i min cell innehåller nämnd text? I koden nedan så skulle jag vilja ha ett antal förutsättningar (fler än dom som jag har med här) och även då ha med det sista att om cellen innehåller något som börjar på "IN" och innehåller mer (typ en siffra är det) så gör då det och det... If Application.WorksheetFunction.CountBlank(rng3upp) = 3 _ And .Offset(0, -8) <> "" And .Offset(2, 0)= ("IN" & & "*") Then Vad gör jag för fel då koden ej köper vilkoret! (allt köps utom sista vilkoret) /Tommy
  9. Ja, det går ju inte att vänta på att det ska bli tråkigt. Kollade och det ger #VÄRDEFEL! från alla cellerna! Lite skumt dock för i H & I-kolumnen så är det rödmarkerad text medan övrig är svarta som vanligt...
  10. =ANTAL(A1:B10) (räknar siffror) ger svaret 0 =ANTALV(A1:B10) (räknar allt innehåll, även tomma formler) ger svaret 22 =ANTAL.OM(A1:B10;"*") (verkar bara räkna formler med synligt innehåll) ger svaret 22 Koden: Dim test As Variant Set test = MyRn2.Find(What:="*", LookIn:=xlValues) If test Is Nothing Then MsgBox "MyRn2 är tomt" End If ger svaret 0 Ja, jag kunde inte vänta med att sätta in koden i verkligheten och den jobbar precis som önskat! Snyggt lösning och Stort Tack! (sedan kan man ju undra vad dom 22st träffarna enligt formlerna är för något, men det tar vi en annan gång) Jag har tyvärr delat ut min "tumme upp" redan! /Tommy
  11. Tackar för det! Hittar jag inte lösningen där så vete gudarna.... /Tommy
  12. Jo, jag är medveten om att det inte är det vackraste som jag har knåpat ihop! Du har säkert rätt i vad du säger, jag tycker bara att det är synd att lägga tid på något som trots allt fungerar förutom skönhetsfelet med ScreenUpdating.... Får nog göra något nytt! Tack ändå!
  13. Hej Ove! Det jag vill uppnå är att om det inom min MyRn2 är helt tomt så ska jag lägga till text i 2st celler, annars så stegar jag vidare via Find-funktion. MyRn2 består ju av 12 kolumner och 4 rader = 48 celler, så det är ju ett smidigt sätt att se om dessa är tomma! Tråkigt bara att cellerna är "visuellt" tomma men ändå kan innehålla något som räknas i "IF WorksheetFunction.CountA(MyRn2) >0". Jag verkar behöva .ClearContents också för att rensa bort det osynliga, men för att göra det så måste ju området MyRn2 vara tomt annars raderas ju det som ska vara kvar. Lite Moment 22?
  14. Hej! Jag återkommer till "IF WorksheetFunction.CountA(MyRn2) >0 then". Det fungerar klockrent utom i vissa fall då funktionen visar (via felbevakningen) att det kan ge svaret 2, 3 eller 4 trots att Myrn2 är tomt. Det ligger något gammalt dolt kvar i cellerna som inte syns. Något tips hur man kommer runt det? Kan man ev. räkna om det finn "text" istället för om det är "något" i cellen, eller? /Tommy
×
×
  • Skapa nytt...