Results 1 to 3 of 3
Thread: Excel
Hybrid View
-
26th September 2013 20:10 #1Registered 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.
-
27th September 2013 08:43 #2Registered 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
-
27th September 2013 10:23 #3Registered 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.




Reply With Quote
...
7th May 2023, 14:24 in