< návrat zpět
MS Excel
Téma: uprava zapisu
Zaslal/a junis 23.10.2022 13:07
Potřeboval bych upravit zápis tak, aby se importovaná data zapsali pod data, která již v souboru jsou. Tedy nic nemazat ale vkopírovat od prvního volného řádku.
With wsData.Range("A2").Resize(R, S)
.NumberFormat = "General"
.Formula = "=REPT(" & Vzorec & "A2,1)"
.NumberFormat = "@"
.Value2 = .Value2
End With
Stalker(23.10.2022 13:36)#053686 ???
With wsData
MaxR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
With .Cells(MaxR, 1).Resize(R, S)
.NumberFormat = "General"
.Formula = "=REPT(" & Vzorec & "A2,1)"
.NumberFormat = "@"
.Value2 = .Value2
End With
End With
citovat
junis(23.10.2022 13:48)#053687
Novacek(31.12.2022 13:12)#054163 Stalker napsal/a:
???
With wsData
MaxR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
With .Cells(MaxR, 1).Resize(R, S)
.NumberFormat = "General"
.Formula = "=REPT(" & Vzorec & "A2,1)"
.NumberFormat = "@"
.Value2 = .Value2
End With
End With
Tohle je supr. Šlo by zápis uptravit aby se mi takto přidala data z listu Seznam do listu Souhrn? V listu Seznam mám záhlaví, tak bez něj.
citovat