< návrat zpět

MS Excel

Téma: Makro pro kopirovani dat mezi bunkami rss

Zaslal/a Markoslav31 12.11.2019 13:58

Zdravim,sedim nad tim uz drahnou chvili a stejne si s tim nevim rady...potrebuji makro, ktere dela nasledovne -

Pokud je ve sloupci AG zaznam v jednotlivych bunkach, tak makro vezme hodnotu ze sloupce Y na stejnem radku a zkopiruje ji do sloupce AF,kde jiz je zaznam,takze ho za dany zaznam propoji na konec...

Pokud ve sloupci AG neni zaznam,preskoci a pokracuje dalsim radkem...snad je to trosku srozumitelne....za veskere podnety dekuji.. 6

Zaslat odpověď >
Zbygi(12.11.2019 20:55)#044966
avatar
Ahoj...

a nějaký příklad by nebyl? část dat? nebo něco

jinak by to neměl být problém, ale ještě si vytvářet uměle data.... to je zas na dlouho (což ještě nemusí být správně-nebo-li správně pochopeno)citovat
elninoslov(13.11.2019 0:09)#044968
elninoslov
Len letmé zamyslenie a hneď niekoľko otázok:
- Stĺpec AG ? Teda zlúčené stĺpce do jednej bunky - teda jeden údaj ? Alebo je to 8 stĺpcov A až G,teda možných 8 hodnôt ?
- Hľadá sa prvá hodnota v A až G? Posledná ? Všetky ?
- A najdôležitejšia vec - čo potom, ak tieto dáta zapíšeme do Y? Zmažú sa z A:G ? Lebo ak tam ostanú, a znovu spustíme makro, tak sa pripíšu znovu tie isté.
- Alebo to má byť reagujúce na zmenu bunky v A:G, teda ihneď po zapísaní hodnoty sa to má prenášať do Y?
...

Priložte príklady možných situácií.

Príklad :
Sub Prenos()
Dim AG(), Y(), R As Long, i As Long, j As Integer

R = UsedRange.Rows.Count - 1
If R = 0 Then Exit Sub
If R = 1 Then ReDim Y(1 To 1, 1 To 1): Y(1, 1) = Cells(2, 25).Value Else Y = Cells(2, 25).Resize(R).Value
AG = Cells(2, 1).Resize(R, 8).Value

For i = 1 To R
For j = 1 To 8
If Not IsEmpty(AG(i, j)) Then
Y(i, 1) = Y(i, 1) & IIf(IsEmpty(Y(i, 1)), "", ",") & AG(i, j)
End If
Next j
Next i
Cells(2, 25).Resize(R).Value = Y
End Subcitovat
marjankaj(13.11.2019 14:05)#044972
avatar
@elninoslov
A to ťa nenapadlo že stlpec AG môže byť 33.stlpec v poradí?
Keby si si urobil prílohu, tak by si na to určite prišiel. 2citovat

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