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

Zaslat odpověď >

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

Supr, Díkycitovat

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

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.