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

All aktivitet

Detta flöde uppdateras automatiskt     

  1. Senaste timmen
  2. Clas https://www.clasohlson.com/se/Passagelarm/36-1731 https://www.clasohlson.com/se/Räkneverk-till-passagelarm/36-1732 Bara som något att utgå från... Conrad har stort urval av kapslade fotoceller..
  3. Idag
  4. Nu börjar det hända saker. Makrot sparar både PDF och xlsx filer med rätt namn på rätt plats. Detta är jättebra. Nu dyker det upp nya problem. Makrot sparar den aktiva fliken, detta är fel, makrot skall spara en annan flik med ett namn typ "Med datum". (Det kommer att finnas fler flikar med andra namn som skall hanteras på samma sätt). Om jag stegar mig igenom makrot så fungerar allt perfekt fram till rad: Set wb = ActiveWorkbook ' nya boken Då öppnar makrot en ny excelbok. Vid rad: Application.DisplayAlerts = True Växlar makrot till den nya excelboken och i denna sker resten av makrot dvs alla raderingar och uppdatering av cell J2. (Makrot har sparat PDF och excel rätt innan allt detta sker). Original boken är oförändrad och förblir öppen. Vid rad: End With Stänger makrot den nya och den gamla är oförändrad. Se bifogad fil. Faktura TEST.zip
  5. jannejanne

    Swedbank kräver personliga uppgifter - blir att byta bank?

    Känner igen frågorna utom de specifika frågorna rörande USA Har fått dom på LFB (Länsförsäkringar) ca 1 gång om året. Osäker på om jag fått frågorna på ICA-banken på Nordea Det jag saknade (från LFB) var frågorna om hur mycket kontanter jag använde varje månad i genomsnitt ! Vad då för genomsnitt ? Vad är genomsnittet om jag en månad av 12 månader under året tar ut X kr kontant för ett köp. Inget kontant de övriga 11 månaderna ? Tror jag skrev genomsnitt 15000kr. 😁 Och tror jag fick de här frågorna 1a gången 2016 från LFB ! Så hur står det still hos Swedbank ! ?
  6. Function PathBuilder(rnSource1 As Range, rnSource2 As Range, suffix As String) As String Dim basePath As String basePath = "C:\2018\Invoice\" debug.print "Värde 1 " & rnSource1.Value debug.print "Värde 2 " & rnSource2.Value PathBuilder = basePath & rnSource1.Value & rnSource2.Value & "." & suffix End Function Då gissar jag på att det något fel på dina värden i cellerna. Och då blir det svårt att säga något. men kan testa byta + till & vilket ju nog är med korrekt i VBA. Kan bli så när man blandar programmeringsspråk i huvudet. Debug-texten skrivs i Direktfönstret. Sätt breakpoints, stega genom koden, kontrollera värdena. Ett värde är orsaken till felet.
  7. Tack, Jag gillar dina funderingar. Inga bilar kommer så tätt efter varandra så det är inte ett problem med tiden. Ang. Åtelkamera, ja vilken webbkamera som helst som reagerar på rörelse funkar ju, men hur få denna att automatiskt räkna in, dessutom krävs tillstånd, fast det är inga problem. Det är trots allt mitt i skogen och där mycket få människor i allmänhet ens rör sig, förutom vid älgjakten... Finns för övrigt redan minst en åtelkamera i området med tillstånd. Fotocell varianten gillar jag nästan bäst pga. då får jag möjlighet att bygga själv och testa. Och kanske kan användas till annat sedan tex. övervakning på min gamla pappas gård om det kommer in nån bil eller annat löst folk på natten (vilket inte har hänt, men man vet aldrig)? Jag har ju ett extra MC-batteri för 12V, kanske även ett bilbatteri, så strömförsörjningen är inte ett problem om dessa laddas upp emellanåt. Behövs en spänningsregulator som omvandlar från låt säga 10,5-14V till 5V för att driva.
  8. Flyfisherman

    LÖST Moms, tull och frakt från Israel?

    Jag tycker att det verkar mycket bra, med tanke på vad du fått. Så jag skulle nog säga att priset var bra, men knappt värt att lägga ned tid på att söka efter? Framförallt om det skulle råks på bli en reklamation, då blir det genast jobbigt. Jag har personligen satt en gräns: 50% av varans värde oavsett pris i Sverige, annars är det inte värt att riskera komplikationer med reklamationer och returer på garanti, som man själv måste betala och i värsta fall får vänta flera månader på att få tillbaka.. Inom EU går det inte just gärna att hitta nån elektronik som är billigare än i Sverige och värt ett köp, däremot på bildelar och framförallt MC-delar är priserna rejält mycket bättre i både Tyskland och England. Mvh
  9. Inget bra svar men jag börjar spåna så kanske andra kan haka på(?) Slang och tryckvakt. Här kan man troligen använda nivåvakten från en skrotad tvättmaskin då den funkar enligt samma princip. Dock knepigt hitta lämplig slang som ska vara mjuk utan att nötas hål på. Annars en billig lösning då man ansluter tryckvakten till en enkel räknare med inbyggt batteri. (finns "på hyllan" om man säger så.. 😉 Dock, på detta sätt, ingen logik som mäter tid mellan främre och bakre hjulpar. Här kommer antalet hjulaxlar att räknas oavsett fordonstyp. Fotocell/besöksräknare. Här har Clas färdiga prylar men de är inte avsedda att vara utomhus i skogen. Går kanske att lösa med plastkapslingar och något extra batteri. Här kommer allt som passerar att räknas. Bil med släp blir två enheter. En nyfiken fiskmås kan bli många enheter. Ovanstående går ju att komplettera med logik (finns också på hyllan...) där man får sätta en fördröjning för antalet "godkända" enheter. Ex., med fotocell, hur länge är strålen blockerad den tid det tar för ett fordon i en viss hastighet att förflytta sig från dess att strålen bryts tills dess att strålen är obruten? Låt för enkelhets skull säga 1 sekund. Allt mindre än en sekund är då den nyfikna fiskmåsen. Hur lång tid bör det rimligen ta innan nästa fordon kommer att bryta strålen på nytt? Tja låt säga två sekunder om fordonen ligger tätt. Då kan man gallra bort släpvagnen som ju dyker upp snabbare än vad nästa fordon gör.... Jo logiken behöver också strömförsörjning.. Visst, man kan komplettera med ytterligare en fotocell men då kanske man skjuter över målet? Lite "svinn" åt båda håll kanske man får räkna med? En. sk. åtelkamera? En som reagerar (på önskat sätt då..) och skickar SMS och där man helt enkelt bara summerar antalet SMS över en viss tid. Eller, ja om den skickar en bild kan man ju dessutom se om det är fordon eller fiskmås.. Kanske kräver ett motorcykelbatteri i en kapsling..
  10. Jag lade beställningen den 18:e och kunde öppna paketet den 25:e, dvs. en vecka. Att jämföra blir knepigt. Det beror vilka krav man ställer upp för att jämföra mot. Skulle ex. kravet vara att datorn ska vara förinstallerad med Linux Mint och ha Linux Mints logga tryckt så finns nog ingen annan produkt att jämföra med. Annat att jämföra mot är: Fläktlös (ljudlös) Intel Celeron J3455 Intel HD Graphics 500 (HDMI+miniDP) M.2 SSD på 120 GB 8 GB RAM Dubbla Gigabit nätverksportar Dual-band 802.11ac + Bluetooth 4.2 med två externa antenner Seriell port (RS232) 2 st USB 3 2 st USB 2 Temperaturområde -40°C till 85°C
  11. Flyfisherman

    LÖST Moms, tull och frakt från Israel?

    Och om du jämför priset i Sverige för motsvarande med prestandan: vad anser du då? För mig känns det som jag skulle gratulera till en bra affär! Hur länge tog det från beställning till leverans hemma?
  12. Kollade och min bank har i angiven summa, 3423,53, inkluderat 1,65 % växlingsavgift. Bör bli 3367,96 före den avgiften. Kollade vad UPS tar för avgift, eftersom jag inte riktigt lyssnade på vad som sades i telefon, och den tycks vara på 184 kr. UPS tog 985 kr 985-184=801 Om momsen är 801 bör totalen bli 3204. Mellan 3368, ovan, och 3204 skiljer det då 164 kr... Kanske beror på aktuell valutakurs som skiljer sig mellan de tillfällen som banken/PayPal gör valutaväxling och när UPS gör det? Egentligen kan man säga att frågan är obesvarad då jag inte riktigt vet vad som är vad.. mer än slutresultatet: En dator med priset $399 inköpt i Israel landar på 4408,53 SEK
  13. Har ändrat några cellreferenser för att det skall passa min excel bok. Körde makro och fick följande fel: På raden PathBuilder = basePath + rnSource1.Value + rnSource2.Value + "." + suffix
  14. Det är detta som gör att frågor om PEP behöver ställas: PEP: https://en.wikipedia.org/wiki/Politically_exposed_person
  15. Flyfisherman

    Swedbank kräver personliga uppgifter - blir att byta bank?

    Tack .M Men nu får någon annan juridiskt bevandrad hjälpa till. Enligt. 3 § punkt 3 inhämtande av information om affärsförbindelsens syfte och art. Är det då i så fall detta som bankerna hänvisar till? Verkar luddigt minst sagt. Är det bara jag som reagerar på detta på hela Eforum? Om hur man hanterar kunder och deras privatliv. Mvh
  16. Utan att vara expert, jag gör webbsidor trots allt. En början är denna lag, framförallt § 3. Insamlingen är en kombination av flera olika lagar, men det här är en bra början på vad som måste samlas in. https://www.riksdagen.se/sv/dokument-lagar/dokument/svensk-forfattningssamling/lag-200962-om-atgarder-mot-penningtvatt-och_sfs-2009-62
  17. Flyfisherman

    Swedbank kräver personliga uppgifter - blir att byta bank?

    Gnäller? Ja det var rätt ord. Penningtvätten är det inte som jag reagerar på, det anser jag helt korrekt i huvudsak, men att den skall sträcka sig så långt att det gäller ens nära och kära, bekantskapskretsar och fortfarande har jag inte sett att någon kunnat visa exakt lagtexten att en bank kan kräva in denna information som alla hänvisar till. Jag har aldrig motsagt att jag skulle vara emot en penningtvättslag eller åtgärder som angriper korruption och kriminell verksamhet, men vi måste hålla i sär begreppen. Mvh
  18. Jag råkade jobba för en av våra större banker och är den som gjort webbsidan för att samla in precis sån information som Flyfisherman gnäller över. Den information jag fick inför projektets start var att frågorna är en del av EUs Anti money laundering lag och att finansinspektionen då och då hälsar på hos bankerna och kontrollerar att man faktiskt har koll på just dessa frågor hos sina kunder så man kan stävja penningtvätt. Sen får man gärna tycka att denna information går emot den nya GDPR-lagen, men i det här fallet så vinner penningtvättlagen över GDPR. Om Flyfishermans bank nu skulle säljas till Nord Korea eller liknande så kan du ju utnyttja GDPR och rätten att bli glömd. Jag tror inte att banken kommer radera all information, faktum är att bankerna får inte radera all information även om GDPR säger att så är fallet. Men jag tror att den ganska stor del av dessa frågor kommer raderas.
  19. Flyfisherman

    Swedbank kräver personliga uppgifter - blir att byta bank?

    Var lugn, det kommer.... Om inte så skall jag antingen byta till Handelsbanken eller Forex, eller Ica eller vilken annan som helst bank egentligen, kanske t.o.m. i utlandet.
  20. Forex Bank frågade inte så många frågor
  21. Flyfisherman

    LÖST Moms, tull och frakt från Israel?

    Banken tar väl 1-3% påslag av totalsumman för valutaomvandlingen (när det gäller Euro, vet ej med andra valutor) också, så det får du lägga på?
  22. Flyfisherman

    Onedriveproblem

    Hej, Jag vet inte om detta kan hjälpa till med felsökningen. Microsoft: Åtgärda OneDrive-synkroniseringsproblem Annars en bit ned i artikeln finns en länk till att manuellt hämta senaste version och ominstallera.
  23. Det var ju min mening och inget citat så det är vad jag tycker är en rimlig orsak till att det frågas om just de jobben. Men det går säkert att hitta mer information om PEP om man letar reda på vad FATF har skrivit i sin standard och exakt vad det står i penningtvättslagen. Men på ett eller annat sätt lär nog alla svenska banker vara tvungna att ta hänsyn till PEP när det gäller skyddet mot penningtvätt.
  24. Mellin

    IP-telefon vs Larm

    Kontantkort är inte så värst dyrt
  25. mbgtmari

    Hur gör man en ordnia?

    Jag har aldrig hört talas om en "ordnia" men gruppledaren gav er väl ett exempel på hur en sådan kunde se ut? Posta en skärmbild av exemplet så kommer du att få svar på frågan! "den färgade bokstaven som står i mitten ska vara början på det långa ordet som täcker alla rutor och även början på de andra orden som man hittar i ordnian", låter väldigt konstigt. Vad går uppgiften ut på? Att leta rätt på så många ord som möjligt i "ordflätan"? Får man använda varje bokstav mer än en gång?
  26. Flyfisherman

    Extern hårddisk

    Hej, 5TB hittar jag inte, men kanske 4 eller 6TB?. Mitt tips är att köpa en vanlig SATA 3,5" 7200 rpm. medelsöktid på ja jag kommer inte ihåg men under14ms. disk av tex. Western Digital Black Caviar (en av marknadens snabbaste hårddiskar) och sedan köpa en separat USB 3.0 box att stoppa in den i. Eller en Toshiba X300 HDWE160EZSTA 128MB 6TB för strax över det pris du angett. Även Seagate har några snabba. Kylningen är viktig. Tex. https://www.prisjakt.nu/kategori.php?l=s365694880&o=lokal_rank#rparams=l=s365694947 Och Kjell för USB 3-kabinettet: https://www.kjell.com/se/sortiment/dator-natverk/datortillbehor/harddiskkabinett/plexgear-harddiskkabinett-3-5-usb-c-3-1-p97521 Men prislappen landar då utanför ditt maxpris. För en 2,5" disk direkt i kabinett sk. USB-disk så hittar du tex: https://www.prisjakt.nu/kategori.php?l=s365695892&o=lokal_rank#prodlista Seagate Expansion Portable Drive 4TB 5400 rpm för strax över 1700:- Stirra dig inte blind på varvtalet, eftersom detta handlar om en extern disk dit du troligen skall använda för filöverföringar och inte att ladda program ifrån, så bör större vikt läggas på dels överföringshastigheten samt livslängd och att söktiderna kan vara lite långsammare. Och se till att initiera disken i GPT- formatet. https://support.microsoft.com/en-gb/help/2581408/windows-support-for-hard-disks-that-are-larger-than-2-tb Detta gäller väl inte dig, som skall använda den som extern disk, så bara kör GPT. Men värme är det enskilt största bekymret för en hårddisks livslängd och har du den i ett stängt kabinett, så tipsar jag om att endast ha den ansluten då den behövs och kan då räcka i kanske 10-år? För övrigt kan du läsa om tillförlitlighet i denna länk och det intressanta är att större hårddiskar har en tendens att hålla längre. https://www.backblaze.com/blog/hard-drive-benchmark-stats-2016/ Mvh
  27. Där vi ju nära. Bara att den uppdaterade koden jag gav dig och lite anpassning av resten av koden: Sub Utskrift() ' Print sheet Dim wb As Workbook Dim NewFN As String With Blad1 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ 'IgnorePrintAreas:=False ' Create the PDF NewFN = PathBuilder(.Range("H23"), .Range("b23"), "pdf") .ExportAsFixedFormat Type:=xlTypePDF, fileName:=NewFN ', _ ' Quality:=xlQualityStandard, IncludeDocProperties:=True, _ ' IgnorePrintAreas:=False, OpenAfterPublish:=False ' Save the Excel Sheet .Copy Set wb = ActiveWorkbook ' nya boken NewFN = PathBuilder(.Range("H23"), .Range("b23"), "xlsx") Application.DisplayAlerts = False wb.CheckCompatibility = False wb.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True End With ' Increment the invoice number With wb.Worksheets(1) .Range("H23").Value = .Range("H23").Value + 1 ' Clear out the invoice fields .Range("B3:E3").ClearContents .Range("G3:H3").ClearContents .Range("B4:H4").ClearContents .Range("C5:D5").ClearContents .Range("F5:H5").ClearContents .Range("A6:H23").ClearContents .Range("C25: D25").ClearContents .Range("C26: D26").ClearContents wb.Close True End With End Sub Function PathBuilder(rnSource1 As Range, rnSource2 As Range, suffix As String) As String Dim basePath As String basePath = "C:\2018\Invoice\" PathBuilder = basePath + rnSource1.Value + rnSource2.Value + "." + suffix End Function Du kan med fördel namnge området du vill radera och byta ut alla raderna med ClearContents till .Range("rnToDelete").ClearContets
  1. Ladda in mer innehåll


×