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

Ove Söderlund

Medlem
  • Antal inlägg

    760
  • Gick med

  • Senaste besök

  • Vunnit antal dagar

    28

Ove Söderlund vann dagen: 5 december

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

    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
  2. 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?
  3. 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?
  4. 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
  5. Ove Söderlund

    LÖST Egen sökväg till makro?

    Det korta svaret är att du inte kan göra det du önskar utan du är hänvisad till den lösning som gäller för Word (Normal.dotm) och Excel (Personal.xlsb). Du får helt enkelt tänka på att ta säkerhetskopia på filerna när du gjort förändringar. Jag kan tänka mig en lösning med auto_open-kod i Personal.xslb som importerar kod från din egen mapp till någon modul i Personal.xlsb, men det känns typ som att gå över ån efter vatten.
  6. Ove Söderlund

    Replace fungerar inte i Makro i Excel

    När jag testar att köra sök och ersätt med vba och du har datumformat så skiter det sig. Cellerna med datumformat visas fel (brädstaket i cellen) men andra celler med annat innehåll konverteras rätt med att bindestreck tas bort. Jag uppdaterade min exempelkod med att definiera cellformat till Text och nu kan jag även med vba ta bort bindestrecken för datum. Min kod ser ut som följer: Sub test() Dim OriginalText As String, CorrectedText As String Dim Counter As Long For Counter = 1 To 25 OriginalText = CStr(Cells(Counter, 3).Value) CorrectedText = Replace(OriginalText, "-", "") Cells(Counter, 3).NumberFormat = "@" Cells(Counter, 3).Value = CorrectedText Next Counter End Sub Bifogar även fil med exempeldata jag använder mig av samt koden här ovan. test181030.zip
  7. Ove Söderlund

    Replace fungerar inte i Makro i Excel

    Testa gärna om denna kod fungerar för dig. I stort som mitt föregående kodexempel men med en lite annorlunda stränghantering. Sub test() Dim OriginalText As String, CorrectedText As String Dim Counter As Long For Counter = 1 To 25 OriginalText = Cells(Counter, 3).Value CorrectedText = Replace(OriginalText, "-", "") Cells(Counter, 3).Value = CorrectedText Next Counter End Sub
  8. Ove Söderlund

    Replace fungerar inte i Makro i Excel

    Om det inte är alltför hemliga data så önskar jag att du kan posta ett utdrag av kolumn c här så får jag möjlighet titta på rådata för att om möjligt avgöra vad som knasar. Annars så börjar jag få lite slut på idéerna och börjar misstänka att det kanske är något knas med just arbetsboken eller så. Det kodexempel jag postade fungerar klockrent på min exempeldokument. Jag bifogar det även här så kan du själv kika på det. Eftersom eForum inte tillåter makroaktiverade filer så har jag zippat den så får du sedan packa upp den. test181025.zip
  9. Ove Söderlund

    Replace fungerar inte i Makro i Excel

    Testa att koppla följande kod till en knapp i det aktuella bladet: -- Naturligtvis jobbar du med en kopia av ditt dokument! Vad koden gör är att loopa igenom de första 25 cellerna i C-kolumnen och utför en Sök och Ersätt på resp. cell. Sub test() Dim Counter As Long For Counter = 1 To 25 Cells(Counter, 3).Replace _ What:="-", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Next Counter End Sub
  10. Ove Söderlund

    Replace fungerar inte i Makro i Excel

    Koden fungerar alldeles utmärkt för mig när jag testar lite snabbt. Hur startar du makrot? det normala förfarandet är att du antingen kopplar makrot till en knapp i kalkylbladet eller formulär. För att starta makrot manuellt trycker du ALT + F8, väljer makrot i listrutan och därefter klickar på Kör.
  11. Ove Söderlund

    Windows Insider Preview

    Nytt bygge, Windows 10 Insider Preview build 18267, finns nu tillgängligt och i vanlig ordning finns info om fixar, kända fel och nya finesser på följande sökväg: Announcing Windows 10 Insider Preview Build 18267 Den i mitt tycke viktigaste nya finessen är en inställning som medger en utökad sökförfarande, där nu Windows kan indexera alla diskar, mappar och filer. Denna indexering som första gången den körs, tar en hel del tid, så i blogposten rekommenderas att låta bärbara datorer ha strömadaptern inkopplad.
  12. Ove Söderlund

    Flerval

    En guide till hur du kan lösa din fråga. Den är visserligen på engelska men borde inte vara så svårt att översätta till svenska. Dependent Drop-down Lists / Excel Easy.com
  13. Ove Söderlund

    LÖST Ny användare

    Några frågor som jag önskar svar på: 1. Info om dator, märke och modell 2. Vilken Windows 10-version använder du? (Kör kommandot winver) 3. Har du ett Nvidia-grafikkort i datorn? Du kan prova dessa metoder men logga först in som administratör. Jag utgår från att Powershell är förvald i din dator, annars gör du samma men väljer Kommandotolken och högerklickar och väljer som administratör. Metod 1: Köra System file checker (ett verktyg i Windows som undersöker om det finns korrupta systemfiler i Windows och återställer dessa om så är fallet). Tryck Windows + X och välj Windows Powershell (administratör). Skriv in sfc /scannow + retur. Metod 2: Åtgärda Windows Update-fel med hjälp av DISM (kontrollverktyget för systemuppdateringar) Tryck Windows + X och välj Windows Powershell (administratör). Skriv in DISM.exe /Online /Cleanup-image /Scanhealth + retur När det slutförts skriver du in DISM.exe /Online /Cleanup-image /Restorehealth + retur
  14. Ove Söderlund

    LÖST Windows loop

    Det låter som du har en väldigt gammal bärbar och jag misstänker att du kan ha värmeproblem med tanke på random avstängningar alternativt att minnet eller annan hårdvara är på väg att ge upp. Om jag hade den datorn skulle jag först och främst försöka rädda ev. dokument och annat som ska sparas och därefter testa en ren ominstallation av Windows 10. Du bör inte lägga ner en massa felsökningstid baserat på det du redan har gjort därav rådet att installera om Windows 10. Kvarstår problemen - att köpa ny dator blir sista rådet.
  15. Ove Söderlund

    Fredagens Musikbidrag

    Det finns ju som bekant en och annan aktiv grupp eller artist som har varit med sen typ Hedenhös, så nu är det dags att presentera den inte helt obekanta gruppen Uriah Heep. Trots snart 50 pannor på nacken så produceras ännu musik och bandet släppte sitt senaste alster, Living the dream, för ett par veckor sedan och är det 25:e studioalbumet i ordning. Här presenteras 'Take away my soul' från nya plattan. Läsvärda länkar: Uriah Heep officiell hemsida Uriah Heep / Wikipedia Uriah Heep - "Take Away My Soul" (Official Music Video)
×