• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Myslel som nejak podobne ako je tento kod : Ja potrebujem len nulky a nie vyhodnotit ale zmazat riadok.

Public Sub kontrola()

Dim rd As Single

Dim sl As Single

Dim jmeno As String

rd = 5 ' první řádek

sl = 2 ' první sloupec

Do While Cells(rd, sl + 1) <> "" Or Cells(rd + 1, sl + 1) <> ""

If Cells(rd, sl) <> "" Then jmeno = Cells(rd, sl)

If Cells(rd, sl + 1) <> "" Then

If Left(Cells(rd, sl + 1), Len(jmeno)) = jmeno Then Cells(rd, sl + 2) = "OK" Else Cells(rd, sl + 2) = "NOK"

End If



rd = rd + 1

Loop

End Sub

Ahoj,

Potrebujem poradit. V prilohe je subor o troch stlpcoch. Potrebujem porovnat hodnoty v stlpci A a B v prislusnom riadku. Ak su rovne nule zmaz dany riadok. Snad som sa vymackol dobre.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" And Len(Target) > 0 Then
Call XY
End If
End Sub

Makro sa spusti po zmene v bunke D4

Alebo takto. Ja osobne by som 4 volbu zrusil a do riadku by som dal vzorecek na zlucenie dvoch buniek =(A1)&""&(B1). ponechal len 3 volby dat,Auto a pocet lidi.

Nejak takto ? Ak je nieco spatne, popis strucnejsie.

Ahoj,

Velmi pekne riesenie. Toto makro sa mi celkom hodilo.
Mal by som k tomu este jednu otazku. Je mozne este napriklad zcitat hodnoty ak sa v jednom zo suborov hladany text nachadza niekolko krat.

jo o tom vim ale kdyz uz se to ulozi, jde to nejak procistit?

Ahoj,

Potreboval by som poradit. Pri nakopyrovani do noveho sheetu to ma prehnanu velikost. Da sa to nejak precistit.

Ahoj.

Diky moc, pomohlo.

Asi som sa trochu nespravne vyjadril. Moze sa jednat o hociktoru hodnotu zo stlpca B pricom pri oznaceni sa skopyruje aj hodnota zo stlpca D v prislusnom riadku do druheho listu D3 a D4.

Ahoj Všem,

Potrebujem poradiť. V stlpcoch B a D mam hodnoty ktore potrebujem prekopyrovať na sheet2 do buniek D3,D4. Hodnota z stlpza B do bunky D3 a hodnota zo stlpca D do D4.

Takže pri oznacení hodnoty v stlpci B by sa tieto dve hodnoty prekopýrovali do daných budiek.

Dik za radu.

Dik

Ešte ma napadla jedna vec ..dalo by sa to udelať následovne, po zadaní 6 hodnoty do textboxu aby sa pole posunulo vzdy o jeden nahoru ?..následne to same 7,8,9,10,11,

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje