En, men for mig, en opgave jeg ikke har kunnet løse.

Derfor vil jeg meget gerne have hjælp til at finde række nr.!

Info. & opgave;

Ark (1) Navn: ”Kskl”

Ark(2) Navn: ”Transport”

I Ark 1 skrives et heltal i

Range("G" & Target.Row  og  i Range("E" & Target.Row) tillægges Range("G" & Target.Row) +2

F.eks. Range("G" & Target.Row).Value = 7050 og tallet I Range("E" & Target.Row).Value = 7052

Nu skal tilsvarende tal findes I Ark 2 i Findeomraade = "A1:A100"

Dette er blevet løst, men det som er vigtigt er:

Hvilken Row no. står tallet 7052 i og hvordan finder jeg det?

Colonne no. som skal bruget står i ark1 ”H3” F.eks. 10 svarende til oktober.

Når jeg så har ”Row nr. og Colonne no. Skal det sammensættes til f.eks. ”H63”

Dim L1 As Variant

Dim c As Variant ' tæller

Dim KL As Variant  ' kolonne nr.

Dim RK As Variant     ' konto nr. i Ark "Kskl" Range("J" & Target.Row)

On Error Resume Next

'talværdi i _ +4 _  Angiver kolonne navn

' Kskl L1

If L1.Value = 4 Then KL = "E"   '”   januar”

If L1.Value = 5 Then KL = "F"   '”   februar”

If L1.Value = 6 Then KL = "G"   '”   marts”

If L1.Value = 7 Then KL = "H"   '”   april"

If L1.Value = 8 Then KL = "I"   '”     maj"

If L1.Value = 9 Then KL = "J"   '”    juni"

If L1.Value = 10 Then KL = "K"  '”  juli"

If L1.Value = 11 Then KL = "L"  '”  august"

If L1.Value = 12 Then KL = "M"  '”september"

If L1.Value = 13 Then KL = "N"  '” oktober"

If L1.Value = 14 Then KL = "O"  '” november"

If L1.Value = 15 Then KL = "P"  '” december"

Findeomraade = "A1:A100" ' kolonne hvor alle konto nr. står i de respektive ark (ArkNavn)

Dim Kskl As String '"Ark Kasseklade"

Dim BE As Variant  ' Beløb i "Ark Kasseklade" Range("D" & Target.Row).Value

Dim MK As Variant ' Modkonto nr.

KL = Range("L1").Value 'Kolonne tal i "Kskl" Range "L1" (f.eks.; ”N” = oktober)

MK = Range("J" & Target.Row).Value 'Modkonto nr. i "Kskl" Range "J1" (f.eks.; 7052)

BE = Range("D" & Target.Row).Value ' indtastet beløb i Ark "Kskl" (f.eks.; 500,00)

    For Each c In Sheets(ArkNavn).Range(Findeomraade).Cells

                              If MK = c.Value Then

                    Sheets(ArkNavn).Activate

      Sheets(ArkNavn).Range(c.Address).Select

 'I realiteten skal der ikke anvendes "Select" men kun finde den rigtige række hvor konto nummeret står.

  for derefter at finde den rigtige kolonne "KL" (e.ks. kolonne N svarende til okt.)

  Når række og kolonne er stedfæstet som f.eks. celle”N43”

tillægges værdien ”BE” . (Sheets(Kskl).Range("D" & Target.Row)

            Exit Sub

        End If

    Next c

ActiveSheet.Protect

' Når værdierne er lagt sammen vendes tilbage til  Sheets(Kskl).Range("K" & Target.Row).Select

End Sub

Har fjernet alle if sætninger for hver måneds kolonne - og sat din kodelinje ind.

Helt forståeligt.

Du har ganske ret og jeg opfatter det IKKE som hårde ord! Tværtimod er det til stor hjælp.

Lidt baggrund;

Hvad du naturligvis ikke kan vide er, at jeg i 2005 var udsat for en grim ulykke, hvorved en hel del hukommelse er forsvundet. Bl.a. Store dele af min indlæring af maskine kode, Comal, Mat.65 og Excel.

I 2000 skrev jeg et ”Budget/Regnskabs” program uden en kassekladde, det kom først på for et par år siden.

Venner og familie bruger programmet og spørger om det ikke kan blive mere automatiseret.

De er meget begejstret for det fordi, de har fået et bedre overblik over deres øjeblikkelig økonomi, da det ikke kun er et budgetprogram.

Jeg bruger If sætninger fordi det i første omgang skaber et overblik for mig. Derefter kan jeg forhåbenligt ved hjælp få det mere strømlignet.

Udover at blive færdig med programmet, bruger jeg det som genoptræning.

Har nu efter bedste evne rettet til i VBA-koden og er ganske klar over, at den skal gøres enklere. (HJÆLP)

Faktisk virker nedenstående;

Range("B" & Target.Row) = Range("B" & Target.Row).Value + ArkNavn

Jeg prøver, at vedhæfte hele filen, for som du selv skriver er det nærmest umuligt, at optimerer en kodestump.

Har forsøgt at vedhæfte filen - uden held. Har set under opload men det jeg får frem svarer ikke til det viste skema.

Er der en anden måde at sende det på?

Efter at der nu er redigeret ganske meget, er der makroer som ikke længere virker og skal derfor efterredigeres senere.