inputbox op andertablad langs lege cel zetten

[pertoluk]

Hey iedereen

Wat ik wil : door middel van een knop een inputbox laten komen waarna die tekst op een ander tabblad (lidnummers invullen brieven) komt langs een lege cel die in kolom B is te vinden (kolom A heeft formules)

Sub test()
'
' test Macro
'
With Sheets("lidnummers invullen brieven")
ans = InputBox("Vul hier de reden in", "Diverse reden")
lr = Range("B" & Rows.Count).End(xlUp).Row + 1
lr = ans
End With
End Sub

 

[SjonR]

Ik wil een Lamborghini, een groot huis met zwembad en een hond. Maar dat gezegd hebbende:

plaats een voorbeeldbestand voor een rap en goed antwoord (op de vraag die je nooit hebt gesteld overigens)

of probeer deze:

Sub test()
ans = InputBox("Vul hier de reden in", "Diverse reden")
 
With Sheets("lidnummers invullen brieven")
     Lr = .Range("B" & Rows.Count).End(xlUp).Row + 1
          .Cells(Lr, 2) = ans
End With
End Sub

of :

Sub test()
With Sheets("lidnummers invullen brieven")
     Lr = .Range("B" & Rows.Count).End(xlUp).Row + 1
          .Cells(Lr, 2) = InputBox("Vul hier de reden in", "Diverse reden")
End With
End Sub

 

[pertoluk]

Ik wil een Lamborghini, een groot huis met zwembad en een hond. Maar dat gezegd hebbende:

plaats een voorbeeldbestand voor een rap en goed antwoord (op de vraag die je nooit hebt gesteld overigens)

of probeer deze:

Sub test()
ans = InputBox("Vul hier de reden in", "Diverse reden")
 
With Sheets("lidnummers invullen brieven")
     Lr = .Range("B" & Rows.Count).End(xlUp).Row + 1
          .Cells(Lr, 2) = ans
End With
End Sub

Hey bedankt voor je snelle reactie. Ik hoop dat je al die dingen krijgt in je leven :d

Die oplossing doet alles wat ik wil maar ik wou eigenlijk dat de ingegeven tekst niet lege cellen overschrijft in kolom A
Dus dacht ik dat te kunnen doen door te zoeken naar de eerste lege cel in kolom B en dan op een of andere manier te zeggen dat de tekst 1 kolom naar links moet?

Nvm gevonden moet gewoon de LR, 2 veranderen in LR, 1

Thanks!!!

 

[SjonR]

die hond heeft een kans

 

[VenA]

@SjonR, als je minder regels code gebruikt, hoef je minder vaak een toetsenbord te vervangen en dan komt zelfs een (opblaas)zwembad binnen bereik:d

Sub VenA()
  Sheets("lidnummers invullen brieven").Cells(Rows.Count, 2).End(xlUp).Offset(1) = InputBox("Vul hier de reden in", "Diverse reden")
End Sub

 

[SjonR]

Nu nog iemand die me aan die Lambo kan helpen