• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA: tekst tonen op rij die toegevoegd is op ieder werkblad

Status
Niet open voor verdere reacties.

Denise4

Gebruiker
Lid geworden
29 jun 2020
Berichten
5
Hi,

Ik wil met behulp van een macro op meerdere tabbladen tegelijk een regel kunnen toevoegen op dezelfde plek met dezelfde tekst. Ik ben er volgens mij bijna. Het is me gelukt om het tekstboxje op te laten poppen waarin gevraagd wordt naar de post, maar ik weet niet welk commando ik nog moet toevoegen om de tekst daadwerkelijk te laten verschijnen in de betreffende cellen. Wie kan mij helpen?:

Sub Tijdschrijven()

Sheets(Array("Totaal", "Naam1", "Naam2", "Naam3", "Naam4")).Select
Sheets("Totaal").Activate

Dim aantal As Long
Dim beginrij As Long
Dim tekst As Long
beginrij = InputBox("Vanaf welke rij wil je de rijen invoegen?")
aantal = InputBox("Hoeveel rijen wil je invoegen?")
tekst = InputBox("Wat is de naam van de post?")
aantalrijen = beginrij & ":" & aantal - 1 + beginrij
Rows(aantalrijen).Select
Selection.Insert
ActiveCell.Select

End Sub
 
Je code wat aangepast

Code:
Sub j()
Dim aantal As Long
Dim beginrij As Long
Dim tekst As String
beginrij = InputBox("Vanaf welke rij wil je de rijen invoegen?")
aantal = InputBox("Hoeveel rijen wil je invoegen?")
tekst = InputBox("Wat is de naam van de post?")
aantalrijen = beginrij & ":" & aantal - 1 + beginrij
    For i = 1 To 5
        With Sheets(i)
            Sheets(i).Activate
            .Rows(aantalrijen).Select
             Selection.Insert
             ActiveCell = tekst
            .Range("A1").Select
        End With
    Next
End Sub
 
Of:
Code:
Sub Tijdschrijven()
Dim sv, sh
sv = Array(Application.InputBox("Vanaf welke rij wil je de rijen invoegen?", , , , , , , 1), Application.InputBox("Hoeveel rijen wil je invoegen?", , , , , , , 1), InputBox("Wat is de naam van de post?"))
On Error Resume Next
For Each sh In Array("Totaal", "Naam1", "Naam2", "Naam3", "Naam4")
   With Sheets(sh)
     .Rows(sv(0)).Resize(sv(1)).Insert
     .Cells(sv(0), 1).Resize(sv(1)) = sv(2)
   End With
Next sh
End Sub
 
Dank voor jullie reaties. De 1e oplossing werkte wel, maar daar kreeg ik een foutmelding bij With Sheets(i).
De tweede oplossing geeft geen foutmeldingen dus die heb ik nu gebruikt, moet ik dus alleen opletten dat ik een nieuw persoon toevoeg als het team groter wordt.
 
Welke parameter moet ik aanpassen als ik de tekst niet in kolom A, maar in kolom B wil laten plaatsen?
 
Code:
Sub Tijdschrijven()
Dim sv, sh as worksheet
sv = Array(Application.InputBox("Vanaf welke rij wil je de rijen invoegen?", , , , , , , 1), Application.InputBox("Hoeveel rijen wil je invoegen?", , , , , , , 1), InputBox("Wat is de naam van de post?"))
On Error Resume Next
For Each sh In sheets
   With sh
     .Rows(sv(0)).Resize(sv(1)).Insert
     .Cells(sv(0), 2).Resize(sv(1)) = sv(2)
   End With
Next sh
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan