Vytváram zošit pre rybársky turnajktorý má viac turnajov, na ktoré sa rybár môže prihlásiť. Mám hlavný list so všetkými informáciami vrátane bunky pre každý turnaj, do ktorého sa môžu prihlásiť. Ak je v bunke znak „X“, chcem vyplniť stránku First, Last, Phone na inú stránku a vytvoriť registračnú stránku. Jeden obrázok je majster, ak jazero má X, chcem naplniť informácie na obrázku 2
odpovede:
0 pre odpoveď č. 1Tu je jednoduchý príklad, ktorý ukazuje, ako presúvať údaje medzi hárkami:
Sub PopulateNames()
Dim c As Range
With Sheets("Master")
"Loop through all cells in column D looking for "X"
For Each c In .Range("D2:D" & .Cells(Rows.CountLarge, "D").End(xlUp).Row)
If c.Value = "X" Then
"Copy the data from column A-C over to Tournament1 Sheet
.Range("A" & c.Row & ":C" & c.Row).Copy Sheets("Tournament1").Range("A" & _
Sheets("Tournament1").Cells(Rows.CountLarge, "A").End(xlUp).Row + 1)
End If
"Optionally resize columns so contents fit
Sheets("Tournament1").Columns.AutoFit
Next c
"Loop through all cells in column E looking for "X"
For Each c In .Range("E2:E" & .Cells(Rows.CountLarge, "E").End(xlUp).Row)
If c.Value = "X" Then
"Copy the data from column A-C over to Tournament2 Sheet
.Range("A" & c.Row & ":C" & c.Row).Copy Sheets("Tournament2").Range("A" & _
Sheets("Tournament2").Cells(Rows.CountLarge, "A").End(xlUp).Row + 1)
End If
"Optionally resize columns so contents fit
Sheets("Tournament2").Columns.AutoFit
Next c
End With
End Sub
Všimnite si, že sa tým nevymažú údaje z hárkov pred ich premiestnením - pripojí sa na koniec hárku hľadaním posledného riadku v stĺpci A.
výsledky: