Keresés

az elöbbiekben feltett kérdésemnek az általam megírt kódja:

Sub Rögzítés5()
'
' Rögzítés1 Makró
' Rögzítette: BySzka, dátum: 2007.01.18.
'

'

If "A1" = """" Then
Sheets("Munka3").Select
Else
Sheets("Munka2").Select

End If

End Sub

Minden esetben a Munka3-ra ugrik úgyhogy valami a feltételmehatározásnál nem jó! Próbáltam már nem ""-el hanem számmal is de sehogy nem jó! Köszönöm

Sziasztok

Nekem egy egyszerű problémám lenne, de nem tudom megoldani.

Csináltam egy makrót ami működik is, de azt szeretném elérni, hogy ha mondjuk az A1 cella üres akkor nem csináljon semmit. Előre is köszönöm a megoldást.

Így ránézésre az lehet a gond, hogy nem korrekt az aktiv cella megadása a vizsgálatnál. Kérdés: mi az aktiv cella éppen?

Korábban írtad, hogy a C oszlopra vizsgálja, van -e benne valami, de itt a ciklusban nincs jól kiválasztva a C következő cellája a vizsgálat előtt. Azaz a ciklus végén a léptetés után a wend előtt kéne egy cells(i,3).select. Én nem tudom tesztelni jól, mert nincs tesztadatom, és nem néztem meg jobban mit cisnál tulajdonképpen, de szerintem ez a gond.

Egy makrós megoldás:

Sub Összead()

Dim Szam As Long
Dim Oszlop As Long
Dim i As Integer
Dim Hol() As Long
Dim k As Integer
Dim t As Integer
Dim Osszeg As Integer
Dim Eredmenycella As String
On Error GoTo hiba

Szam = Val(InputBox("Kérem adja meg a keresendő számot!", "Összeadó", "10211"))
Oszlop = Val(InputBox("Kérem adja meg az utolsó oszlop számát!", "Összeadó", "4"))
Eredmenycella = InputBox("Ide kérem az eredményt", "Összeadó", "A10")
Cells(1, 1).Select
i = 1
While Trim$(ActiveCell.Value) <> "" And IsNumeric((ActiveCell.Value))
        ReDim Preserve Hol(1 To i)
        Hol(i) = 0
        If Szam = Val(ActiveCell.Value) Then
                Hol(i) = 1
        End If
        i = i + 1
        Cells(i, 1).Select
Wend

For k = 1 To UBound(Hol)
      If Hol(k) = 1 Then
            For t = 2 To Oszlop
                Cells(k, t).Select
                Osszeg = Osszeg + Val(ActiveCell.Value)
            Next t
      End If
Next k
Range(Eredmenycella).Select
ActiveCell.Value = Osszeg
Exit Sub
hiba:

End Sub

SZUMHA() = már próbálkoztam de nem jó.

A pivot táblához nem értek (nagyon), de nem is igazán megoldás.

Én a HA függvénybe ágyazott SZUM és FKERES fügvényekkel próbálkoztam. Nem igazán jött össze, mert mindig 1 lett a végeredmény. Igazából kezd megörjíteni, hogy egy nem túl nehéz feladatot ilyen bonyolultan lehet megadni az EXCEL-ben, de egy tömp mátrix determinánsát pillanatok allatt kiszámol...

Az első kép a lista, a második az űrlap. Így talán érthetőbb, hogy mit szeretnék. Az űrlapra jó lenne a szokásos űrlap vezérlő, amivel léptetni lehet a rekordokat.

Úgy szeretném megoldani, hogy 1.0-s userek is használhassák;)

Tehát van két munkalapom, az egyiken egy szép kinézetű űrlap, amibe beírhatja az adatokat, a másikban pedig egy lista, ami töltődik az űrlapból. Az űrlap funkció nem rossz, de azt mindig be kell kapcsolni, valahányszor megnyitjuk a doksit és ki kell jelölni a listát hozzá.

Na, de így már jó.

Üdv!

Hogyan lehet megoldani azt, hogyha létrehozok egy saját készítésű űrlapot (pontosabban készítek egy sémát, amin adatokat lehet bevinni) és az töltene egy másik munkalapon egy listát?

Használható range-ben is a cells, így tartomány is megadható vele, pl. A1:C5-ös tartománnyal csinélunk valamit, és a számok helyett persze futó változókat is megadhatunk:

Range(Cells(1, 1), Cells(5, 3)).xxxxxx

Szerintem neked segíthet az előbbi hozzászólásom.

Ha cells()-et használod, könnyen ciklusba tudod szervezni a műveleteket.

cells(i,k) i-edik sor, k-adik oszlop, pl. cells(5,3) a c5-ös cellára hivatkozik, és tartomány is megadható.

Az excel visual basic szerkesztőjének helpjében érdemes megnézni a cells-et és a vonatkozó példákat.

Csak egy ötlet a megoldáshoz, ha jól értem ilyen jellegű a probléma:

Itt az első oszlop celláin megy végig, amíg nem talál üreset, és átmásolja szomszédos B cellába. Egyéb feltételeket is lehetne vizsgálni, pl. csak akkor álljon le ha n darab üres ceelát talált, vagy az elején hagyja ki az üres cellákat.

dim i as long

i = 1
Cells(i, 1).Select
While Trim$(ActiveCell.Value) <> ""    
    
    Cells(i, 1).Select
    Cells(i, 1).Copy
   Cells(i, 2).PasteSpecial
    i = i + 1
Wend