< návrat zpět

MS Excel


Téma: kopirováná dat s "formátem" rss

Zaslal/a 9.12.2021 8:27

Dobrý den
Potřebuji zkopírovat udaje ze sloupce A do sloupce B.
Ve sloupci a je použit "vlastní formát".
Jak do sloupce B dostat to, co vidím v A, bez použití formatování v sloupci B?
Díky

Příloha: xlsx51655_prevdzapisu.xlsx (11kB, staženo 25x)
Zaslat odpověď >

Strana:  « předchozí  1 2 3
#051693
elninoslov
Namiesto
For Each Bunka In Selection
musí byť
For Each Bunka In Q
a namiesto
Q.Resize(ArrList.Count).Value = ...
zase
Q.Offset(0, 1).Value = ...citovat
#051695
Stalker

elninoslov napsal/a:

Namiesto
For Each Bunka In Selection
musí byť
For Each Bunka In Q
a namiesto
Q.Resize(ArrList.Count).Value = ...
zase
Q.Offset(0, 1).Value = ...


Netuším jak to myslíš.
Selection je zdrojová oblast tedy v tomto případě sloupec A (např. řádky 3 až 7) podle toho co si označíš.
Q je cílová buňka do které se bude kopírovat, tedy počáteční buňka do které/od které se zapíší hodnoty z pole, proto resize.
Offset je k prdu.

???citovat
#051696
elninoslov
Aha, to je myslené tak, že zdroj je vybraný pred makrom. V makre sa vyberá cieľ... Som to pochopl opačne, že InputBox vyberá zdroj, a cieľ je vedľa. Preto som písal.
Sorry... 5citovat
#051702
avatar

marjankaj napsal/a:

Tak skús
1.vyznač stlpec A
2.CTRL+C
3.presuň sa do D1
4.daj prilepiť špeciálne a vyber iba hodnoty. Alebo pravým tlačítkom myši a vyber si.

Samozrejme v stlpci D musíš predtým vymazať formáty.
Příloha: xlsx51702_kopia-51655_prevdzapisu-5.xlsx (20kB, staženo 15x)
citovat
#051703
Fantasyk

GeorgeK napsal/a:

Fantasyk napsal/a:Nebo po jednom kopírováníPříloha: 51674_51655_prevdzapisu.zip (15kB, staženo 3x)

Díky,
funkční to je :-)
Jen kdyby to bylo univerzalnější... V realu je řádků přes tisíc a vyskytuje se v různých sloupcích.


Zkus stáhnout ten první odkaz (maximálně upravit kam uložit ve VBA kodu), kdyby jsis nevěděl rady tak pisni pomůžu..

GeorgeK chce aby mu zkopírovalo text bez formátu (tzv. co je teď v buňce):
Př.
v buňce A1 má 10.12.2021 a chce, aby mu to zkopírovalo přímo text, který se v té buňce nachází a né, aby mu to zkopírovalo 44540

momenátlně má:
1-10/2020-4444-VI (vlastní formát: @"/2020-4444-VI") a chce, aby mu to ve sloupci B ukázalo: přímo text, který to obsahuje a né: "1-10"citovat
#051708
avatar

Stalker napsal/a:

GeorgeK napsal/a:veny napsal/a:když budu mít buňku a ...

Jedna rychlovka, vybereš (označíš) požadované buňky a klikneš na tlačítko.

Díky, ale v řádku
Set ArrList = CreateObject("System.Collections.ArrayList")
to hodí chybu "Automation error" :-(citovat
#051719
Stalker
Tak s tímhle nemám zkušenost, nikdy se mi to nestalo.
Tak jen co sem našel:
https://excelmacromastery.com/vba-arraylist/#VBA_ArrayList_Automation_Error
Někde ve 4 kapitole uvádí, že je chyba způsobena absencí NET Frameworku 3.5
Můžeš zkusit.citovat
#051721
elninoslov
Môžete to prípadne upraviť aj na verziu s klasickým Array namiesto ArrayListu. +- autobus...
Sub kopiruj()
Dim Bunka As Range
Dim Radku As Long
Dim Sloupcu As Integer
Dim ArrList() As String
Dim Q As Range

On Error Resume Next
Set Q = Application.InputBox("Zadejte nebo vyberte myší cílovou buňku", "Cílová buňka", Type:=8)
If Q Is Nothing Then Exit Sub
On Error GoTo 0

For Each Bunka In Selection
Radku = Radku + 1
ReDim Preserve ArrList(1 To Radku)
ArrList(Radku) = Bunka.Text
Next Bunka

Q.Resize(Radku).Value = Application.Transpose(ArrList)

Set Q = Nothing
End Sub
citovat
#051722
avatar
Díky
elninoslov
Stalker

funguje 1citovat

Strana:  « předchozí  1 2 3

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje