Just nu i M3-nätverket
Gå till innehåll

Behöver hjälp


JollyJumper
 Share

Rekommendera Poster

Jag har skapat ett formulär se bild. Jag vill att när jag fyllt i detta så skall den lägga till informationen i en ny flik i arbetsboken. Och sedan ny data för varje gång jag fyller i data. Jag får över datan in i nästa flik. Men inte hur den skapar en ny rad och sparar informationen ? Hoppas ni förstår 

dddd.png

Länk till kommentar
Dela på andra webbplatser

Varför in med data på ny flik? Nåja, det är ditt problem.

Fyra enkla möjlighet som kanske går.

 

  1. Formuläret kanske kan minnas senaste rad data lades på? Senaste cell? Bara att hoppa ned en rad då
  2. Formatera området du lägger data i som en tabell och använda funktioner i tabellen för att skapa ny rad
  3. Precis som att du kan ställa dig i första cellen i tabell och tryck CTRl+pilned för att till sista cell i tabellen kan du göra det i kod
  4. Eller tvärtom, du ställer dig på rad under dina data och gör CTRL+pilup
Sub ex1()
    Dim i As Integer
    i = Blad1.ListObjects("Tabell1").ListRows.Count
    Blad1.ListObjects("Tabell1").DataBodyRange.Cells(i + 1, 1) = "Ny rad 1"
    
End Sub

Sub ex2()
    Blad1.Cells(1, 1).End(xlDown).Offset(1, 0) = "Ny rad 2"
    
    Blad1.Cells(10000, 1).End(xlUp).Offset(1, 0) = "Ny rad 3"
    
    
End Sub

 

Länk till kommentar
Dela på andra webbplatser

 Share

×
×
  • Skapa nytt...