Keresés: - Visual Basic - Fototrend Hozzászólások

Keresés

Új hozzászólás Aktív témák

#1571 Baboka tag Homer #1570

Új Válasz 2011-12-27 12:25:39 #1571
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Baboka

tag

válasz Homer #1570 üzenetére

Sajnos a legutóbbi lesz, megpróbálom akkor ezt a megoldást, ezer köszönet
#1569 Baboka tag Homer #1562

Új Válasz 2011-12-27 10:22:22 #1569
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Baboka

tag

válasz Homer #1562 üzenetére

Köszönöm ez egyelőre jó. Az előző formátumnál arra gondoltam hogy ez a színezés ez egy előre formázott táblázatban lesz, nagyon sok oszlopa van azért kell ez hogy az egész sort átszínezi ha rajta állok és ha más sorba kerül az aktív cella akkor, az előző sornak a formátumát állítsa vissza. Nem tudom mennyire írom érthetően, még eléggé amatőr vagyok VBA-ból
#1561 Baboka tag

Új Válasz 2011-12-23 11:53:15 #1561
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Baboka

tag

Sziasztok!
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:A50")) Is Nothing Then Exit Sub If Selection.Cells.Count > 1 Then Exit Sub If Target <> "" Then Rows(Target.Row).Interior.ColorIndex = 10 Else Rows(Target.Row).Interior.ColorIndex = xlNone End If End Sub
ezt a programot szeretném úgy átalakítani hogy ha kijelölök egy cellát akkor az egész sort beszinezze, de ha másik cellát jelölök ki akkor az előző sor visszaálljon az előző állapotába.
#1402 Baboka tag martonx #1401

Új Válasz 2011-07-19 14:50:25 #1402
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Baboka

tag

válasz martonx #1401 üzenetére

igen közben már beszoroztam mindegyiket eggyel és ennyi volt azért köszönöm szépen
#1400 Baboka tag ArchElf #1399

Új Válasz 2011-07-19 12:09:44 #1400
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Baboka

tag

válasz ArchElf #1399 üzenetére

köszi azért a fáradságod, megpróbálom ott is.
#1398 Baboka tag ArchElf #1397

Új Válasz 2011-07-19 11:43:49 #1398
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Baboka

tag

válasz ArchElf #1397 üzenetére

sajna value-vel sem megy ugyan azt dobja ki, kérdezz meg bármit válaszolok mindenre csak már nem ez az első makró aminél ezt a hibát kapom
For i = fk + 1 To ssz If (Sheets(2).Cells(i, eo).Value <> "") Then For j = fk + 1 To ssz If (Sheets(1).Cells(j, mo1).Value = Sheets(2).Cells(i, mo1).Value) And (Sheets(1).Cells(j, mo2) = Sheets(2).Cells(i, mo2)) And (Sheets(1).Cells(j, mo3) = Sheets(2).Cells(i, mo3)) Then For k = 1 To osz Sheets(1).Cells(j, k) = Sheets(2).Cells(i, k) Next k End If Next j End If Next i
#1396 Baboka tag

Új Válasz 2011-07-19 11:14:22 #1396
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Baboka

tag

sziasztok!
Elkezdtem egy táblaösszemásoló makrót megírni, még kezdő vagyok nagyon, ezt kérem figyelembe venni, de az a problémám hogy mindig a jó kis runtime error 1004 jön ki a program ciklusainál
For i = fk + 1 To ssz
If (Sheets(2).Cells(i, eo) <> "") Then <----------------itt áll le
For j = fk + 1 To ssz
If (Sheets(1).Cells(j, mo1) = Sheets(2).Cells(i, mo1)) And (Sheets(1).Cells(j, mo2) = Sheets(2).Cells(i, mo2)) And (Sheets(1).Cells(j, mo3) = Sheets(2).Cells(i, mo3)) Then
For k = 1 To osz
Sheets(1).Cells(j, k) = Sheets(2).Cells(i, k)
Next k
End If
Next j
End If
Next i
fk: táblafejléc kezdete
eo: ellenőrző oszlop, ha üres akkor meg sem kell vizsgálni
mo1,2,3: adatoszlopok száma, amiket meg kell vizsgálnia
ha tudtok segíteni akkor előre is köszönöm!