Gegevens in een tabel schrijven

[Jack Nouws]

Hallo

Ik wil aan die code van SNB nog een regel toevoegen maar ik weet niet hoe ik dat moet doen. Ik wil nl. dat de laatste rij die wordt toegevoegd, de cellen E,H,J en K vermenigvuldigd wordt met 1. (In cel A1 staat dan het getal 1).
Ik heb een macro opgenomen en die doet precies wat ik wil, maar deze moet nog aangepast worden aan de code van SNB. Wie o wie kan dat?

Sub Macro7()
'
' Macro7 Macro
'

'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A1").Select
    Selection.Copy
    Range("B118:K118").Select   [COLOR="YellowGreen"] 'is laatste rij!!![/COLOR]
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("B119").Select
End Sub

Met vr gr
TS

 

[Jack Nouws]

Volgens mij moet ik werken met UsedRange, maar ik weet het niet zeker.

Met vr gr
Jack

 

[Warme bakkertje]

Probeer 'm zo eens

Private Sub CmdOK_Click()
  With Sheets("Data")
    .Unprotect
    .Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 10) = Split(Format(TxtDatum.Text, "mm/dd/yyyy") & "|" & CboVanBron.Value & "|" & TxtVanBron.Text & "|" & TxtVanPost.Text & "|" & CboNaarBron.Value & "|" & TxtNaarBron.Text & "|" & TxtNaarPost.Text & "|" & TxtOmschrijving.Text & "|" & TxtInkomsten.Text & "|" & TxtUitgaven.Text, "|")
    With .[A1]
        .Formula = "1"
        .Copy
    End With
    .Cells(Rows.Count, 2).End(xlUp).Resize(, 10).PasteSpecial xlPasteAll, xlMultiply, False, False
    .Protect
  End With
End Sub

 

[Jack Nouws]

Hallo

Ik heb mijn code nu zo staan, maar kun je deze regels ook vervangen door 1 regel?

Met vr gr

Jack

Private Sub CmdOK_Click()
    
    
Application.ScreenUpdating = False
     With Sheets("Data")
        .Unprotect
        .Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 10) = Split(Format(TxtDatum.Text, "mm/dd/yyyy") & "|" & CboVanBron.Value & "|" & TxtVanBron.Text & "|" & TxtVanPost.Text & "|" & CboNaarBron.Value & "|" & TxtNaarBron.Text & "|" & TxtNaarPost.Text & "|" & TxtOmschrijving.Text & "|" & TxtInkomsten.Text & "|" & TxtUitgaven.Text, "|")
        With .[A1]
             .Formula = "1"
             .Copy
             [COLOR="Blue"].Cells(Rows.Count, 2).End(xlUp).PasteSpecial xlPasteAll, xlMultiply, False, False
             .Cells(Rows.Count, 2).End(xlUp).Offset(, 3).PasteSpecial xlPasteAll, xlMultiply, False, False
             .Cells(Rows.Count, 2).End(xlUp).Offset(, 6).PasteSpecial xlPasteAll, xlMultiply, False, False
             .Cells(Rows.Count, 2).End(xlUp).Offset(, 8).PasteSpecial xlPasteAll, xlMultiply, False, False
             .Cells(Rows.Count, 2).End(xlUp).Offset(, 9).PasteSpecial xlPasteAll, xlMultiply, False, False[/COLOR]
          End With
        .Protect
    End With
End Sub

 

[snb]

Private Sub CmdOK_Click()
  Application.ScreenUpdating = False
  With Sheets("Data")
    .Unprotect
    .Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 10) = Split(Format(TxtDatum.Text, "mm/dd/yyyy") & "|" & CboVanBron.Value & "|" & TxtVanBron.Text & "|" & TxtVanPost.Text & "|" & CboNaarBron.Value & "|" & TxtNaarBron.Text & "|" & TxtNaarPost.Text & "|" & TxtOmschrijving.Text & "|" & TxtInkomsten.Text & "|" & TxtUitgaven.Text, "|")
[COLOR="Blue"]    .Range("E:E,H:H,J:K").Numberformat="0,00"[/COLOR]    
    .Protect
  End With
End Sub

 

[Jack Nouws]

hallo

Nu heb ik nogal vaak With en End With staan in mijn code en er zijn misschien regels die anders opgesteld kunnen worden. Nu is mijn vraag wie zou dat willen doen?

Private Sub CmdOK_Click()
    
Application.ScreenUpdating = False
     With Sheets("Blad4")
         .Unprotect
         .Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 10) = Split(Format(TxtDatum.Text, "mm/dd/yyyy") & "|" & CboVanBron.Value & "|" & TxtVanBron.Text & "|" & TxtVanPost.Text & "|" & CboNaarBron.Value & "|" & TxtNaarBron.Text & "|" & TxtNaarPost.Text & "|" & TxtOmschrijving.Text & "|" & TxtInkomsten.Text & "|" & TxtUitgaven.Text, "|")
        With .[A1]
             .Formula = "1"
             .Copy
             .Cells(Rows.Count, 2).End(xlUp).Resize(, 10).PasteSpecial xlPasteAll, xlMultiply, False, False
             .Cells(Rows.Count, 2).End(xlUp).Resize(, 10).HorizontalAlignment = xlLeft
             .Cells(Rows.Count, 2).End(xlUp).Offset(, 8).Style = "Currency"
             .Cells(Rows.Count, 2).End(xlUp).Offset(, 9).Style = "Currency"
        End With
            With .Cells(Rows.Count, 2).End(xlUp).Offset(-2)
                 .EntireRow.Copy
                 .Offset(2).EntireRow.PasteSpecial xlPasteFormats
                 .Application.CutCopyMode = False
            End With
        .Protect
     End With
End Sub

Met vr gr
Jack

 

[Jack Nouws]

Niemand??

 

[Roncancio]

hallo

Nu heb ik nogal vaak With en End With staan in mijn code en er zijn misschien regels die anders opgesteld kunnen worden. Nu is mijn vraag wie zou dat willen doen?

Even een wedervraag:
Wat is er mis met de With's en End With's?

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Wat is er mis met de With's en End With's?

Met vriendelijke groet,


Roncancio

Volgens mij is hier niets mis mee, maar ik dacht dat er meerdere regels onder 1 noemer konden staan.

Met vr gr
Jack

 

[Roncancio]

Volgens mij is hier niets mis mee, maar ik dacht dat er meerdere regels onder 1 noemer konden staan.

Met vr gr
Jack

Het voordeel van With en End With is dat je geen lange code regels hoeft te gebruiken.
Voorbeeld:

With Worksheets("Blad1").Range("A1")
.Value = 1
.Width = 100
End With

In plaats van:

Worksheets("Blad1").Range("A1").Value = 1
Worksheets("Blad1").Range("A1").Width = 100

Met vriendelijke groet,


Roncancio