MS Excel

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

Zaslat odpověď >

Niffki(1.11.2010 17:26)#002948

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

KARNED(1.11.2010 18:04)#002950

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ě

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

Niffki(1.11.2010 20:41)#002951

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

2951_sesit1.rar (24kB, staženo 21x)

citovat

KARNED(1.11.2010 23:27)#002954

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

Niffki(2.11.2010 6:39)#002955

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?

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

Téma: automatický převod dat

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje