Suchen und Ersetzen leere Zellen in einem dynamischen Bereich nach dem Übertragen von Daten VBA

Question

Okay, ich weiß, es gibt mehrere Fragen ähnlich, aber zumindest von dem, was ich gefunden habe, ist mein Problem anders, also bitte mit mir ertragen. Ich erstelle ein Benutzerformular, mit dem Benutzer Daten in ein Tracking-Blatt eingeben können, aber es gibt bestimmte Szenarios, bei denen nur ein Teil der Daten gleichzeitig übermittelt wird, wodurch "Löcher" im Tracking-Blatt entstehen. Mein Ziel ist es, diese "Löcher" mit einem Punkt zu füllen, so dass relevante Daten in derselben Zeile zusammenbleiben anstatt in diese Löcher zu gelangen.

Sheets("Tracker").Activate 
Worksheets("Tracker").Columns("A:J").Replace What:="", Replacement:=".", _ 
    SearchOrder:=xlByColumns, MatchCase:=False 

Ich weiß, ich im Wesentlichen excel sagee Spalten A bis J mit einer Zeit zu füllen, so meine Frage ist, gibt es einen einfacheren Weg, dies zu tun, oder eine Art und Weise zu geben, dass ich nur die letzten Zeile um die Perioden zu enthalten?

Aktualisierung: Dies ist der Code, den ich verwende, um die nächste verfügbare Zeile im Tracker für neue Daten zu finden. Wenn Teile der vorherigen Zeile fehlen, füllt das Makro diese unbenutzten Zellen mit den Daten der nächsten Zeile.

Set ws = Sheets("Tracker") Sheets("Tracker").Select 
ws.Range("E" & LastRow).Value = job_txtb.Text  
'Finds the last blank row 
LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row + 1 
'Adds the Job name Code into Col E & Last Blank Row 

Answer 1

Im Folgenden erhalten Sie die erste nicht verwendete Zeile. Ich verstehe nicht, warum Zeiten notwendig sind.

With ActiveSheet 
    On Error Resume Next 
    lastRow = .Cells.Find("*", .Cells(.Cells.Count), xlFormulas, _ 
    xlWhole, xlByRows, xlNext).Row 
    If Err <> 0 Then lastRow = 0 
End With 
firstUnusedRow = lastRow + 1 

Range("A" & firstUnusedRow).Value = Textbox1.Value 
Range("B" & firstUnusedRow).Value = Textbox2.Value 
Range("C" & firstUnusedRow).Value = Textbox3.Value 
'etc. 
'etc.,,