Results 1 to 3 of 3

Thread: Excel

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Mar:2008
    Location: BG
    Posts: 162

    Excel

    Excel. , B8 3 ( B8=3) B14 1 (B14=1). .

    :

    Sub BothTogether_1()
    CopyPict
    End Sub

    Sub CopyPict()
    Sheets("Snimkite").Select
    ActiveSheet.Shapes("Group 1").Select
    Selection.Copy
    Sheets(" ").Select
    Range("G2").Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft -0.75
    Selection.ShapeRange.IncrementTop -8.25
    Range("D2:I46").Select

    End Sub
    Last edited by milenk; 27th September 2013 at 05:49.

  2. #2
    Registered User
    Join Date: Aug:2009
    Location:
    Posts: 265
    ?
    Code:
    If Sheets("Snimkite").Range("B8").Value = 3 And Sheets("Snimkite").Range("B14").Value = 1 Then
      ...
    End If

  3. #3
    Registered User
    Join Date: Mar:2008
    Location: BG
    Posts: 162
    , . . Sheets("Snimkite") Sheets("Formuli")....... ( Sheets ) .
    , . 17 .



    P.S. .

    Code:
    Sub BothTogether_1()
        CopyPict
    End Sub
    
    Sub CopyPict()
    If Sheets("Formuli").Range("B8").Value = 3 And Sheets("Formuli").Range("B14").Value = 1 And Sheets("Formuli").Range("B17").Value = 0 And Sheets("Formuli").Range("B31").Value < 1 Then
    Sheets("Snimkite").Select
    ActiveSheet.Shapes("Group 1").Select
    Selection.Copy
    Sheets("  ").Select
    Range("G2").Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft -0.75
    Selection.ShapeRange.IncrementTop -8.25
    Range("D2:I46").Select
    End If
    End Sub


    . . .
    Last edited by milenk; 27th September 2013 at 16:09.

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 |