MH_

ingen aning. Men om man tittar på reklam "videon" som loopar på den här sidan: https://eu.switch-bot.com/collections/home-automation/products/switchbot-curtain-3 så verkar den nästan låsas fast när man monterar Nu skall jag bara gå med i en frikyrka och försöka få dom att bota mig från det här anfallet av akut prylbögeri (bara för att behovet är 0 behöver man väl inte avstå från något, eller?)

Det är bra att du läser vad jag menar och inte vad jag skriver.

Om du alltid gör om importen till exceltabeller så kan du även använda "tabell-hänvisning" i excel. Dvs något i den här stilen: =SUMMA.OM(Tabell2[Väggkod];K1;Tabell2[sum Im]) Det blir kanske lite mer som du tänker?

Kolla in summa.om() https://support.microsoft.com/sv-se/office/funktionen-summa-om-169b8c99-c05c-4483-a712-1697a653039b Exempel, letar i kolumn A och summerar kolumn H när villkoret är uppfyllt =SUMMA.OM(A:A;"IV_96GG2";H:H) Eller så här om du vill skriva in villkoret i cell K1 =SUMMA.OM(A:A;K1;H:H) då kan du lägga en rullgardin/val -lista i K1 https://support.microsoft.com/sv-se/office/video-skapa-och-hantera-listrutor-28db87b6-725f-49d7-9b29-ab4bc56cefc2 Om du har flera tabeller så kan du ha en formel för varje tabell och lägga ihop värdet: =SUMMA.OM(A2:A9;K1;H2:H9)+SUMMA.OM(A12:A30;K1;H12:H30)

[Alt], p, q, s, [Alt], d/t Du får alltså börja om med ALT när du har fått fram sidhuvud/sidfot

Det mest deprimerande är att Lo-katterna missade chansen att rehabilitera kattsläktets rykte. Men redan efter 12 sekunder så visar ett av syskonen sitt rätta jag.

Vi har alldeles för få Beppe-referenser i forumet.

Hej. Antag att vikten du letar efter står i E2 och din hjälptabell står i A2:B5. Då kan du använda XLETAUPP Funktionen XLETAUPP - Microsoft Support =XLETAUPP(E2;$A$2:$A$5;$B$2:$B$5;;1) Med Error-text: =XLETAUPP(E2;$A$2:$A$5;$B$2:$B$5;"Utanför tabellområdet";1) Den sista 1:an står för: matchningsläge "1 – Exakt matchning. Returnerar nästa större objekt om ingen hittas." Det betyder att om du skriver in vikten 501 i E2 så blir det fel. Så på sista raden får du skriva in något jättehög viktsiffra som gäller för alla paket som är större än näst högsta. testa.

i rimlighetens namn är det väl bara att lägga in något precis innan "end sub"? Då borde den ha loopat alla filer Next i msgbox "Fääääääärdig" End Sub

Du har en produkt som ligger rätt i tiden. Ni har äntligen identifierat rätt målgrupp. Gullig hund fotograferad och en stor/dyr annonsen slängs in i expressen. Ta en kopp kaffe, njut och inse att de små detaljerna kan förstöra allt . Tex att att någon råkar byta ut för mot till . https://kampanj.expressen.se/alvarpet/insektsmat-darfor-har-det-blivit-populart-att-ge-till-hunden/ Ok, det är bara Mikael som uppskattar såna här fel - men han måste ju också få ha det lite kul.

Ok. Men då hamnar du i den besvärliga situationen att du måste (?) använda något slags händelsehanterare för att upptäcka att någon klickat. Exempel för dubbelklick: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'kopiera ibland, klistra in ibland End Sub Och då måste du veta om du verkligen är i "klipp och klistra läge" samt om du vill kopiera eller klistra in om di deklarerar en räknare (i) utanför själva händelsehanteraren och lägger till en etta varje gång den körs så kan du kolla om du är i udda (kopieringsläget) eller klistra in (jämt). I exemplet kör jag en tilldelning eftersom VBA och klipp/klistra aldrig blir som jag vill. Dim i As Integer Dim källa As Range Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If i Mod 2 = 0 Then Set källa = Target Else Target.Value = källa.Value End If i = i + 1 End Sub Men då är det aktivt så fort du dubbelklickar på bladet och du måste komma på något sätt att koppla på/av händelsebevakningen. Om du kör ett "vanligt" makro så vet jag i stället inte hur du skall känna av klick. Exempel där du har två start/stopmakron som du kanske styr via knappar eller liknande. Option Explicit Dim i As Integer Dim bKör As Boolean Dim källa As Range Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If bKör = False Then Exit Sub Target.Activate If i Mod 2 = 1 Then Set källa = Target Else Target.Value = källa.Value End If i = i + 1 End Sub Sub starta() bKör = True i = 1 End Sub Sub sluta() bKör = False End Sub men om du kör det här ett par gånger så märker du att jag är snäll när jag påstår att det funkar "så där". i princip fins det inget som förhindrar att du kör "Worksheet_SelectionChange" istället. så slipper du dubbelklickandet Private Sub Worksheet_SelectionChange(ByVal Target As Range) If bKör = False Then Exit Sub Target.Activate If i Mod 2 = 1 Then Set källa = Target Else Target.Value = källa.Value End If i = i + 1 End Sub men då är det ännu mer som kan gå snett. Den stora nackdelen är väl att de här är bundet till ett blad. Du kan inte lägg ain makrot i någon masterbook. Även om du kan få dubbelklicksvarianten att funka för ett helt blad med Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) ... End Sub Nej. Det kräver nog mer jobb än du har nytta.

Jag antar att du är ute efter samma sak som man kan göra med format-penseln? Dvs om man markerar en cell/område med önskat format och dubbelklickar på pensel-ikonen så får alla celler man markerar på det formatet, ända tills man stänger av funktionen genom att klickar på penseln igen. Så vitt jag vet kan man inte göra något liknande för innehåll i excel. Och ett makro skulle bli väldigt svårskrivet - i princip måste du ha ett "vanligt" makro som aktiverar en händelsehanterare som klistrar in så fot du aktiverar en cell osv. Sen skall händelse-makrot dödas/avaktiveras när du är färdig. Eller också ligger det aktivt hela tiden och körs varje gång du markerar en cell, men inklistringen aktiveras bara om villkor x är uppfyllt. Du kan få nästan samma funktion genom att kopiera din källcell. Sen aktiverar du alla målceller innan du klistrar in (håll inne Ctrl och klicka på alla målceller innan du kör Ctrl+V). Det borde duga rätt långt.

Dubbelklicka på den lodrätta axeln. Då för du fram "formatera axel" Där vill du ändra "huvudenhet" till 5 timmar. Problemet är att du inte får skriva in "5:0" så du får räkna lite manuellt. I excels tidsformat är en dag= 1 och en timme är 1/24. Så 5 timmar är 5/24=2,083333333333... Så du får manuellt skriva in det (med lämpligt antal 3:or) För 50 gör du samma sak 50/24 =2.08333333333333 och det låter vettigt eftersom 2 två dygn är 48 timmar. Fixa gärna visningsformatet till [t]

Och ingen Lill-Lördag utan överkurs Formatting and VBA codes for headers and footers | Microsoft Learn

Jag TROR inte att excels sök/ersätt någonsin går in i header/footer och söker. Kan du hitta en vanlig text i en sidfot med sökfunktionen? Det kan inte jag. Det är möjligt att du måste öppna varje Footer och kolla vad som står, typ så här: https://techcommunity.microsoft.com/t5/excel/macro-to-update-footers-on-multiple-worksheets/m-p/74507 problemet är att det svenska "&[Flik]" ser ut som "&A" för VBA. i alla fall om man kollar med: MsgBox Blad.PageSetup.CenterFooter då kan du testa någonting i stil med: Sub Makro1() Dim Blad As Worksheet For Each Blad In Worksheets If Blad.PageSetup.CenterFooter = "&A" Then Blad.PageSetup.CenterFooter = "property of M63" End If Next Blad End Sub för att söka igenom centrum-foten i samtliga blad i boken (och &[Flik] måste stå ensam i sin del av sidfoten)

Reguljära uttryck är väl mest användbart när du vill bygga komplicerade uttryck med flera delar. T.ex om du vill hitta gamla registreringsnummer. med möstret 3 bokstäver följt av tre siffror. Syntaxexempel från words möstermatchning: [A-Ö]{3}[0-9]{3} Då kan du utvidga med att bokstäverna inte får vara "I" eller vad det nu är som är förbjudet. Dessutom kan du dela upp sökningen i delar och vända på ABC123 till 123ABC om du behöver det. Svenska words namn "mönstermatchning" är ganska bra Sök efter: ([A-Ö]{3})([0-9]{3}) Ersätt med: \2\1 (varje parantes blir en egen sökdel och i "ersätt med" klistrar du in sökdel 2 + sökdel ) I ditt fall handlar det väl mer om att köra ett antal bestämda sökningar efter varandra. Inte att hitta saker som följer ett mönster. Eller? Då är det bättre att modifiera ditt makro till att hämta sök/ersätt parametrarna någonstans på makrobladet och helt enkelt köra 18-20 sök/ersätt på varje "klient"blad. Dvs kopiera gränssnittet från ditt specialprogram.

Jag gissar att "Hela ord" inte betyder samma sak som "hela cellen"/"hela frasen". Typ att "hela ord" skiljer på volvo och volvoxc70, men inte på volvo och volvo xc70. Och då kan du nog fastna i en loop med ovanstående upplägg. Jag vet inte hur ditt specialprogram läser excelfilerna. Om jag öppnar en excelfil i en texteditor så kan jag inte se hur cellavgränsarna ser ut (innehållet verkar vara komprimerat, även i en "moderna" xlsx fil). Annars skulle man kunna tänka sig att du sökte efter: <tab>volvo<tab> för att få en hel fras, typ.

Mat och eftertanke är kraftigt underskattat. 🧍‍♂️🤸‍♂️ 🧍‍♂️

Påminner lite om googles skämt

Det går: =LETAKOLUMN(A9;$E$3:$H$4;2;FALSKT) eller så här om du vill slippa se "#SAKNAS!" innan du fyllt i värde i A =OMFEL(LETAKOLUMN(A9;$E$3:$H$4;2;FALSKT);"") Och om du har en nyare Excel finns det en funktion med "allt i ett": =XLETAUPP(A9;$E$3:$H$3;$E$4:$H$4;"")

Spontant, nej. inte med upplägget du har. Din kod öppnar (väl?) filen som en excelfil och kör sök/ersätt. och då tar den en cell i taget. Om du vill söka avgränsaren (tab) så tror jag att du måste behandla det som en textsträng och aldrig öppna filen i excel. kanske något i den här stilen (inte testat) https://stackoverflow.com/questions/37291553/excel-macro-to-find-and-replace-multiple-strings-in-any-text-file Om du öppnar det som en excelfil så kanske du kan hitta varje cell med [5x10] och kolla innehållet 2 celler till höger och vänster. men det blir ju ett helt annat upplägg.

Expressen är lite inkonsekventa när det gäller namngivning:

Spontant, nej, inte med excelfunktioner - Om du inte använder ett skrivmaskinstypsnitt med fast teckenbredd. VBA/javaskript(automat) - kanske. Om du skickar texten till en textruta med inställningen "anpassa storlek efter text" så borde du kunna avläsa storlek. Eller någon annan metod där du helt enkelt skapar din formaterade text och mäter bredden.

Eftersom tjoflöjt körs på alla förekomster av "Print_Area" så är det förmodligen bara så att det namngivna område som kommer senare i lista "vinner" och får bestämma vad utskriftsområdret blir. Du skulle kunna bygga en räknare och bara använda den äldsta eller något liknande (jag antar att namngivna 8mråd3n kommer 7 datum8rdning) Jag haaaaatar telefontamgentbord

Om man snor din gamla kod som ni använde tidigare. Ttroligtvis baserad på det här: https://exceloffthegrid.com/vba-code-loop-files-folder-sub-folders/ Så borde något i den här stilen funka. Option Explicit Sub start() Dim startmapp As String Dim folder As String folder = GetFolder Call LoopAllSubFolders(folder) End Sub Function GetFolder() As String Dim fldr As FileDialog Dim sItem As String Set fldr = Application.FileDialog(msoFileDialogFolderPicker) With fldr .Title = "Select a Folder" .AllowMultiSelect = False .InitialFileName = Application.DefaultFilePath If .Show <> -1 Then GoTo NextCode sItem = .SelectedItems(1) End With NextCode: GetFolder = sItem Set fldr = Nothing End Function Sub LoopAllSubFolders(ByVal folderPath As String) Dim fileName As String Dim fullFilePath As String Dim numFolders As Long Dim folders() As String Dim i As Long If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" fileName = Dir(folderPath & "*.*", vbDirectory) While Len(fileName) <> 0 If Left(fileName, 1) <> "." Then fullFilePath = folderPath & fileName If (GetAttr(fullFilePath) And vbDirectory) = vbDirectory Then ReDim Preserve folders(0 To numFolders) As String folders(numFolders) = fullFilePath numFolders = numFolders + 1 ElseIf (InStr(1, fileName, ".xl") > 0) Then Call tjoflöjt(folderPath & fileName, fileName) End If End If fileName = Dir() Wend For i = 0 To numFolders - 1 LoopAllSubFolders folders(i) Next i End Sub Sub tjoflöjt(sökväg, filnamn) Dim WS As Worksheet Dim namn As Name Dim adress As String 'Öppna filen Workbooks.Open sökväg For Each WS In ActiveWorkbook.Worksheets For Each namn In WS.Names If ((InStr(namn.Name, "Print_Area") > 0) Or (InStr(namn.Name, "Print_Titles") > 0)) Then adress = namn.RefersTo If (InStr(namn.Name, "Print_Area") > 0) Then namn.Delete WS.PageSetup.PrintArea = adress ElseIf (InStr(namn.Name, "Print_Titles") > 0) Then namn.Delete WS.PageSetup.PrintTitleRows = adress End If End If Next namn Next WS 'Spara och stäng (den vill inte ha sökvägen då) Workbooks(filnamn).Close SaveChanges:=True End Sub OBS Jag har bara testat med testat med att låta "tjoflöjt" öppna/stänga filerna och visa filnamnen. Sub tjoflöjt(sökväg, filnamn) Workbooks.Open sökväg MsgBox sökväg Workbooks(filnamn).Close SaveChanges:=True End Sub Men det borde funka ändå