< návrat zpět

MS Excel


Téma: automatický převod dat rss

Zaslal/a 1.11.2010 12:30

Prosím o pomoc :-D vůbec si nevím rady...moc děkuji...v excelu jsem popsal můj problém, pokud by se našel někdo kdo by byl schopný to vyřešit tak by to bylo supr...díky :-D :-D

Příloha: rar2939_dodavatele.rar (13kB, staženo 20x)
Zaslat odpověď >

#002948
avatar
zdravím,

k tomu přesuntím políčka do určitého listu dodavatele bych třeba použil toto makro, které si spoust na skladu který chceš roztřídit.

Sub presun()
Dim radek As Long
Dim sloupec As Long
Dim list As Worksheet
Dim novylist As Worksheet

Set list = ActiveSheet

For radek = 2 To list.Cells(65000, 1).End(xlUp).Row

If Cells(radek, 1).Interior.Color = 255 Then
Set novylist = Sheets("A")
GoTo 1
ElseIf Cells(radek, 1).Interior.Color = 65535 Then
Set novylist = Sheets("B")
GoTo 1
ElseIf Cells(radek, 1).Interior.Color = 15773696 Then
Set novylist = Sheets("C")
GoTo 1
Else
MsgBox "Pro " & Cells(radek, 1).Value & " nemáte uvolněn list dodavatele", vbInformation
GoTo 2
End If
1:
novyradek = novylist.Cells(65000, 1).End(xlUp).Row + 1

For sloupec = 0 To 8
novylist.Cells(novyradek, 1).Offset(0, sloupec) = list.Cells(radek, 1).Offset(0, sloupec)
Next sloupec

2:
Next radek

MsgBox "Hotovo :o)", vbInformation

End Sub


toto makro si můžeš dát i pod nějaké tlačítko u každého skladucitovat
#002950
avatar
Díky za Vaší pomoc,,,bohužel mi to nějak nejde..zkoušel jsem to ale nefunguje mi to...nevím v čem je problém...nejspíš ve mně 7 ...prosím Vám nemohl byste mi to makro hodit do toho souboru dodavatelé......já a Excel nejsme zrovna kámoši :-D moc děkuju :-)citovat
#002951
avatar
tak tady máš tu mojí verzi :-D ale ješte to je potřeba vypilovat podle sebe.

To je jen takový šup tam a nic... :))
A popravdě se mi zavírají oči, tak sna to bude aj fungovat:)
Příloha: rar2951_sesit1.rar (24kB, staženo 21x)
citovat
#002954
avatar
paráda,,,díky moc chlape :-D hale jak bych třeba přidal další dodavatele do toho makra...zkoušel jsem tam něco napsal ale fakt jsem na to levej...jak je to s tima barvama a kodama...kde bych je zjistil...dalo by se to třeba udělat i jinak bez tich barev, že bych jenom přidal do buňěk v dalším sloupci třeba jenom písmena A,B,C,D,E a ono by mi to podle toho rozřadilo. Kdybych tam měl 10 dodavatelů tak bych tam měl 10 barev a bylo by to takový nepřehledný...šlo by to udělat tak jak sem říkal.....fakt díky moc...supr práce :-D :-Dcitovat
#002955
avatar
Určo by bylo asi lepší jak říkáš.. :-) kdybys dal ješte jeden sloupec a tam jen písmenko dodavatele...

Copak jsme v mateřské školce? 7

Já se ti pak pokusím udělat takový makro v kterým nebudeš nic měnit pokud budeš mít nového dodavatele ;-)citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09