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

Stefan Flink

Medlem
  • Antal inlägg

    5
  • Gick med

  • Senaste besök

Om Stefan Flink

  • Medlemstitel
    Nykomling

Senaste profilbesöken

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

  1. Hej. Jag tyckte att jag hade varit duktig och lyckats med beräkning utav flextid, tills jag kom på att det kan förekomma jourjobb. Är man ute på ett jourjobb i 2tim så vill man inte få minus 6tim i flex. Har man haft ett eller flera jourjobb på en dag så fyller man i det i en cell. Min tanke var då att om den cellen ej har något värde så ska det räknas som vanligt och om det finns ett värde så ska flextiden visa noll. Beräkningen för flextid ser ut så här: =OM(ELLER(B10="";C10="");0;(G10-$I$6)) och mitt försök såg ut så här: =OM(ÄRTAL(E10);0;(ELLER(B10="";C10="");0;(G10-$I$6))) Excel skrattar åt mig och säger att "det finns ett problem med den här formeln" Någon som har några idéer?? Mvh Stefan
  2. Hej. Tack för hjälpen. Mina flikar som den skulle kopiera till bestod utav siffror vilket koden tydligen inte gillade, därav felmeddelandet Körfel nr 9, Indexet är utanför intervall. Nu verkar det lira som det är tänkt. mvh Stefan
  3. Tack! Det hjälpte mig framåt. Den gör som jag vill nu men jag får följande meddelande, Körfel nr 9, Indexet är utanför intervall. Den hänvisar till raden Set Target = ActiveWorkbook.Worksheets(c.Value) Jag har lagt in koden i egen modul, så det inte var några konflikter med andra koder men det hjälpte inte..
  4. Jag håller på med ett enklare lagersystem. Tanken är att delar som används ska läggas in på rätt anläggning (olika flikar). Mina kunskaper är begränsade men jag har kommit en liten bit. Mitt problem nu är att varje rad jag skickar över till nya flikarna skriver över det som redan finns där, jag har försökt med några taffliga försök att få till att det ska skrivas till första lediga rad men får inte till det, finns det någon med mer kunskaper än mig som skulle kunna få ordning på det? Koden ser ut så här: Sub Överför() Dim c As Range Dim j As Integer Dim Source As Worksheet Dim Target As Worksheet Dim Target1 As Worksheet Dim Target2 As Worksheet Set Source = ActiveWorkbook.Worksheets("Start") Set Target = ActiveWorkbook.Worksheets("Anläggning1") Set Target1 = ActiveWorkbook.Worksheets("Anläggning2") Set Target2 = ActiveWorkbook.Worksheets("Anläggning3") j = 1 For Each c In Source.Range("E11:E100") If c = "Anläggning1" Then Source.Rows(c.Row).Copy Target.Rows(j) j = j + 1 End If Next c For Each c In Source.Range("E11:E100") If c = "Anläggning2" Then Source.Rows(c.Row).Copy Target1.Rows(j) j = j + 1 End If Next c For Each c In Source.Range("E11:E100") If c = "Anläggning3" Then Source.Rows(c.Row).Copy Target2.Rows(j) j = j + 1 End If Next c End Sub Mvh Stefan
×
×
  • Skapa nytt...