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

Ove Söderlund

Medlem
  • Antal inlägg

    771
  • Gick med

  • Senaste besök

  • Vunnit antal dagar

    28

Ove Söderlund vann dagen: 5 december 2018

Ove Söderlund hade det mest gillade innehållet!

Om Ove Söderlund

  • Medlemstitel
    Flitig
  • Födelsedag 1969-11-04

Profil

  • Ort
    Haninge
  1. Ove Söderlund

    VBA Tidstämpel krånglar

    Jag tar för givet att du har säkerställt att subbarna TaBortSkydd och Skydd finns i Modul1. Testa att göra din Worksheet_Change publik genom att ta bort ordet Private. Sub Worksheet_Change(ByVal Target As Range)
  2. Ove Söderlund

    Astronomi

    Oumuamua heter det interstellära objektet och det kom mycket riktigt utifrån och gjorde en sväng runt solen och fortsatte sedan i annan riktning ut ur solsystemet. För mer info kan denna Wikipedia-artikel läsas (på engelska): Oumuamua / Wikipedia.org
  3. Ove Söderlund

    Excel VBA vilkor i If-sats

    Prova att använda LIKE-operator; 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) Like "IN*" Then
  4. Ove Söderlund

    Excel VBA vilkor i If-sats

    Det känns lite spontant som att du inte har ett objekt knutet till Offset, jag tror du behöver jobba lite med något i stil med: Du får förstås anpassa din Range utifrån dina förutsättningar. Dim rng3upp As Excel.Range Set rng3upp = Range("A1:C5") If Application.WorksheetFunction.CountBlank(rng3upp) = 3 _ And rng3upp.Offset(0, -8) <> "" And rng3upp.Offset(2, 0)= ("IN" & & "*") Then . . . . End If Lite läsvärt om Cells och Ranges på följande länk: The Complete Guide to Ranges and Cells in Excel VBA / Excel Macro Mastery.com
  5. Ove Söderlund

    Excel VBA koll om cellområde är tomt

    Har du kunnat konstatera exakt vad som är i de celler som innehåller något "osynligt"? Är det mellanslagstecken, formler eller något annat? Den här sidan kan ge dig lite mer tips - jag funderar på om inte du skulle ha nytta av .Formula-satsen som finns som första exempel: https://sitestory.dk/excel_vba/cell_testing.htm 'The following control tests if a cell is empty 'by testing the length of what may be in the cell. 'Therefore we use the property "Formula" 'instead of "Value". If you used "Value", 'it would say the cell is empty, even if 'it contains spaces/blanks. If Len(rCell.Formula) = 0 Then MsgBox "Cell " & rCell.Address & " is empty." End If
  6. Ove Söderlund

    Application.Screenupdating i Excel VBA

    Förutom att koden ger betraktaren en smärre huvudvärk... 😉 så tror jag att - utan att för den skull testat att stega igenom koden - den kommer aldrig förbi GOTO 35/30-satsen och istället återgår till GOTO 7. 30 ActiveWindow.ActivateNext If ActiveSheet.Name = ("KALKYL") Then GoTo 35 Else GoTo 30 End If 35 Sheets("KALKYL").Select 'om sökt rad ej hittas på källblad gå till målblad Resume Next 'markerar av felhanterare ActiveCell.Offset(0, -1).Select 'återgår till variabler på målblad GoTo 7 'börja ny loop hanteraFel: 'allmän felhanterare 1. Min uppmaning är definitivt att köra en riktig renovering av koden och därigenom bygga bort dessa felkällor som det lätt blir mha GOT-satser. 2. Använd gärna kod-funktionen <>-ikonen i inläggseditorn. Det gör kodtexten mer lättläst för oss andra som tittar på ditt inlägg
  7. Ove Söderlund

    Excel VBA koll om cellområde är tomt

    Är det något du vill göra med det aktuella området eftersom du vill kontrollera om det är tomt eller inte? Jag tänker mig att det i så fall kanske är mer rakt på sak att helt enkelt med kod definiera området explicit som tomt och därefter har du någon kod som gör vad du önskar med området ifråga. Något i stil med: Worksheets("SheetName").Range("A1:B10").ClearContents
  8. Ove Söderlund

    Acer aspire som vägrar starta

    Om datorn är gammal. typ 5+ år eller så, så ska man inte ägna sig åt alltför mkt med olika felsökningsmetoder utöver det mest enkla. Ett par andra felsökningsmetoder: - I båda fallen se till att batteriet är bortplockad från datorn. El-adaptern ska naturligtvis inte vara inkopplad när du skruvar i datorn. När du ska göra testkörning så kopplar du endast in el-adaptern. 1. Öppna luckan för internminnet och kontrollera att minnet inte har lossnat/glappat i kontakten. Fast i det läget bör datorn pipa felkoder om det skulle vara det felet. 2. Ta ur datorns hårddisk och testa sedan att starta upp den. Fungerar ingen av dessa metoder så är nog att köpa en ny eller bättre begagnad dator.
  9. Ove Söderlund

    Acer aspire som vägrar starta

    Acer Aspire är väl en bärbar dator så du kan testa följande enkla metod: Koppla loss datorns el-adapter om den är inpluggad. Ta ur datorns batteri. Koppla in el-adaptern igen och prova att starta upp datorn.
  10. Ove Söderlund

    Fredagens Musikbidrag

    Nytt år och fredag första arbetsveckan för året så kanske det passar bra med lite rökig lunchmusik? Får jag fresta med musik som för tankarna till grungens 90-tal, nämligen låten Midnight train från Burning rains fjärde studioplatta. Bland gruppens medlemmar märks sångaren Keith St. John (Kingdom Come) och gitarristen Doug Aldrich (ex-Whitesnake, Dio). Läsvärda länkar: Burning Rain / Officiell hemsida Burning Rain på Wikipedia (eng.) Burning Rain - Midnight Train
  11. Kanske hittar du svaret på din fråga bland dessa högtalare: https://www.spotifygear.com/type/speakers/
  12. Ove Söderlund

    Autofilter över flera kolumner

    Ok, jag undrar om det hela inte är enklast att ha programkod som; 1. filtrerar mot Morgon, Mellan och Kväll 2. Döljer de kolumner/dagar som inte behöver visas För annars så tolkar jag din beskrivning att det inte spelar någon roll om alla dagar visas, bara att det filtreras efter tidpunkten. I så fall räcker det med att bara ha ett filter mot tidpunkt och ingen mer. Om jag är ute och cyklar så är det bara att förklara mera så lär även jag mig vad du är ute efter
  13. Ove Söderlund

    Autofilter över flera kolumner

    Ok, jag försöker följa ditt tankemönster och hur pass fel ute är jag om det är ungefär så här du vill ha resultatet?
  14. Ove Söderlund

    Autofilter över flera kolumner

    Jag tror att det kan behövas en mer utförlig beskrivning av kalkylarket. Om det inte är alltför känsliga data kanske du kan posta en skärmdump här?
  15. Ove Söderlund

    Autofilter över flera kolumner

    Du kanske får mecka lite i stil med detta: (Inspiration till koden hämtad från: VBA Filter Multiple Columns / analysistabs.com Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$K$1" Then If Range("K1") = "Alla" Then Range("A5").AutoFilter Else With ActiveSheet.Range("A5") .AutoFilter Field:=2, Criteria1:=Range("K1") .AutoFilter Field:=3, Criteria1:="Något att filtrera efter" End With ' Range("A5").AutoFilter Field:=2, Criteria1:=Range("K1") End If End If End Sub
×