Maktro Problem!!!

IP: *.cust.uk.viatel.net 29.03.07, 16:07
Jak powinno wygladac Makro w Excel, najlepiej po angielsku, ktore w
wybranej 'range', wkleji skopiowano wartosc do pierwszej wolnej komorki w
danej 'range'.

Poprostu chcialbym zeby najpierw sprawdzilo czy w danej range sa juz jakies
wartosci, a jesli sa to zeby skopiowane dane zostaly wklejone do pierwszej
wolnej komorki w danej 'range'.


Jesli ktos bedzie mogl mi pomoc to bede wdzieczny
    • r_ed Re: Maktro Problem!!! 29.03.07, 21:01
      Public Sub ft(myRange As String, value As String)
      Dim cells As Range
      For Each cells In Range(myRange)
      If cells.value = "" Then
      cells.value = value
      Exit Sub
      End If
      Next
      End Sub

      gdzie:
      myRange - zakres szukania
      value - wyrazenie jakie ma byc wstawione do pierwszej pustej komorki.
      • Gość: Makro Re: Maktro Problem!!! IP: *.cust.uk.viatel.net 30.03.07, 10:38
        dzieki,


        dziala bez zarzutow. jeszcze raz dzieki
        • Gość: Makro Re: Maktro Problem!!! IP: *.cust.uk.viatel.net 30.03.07, 12:51
          Red,


          Public Sub ft(myRange As String, value As String)
          Dim cells As Range
          For Each cells In Range(myRange)
          If cells.value = "" Then
          cells.value = value
          Exit Sub ---------------------------
          End If
          Next
          End Sub



          Ten kod dziala bez zarzutow, ale jest maly problem. Chcialbym zeby w tym makro
          zostaly dodane dane do kilku kolumn. Wyglada to tak: stworzylem makro ktorym
          jest inputbox, wprowadzona wartosc jest pozniej kopiowana do komorki w arkuszu,
          tak samo dzieje sie dla 2 i 3 inputbox'a. Do kazdej tej wartosci jest
          przypisana autmatczynie data. No i chodzi mi oto zeby i wartosc i date w 3
          przypadkach mozna bylo dodac do pierwszej pustej komorki w innym arkuszu.

          Twoj kod dziala dobrze ale przez to ze jest Exit Sub moge go tylko uzyc do 1
          wartosci, a ja chcialbym zeby jedno makro dodawalo komorki. Jesli usune Exit
          Sub to wartosci zostana dodane we wszyskich komorkach danej range.


          Problem moznaby rozwiazac w taki sposob: stworzyc 6 makr dla poszczegolnych
          wartosci a pozniej. W innym makro napisac komende aby uruchomic tych 6 makr po
          kolei. Tyle tylko, ze nie wiem jak taka komenda powinna wygladac.

          A jeszcze jedno,


          Jesli wiesz rowniez jak powinna wygladac komenda do uruchomienia userform spod
          makra.


          Dzieki,
          • r_ed Re: Maktro Problem!!! 30.03.07, 15:31
            > Problem moznaby rozwiazac w taki sposob: stworzyc 6 makr dla poszczegolnych
            > wartosci a pozniej. W innym makro napisac komende aby uruchomic tych 6 makr po
            > kolei. Tyle tylko, ze nie wiem jak taka komenda powinna wygladac.

            Mozna zmodyfikowac makro tak zeby dzialalo dla konkretnego arkusza, dla ktorego
            ma nastepowac zamiana. Poczatek bylby taki:

            Public Sub ft(myRange As String, value As String, arkusz As String)
            Dim cells As Range
            For Each cells In Worksheets(arkusz).Range(myRange)
            ...

            > Jesli wiesz rowniez jak powinna wygladac komenda do uruchomienia userform spod
            > makra.

            userform.show
Pełna wersja