momtoronomyotypaldollyochagi...

1. Jeden pies, efekt ten sam. , Dexter 4/07/16 11:43
   Ale nie chcę tego w kolumnie B tylko w A.
   
   Zamiast 1 ma być =1/B1

   Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
   Odpowiedzi oleję.
   THX!

.:Pozdrowienia:.

1. "dim i" , Kenny 4/07/16 11:41
   rzecz jasna

   .:Pozdrowienia:.

   1. No nie tak prędko. , Dexter 4/07/16 11:46
      Zapomniałem dodać, że wartości w kolumnie A nie są dokładnie 1,2,3,4... to był przykład.
      
      Są różne wartości w komórkach.

      Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
      Odpowiedzi oleję.
      THX!

      1. nie szkodzi , ligand17 4/07/16 13:49
         możesz przecież odczytać wartość komórki i użyć jej w następnej linii:
         
         Do Until i = 100
         val = Cells(i, 1)
         Cells(i, 1).Value = "=" & val & "/B1"
         i = i + 1
         Loop
         1. Dzięki Ligand, już rozpykałem... , Dexter 4/07/16 13:53
            Ja zrobiłem tak:
            
            Sub AddB1()
            Dim c As Range
            For Each c In Selection
            If c.Value <> "" Then c.Value = "=" & c.Value & "/B1"
            Next
            End Sub

            Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
            Odpowiedzi oleję.
            THX!

            1. Też działa , ligand17 4/07/16 14:22
               ew. przy debugowaniu jest mniej czytelnie :-)

f*ck

1. NIE. , Dexter 4/07/16 12:18
   Przecież piszę, że to ma być w tej samej kolumnie.

   Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
   Odpowiedzi oleję.
   THX!

   1. lol , elliot_pl 4/07/16 12:45
      no to jak MA BYC to masz slabo. Wiesz ze excel ma wiecej niz 1 kolumne, nie?

      momtoronomyotypaldollyochagi...

      1. Na bank jest sposób, jakiś VB... , Dexter 4/07/16 13:03
         Co mi po innych kolumnach? Ma być w tej samej, orientujesz się, że excel ma równiez odwołania do konkretnych komórek?

         Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
         Odpowiedzi oleję.
         THX!

         1. Wykopiuj na bok do notepad++ , ptoki 4/07/16 13:21
            dopisz se tam co trzeba i wkopiuj spowrotem.
            
            Notepad++ potrafi edytowac pliki w wielu wierszach równocześnie.
            
            Ogólnie to weź i zrob tak jak koledzy piszą a te kolumne ukryj albo wynieś na prawy koniec arkusza.
            
            Robisz od niedobrej strony :)

         2. no to jak jest , elliot_pl 4/07/16 13:40
            to zastosuj. Ale tak jak ptoki ci napisal - komplikujesz rzeczy proste i tyle.
            
            Jesli masz odwolanie do konkretnych komorek, to zrob dzialanie w kolumnie obok, a potem zamien je miejscami.

            momtoronomyotypaldollyochagi...

         3. dobra masz - robi _dokladnie_ to co chcesz :) , Kenny 4/07/16 13:52
            Przyklad dla 100 wierszy - musisz dopasowac ilosc wierszy po Do While, nie chcialo mi sie juz doklejac zeby sam szukal LastRow...
            
            
            
            Sub makro()
            
            Dim i As Integer
            i = 1
            
            Do While i < 101
            Cells(i, 1).Value = "=" & Cells(i, 1) & "/$B$1"
            i = i + 1
            Loop
            
            End Sub

            .:Pozdrowienia:.

            1. Już wykminiłem, patrz wyżej. , Dexter 4/07/16 13:53
               123

               Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
               Odpowiedzi oleję.
               THX!