MS Excel

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

Zaslat odpověď >

Strana: « předchozí 1 2 3

elninoslov(10.12.2021 13:47)#051693

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

Stalker(10.12.2021 14:00)#051695

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

elninoslov(10.12.2021 15:32)#051696

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...

citovat

marjankaj(10.12.2021 16:28)#051702

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: xlsx

51702_kopia-51655_prevdzapisu-5.xlsx (20kB, staženo 15x)

citovat

Fantasyk(10.12.2021 23:31)#051703

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

GeorgeK(13.12.2021 8:34)#051708

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

Stalker(13.12.2021 19:52)#051719

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

elninoslov(13.12.2021 21:28)#051721

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 Subcitovat

GeorgeK(14.12.2021 9:13)#051722

Díky
elninoslov
Stalker
funguje

citovat

Strana: « předchozí 1 2 3

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

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query