Results 1 to 5 of 5

Thread: ?

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User  's Avatar
    Join Date: Jan:2006
    Location:
    Posts: 162

    ?

    :

    1 1
    1 ,
    1
    2


    " , ? , ? "

  2. #2
    Bounty Hunter Johns's Avatar
    Join Date: Nov:2005
    Location:
    Posts: 728
    Quote Originally Posted by View Post
    :

    1 1
    1 ,
    1
    2


    MACROS. - " ", , -
    Last edited by Johns; 6th October 2012 at 18:12.
    Like the coldest winter chill
    Heaven beside you
    Hell within

  3. #3
    Registered User hateras's Avatar
    Join Date: Jan:2011
    Location: Kronos III
    Posts: 1,028
    A1 Sheet1 A Sheet2.
    Code:
    Sub copypaste()
        v = CStr(Worksheets("Sheet1").Cells(1, 1))
        If v <> "" Then
            b = False
            i = 1
            Do
                v1 = CStr(Worksheets("Sheet2").Cells(i, 1))
                If v1 = "" Then
                    Worksheets("Sheet2").Cells(i, 1) = v
                    b = True
                End If
                i = i + 1
            Loop Until b
        End If
    End Sub
    ASRock B550M Pro 4; Ryzen R5 3600; 2x16 GiB G.SKILL Aegis 3200; 1TB Samsung QVO 960 + 3TB Seagate IronWolf; Zalman Z1

  4. #4
    Registered User  's Avatar
    Join Date: Jan:2006
    Location:
    Posts: 162
    Quote Originally Posted by hateras View Post
    Code:
    Sub copypaste()
        v = CStr(Worksheets("Sheet1").Cells(1, 1))
        If v <> "" Then
            b = False
            i = 1
            Do
                v1 = CStr(Worksheets("Sheet2").Cells(i, 1))
                If v1 = "" Then
                    Worksheets("Sheet2").Cells(i, 1) = v
                    b = True
                End If
                i = i + 1
            Loop Until b
        End If
    End Sub
    , . hateras
    " , ? , ? "

  5. #5
    Registered User hateras's Avatar
    Join Date: Jan:2011
    Location: Kronos III
    Posts: 1,028
    : . String (CStr ) - IsEmpty . - . ...
    ASRock B550M Pro 4; Ryzen R5 3600; 2x16 GiB G.SKILL Aegis 3200; 1TB Samsung QVO 960 + 3TB Seagate IronWolf; Zalman Z1

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |