MS Excel

Zdravim.
trapim sa trapim... no neviem...

1. Mam makro ktore mi kopiruje z Harku2 do Harku1 riadok, (do prveho volneho riadku od 28 az 51) ale tak ze kopiruje to aktivny riadok a potreboval by som aby kopirovalo to konkretny napr. (5:5) z Harku2.
2. Ak to uz nakopiruje potrebujem aby do bunky (Radek,13)-(v prislusnom riadku v stlpci M) zapisalo hodnotu vysledku (X5/100) a nie vzorec (to je jedno moze aj hodnota X5 nemusi to byt /100). NIE VZOREC! (musi to byt hodnota INAK MI TO ZACYKLI) To X5 je z Harku1.

Da sa to prosim nejak upravit? Dakujem.

Private Sub CommandButton3_Click()
Sheets("Harok2").Select
Selection.EntireRow.Copy
Sheets("Harok1").Select
Range("A26").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Radek = ActiveCell.Row
Sheets("Harok1").Cells(Radek, 13) = "=(x5 / 100)"
If ActiveCell.Row >= 51 Then
ActiveCell.Insert
End If
End Sub

Uzamčeno - nelze přidávat nové příspěvky.

Poki(16.5.2012 9:16)#008517

Neznam pozadi problemu ani rozvrzeni listu, takze nehodlam komentovat logiku kodu, jen navrhuji upravy:

Private Sub CommandButton3_Click()
Sheets("Harok2").Select
Rows(5).EntireRow.Copy '5 je natvrdo stanoveny radek, který se bude kopirovat
Sheets("Harok1").Select
Range("A26").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Radek = ActiveCell.Row
Sheets("Harok1").Cells(Radek, 13) = Sheets("Harok1").Range("x5").Value/100

If ActiveCell.Row >= 51 Then
ActiveCell.Insert
End If
End Sub
citovat

frantilopa(16.5.2012 12:28)#008518

Cav Poki. V prvom rade diki za pomoc!!!
Nie som vobec odbornik... snad sa casom nieco naucim..
V skratke mam suciastky a chcem poskladat nieco z toho a potom to aj tak logicky blbo vyzera... (to len k tej logike... snazil som sa nejakym sposobom prerobit makro1)
Aj tak mi to akosi nejde, preto som poslal prilohu...
Snad mi pomozes...
Z Harku1 mi kopiruje riadky do Harku2 do urcitej oblasti... po zaplneni tej oblasti sa posuva spodny riadok nizsie...
A este jedno makro ktore kopiruje len 5 riadok do Harku2 samozrejme do najblizsieho volneho riadku a s tym ze dosadi tam hodnotu...

Dakujem za pochopenie a ochotu. Diki.

Příloha: rar

8518_vloz.rar (16kB, staženo 29x)

citovat

Jeza.m(16.5.2012 13:21)#008519

Ahoj,

zkus do modulu vložit:
Public Function last_r()
Dim rd2 As Single
rd2 = 2
Do While Sheets("Hárok2").Cells(rd2, 1) <> ""
If Sheets("Hárok2").Cells(rd2, 1).HasFormula = True Then
Sheets("Hárok2").Rows(rd2).Insert
Exit Do
Else
rd2 = rd2 + 1
End If
Loop
last_r = rd2
End Function

Public Function kopiruj(r_from, r_to)
Sheets("Hárok1").Rows(r_from).Copy Sheets("Hárok2").Rows(r_to)
End Function

Public Sub kopiruj_a()
Dim rd As Single
rd = ActiveCell.Row
Call kopiruj(rd, last_r)
End Sub

Public Sub kopiruj_5()
Dim rd, rd2 As Single
rd2 = last_r
rd = 5
Call kopiruj(rd, rd2)
Sheets("Hárok2").Cells(rd2, 5) = Sheets("Hárok2").Range("J3")
End Sub
Tlačítko kopíruj aktivní řádek si pak nastavíš na makro kopiruj_a a tlačítko kopíruj 5. řádek nastavíš na kopiruj_5.

M@citovat

frantilopa(16.5.2012 18:15)#008527

Jeza.m Super. Slape to! V podstate to funguje...
Ale ta moja original tabulka vyzera trochu inak a je tam maly problem... akonahle vymazem v zltej bunke cislo napr. A5 tak potom mi makrom prepise riadok riadok 5:5... chapem, ze bere to v stlpci A njblizsie volne miesto a doplni ho od tohto miesta... Neda sa tam zadat nieco take aby to bezpodmienecne zacalo zadavat od napr. 11 riadku aj ked nad nim budu vymazane bunky? To by mi pomohlo moc. Dakujem za pomoc.citovat

Jeza.m(16.5.2012 18:20)#008528

Nemám zapnutý excel, ale ve funkci last_r by mělo stačit změnit
rd2 = 2 na rd2 = 11

M@citovat

frantilopa(16.5.2012 18:39)#008529

Ano. To makro je super urcite sa mi zijde aj inde.
Funguje.
Diki.
Len nechapem ze co tam mam zle nastavene ja, ale v mojej original tabulke mi to uklada vzdy len do 11 riadku a po dalsom spusteni posunie riadok predchadzajucim spustenim makra nizsie (aj vsetko co je nizsie vzdy posunie nizsie a tym padom to uklada opacne z dola hore...