Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Closed Thread
 
Thread Tools Display Modes
  #1  
Old 11-07-2016, 03:33 AM
ConorOMalley ConorOMalley is offline I need to write a general VBA program that will bootstrap any given size development triangle. Windows 7 64bit I need to write a general VBA program that will bootstrap any given size development triangle. Office 2007
Novice
I need to write a general VBA program that will bootstrap any given size development triangle.
 
Join Date: Nov 2016
Posts: 2
ConorOMalley is on a distinguished road
Default I need to write a general VBA program that will bootstrap any given size development triangle.

Sub Boot()
Dim x As Range
For Each x In Range("B:B")
If x.Value = "" Then
x.Select
RowCount = ActiveCell.Row
MsgBox (RowCount)
Exit For
End If
Next x
End Sub

Dim i As Integer
Dim j As Integer

For i = 1 To RowCount
For j = 2 To RowCount
If i = 1 Then
Selection.Cells(RowCount + 2, 1).Value = "Cij"
Selection.Cells(RowCount + 2, j).Value = Selection.Cells(1, j)
Selection.Cells(RowCount * 2 + 3, 1).Value = "IDF"
Selection.Cells(RowCount * 2 + 4, 1).Value = "CDF"
Selection.Cells(RowCount * 2 + 5, 1).Value = "% Dev"
Selection.Cells(RowCount * 2 + 7, 1).Value = "D'ij"
Selection.Cells(RowCount * 2 + 7, j).Value = Selection.Cells(1, j)
Selection.Cells(RowCount * 3 + 9, 1).Value = "C'ij"
Selection.Cells(RowCount * 3 + 9, j).Value = Selection.Cells(1, j)
Selection.Cells(RowCount * 4 + 11, 1).Value = "Rij"
Selection.Cells(RowCount * 4 + 11, j).Value = Selection.Cells(1, j)
Selection.Cells(RowCount * 5 + 13, 1).Value = "R*ij"
Selection.Cells(RowCount * 5 + 13, j).Value = SelectionCells(1, j)
Selection.Cells(RowCount * 6 + 15, 1).Value = "C*ij"
Selection.Cells(RowCount * 6 + 15, j).Value = Selection.Cells(1, j)
Selection.Cells(RowCount * 7 + 17, 1).Value = "D*ij"


Selection.Cells(RowCount * 7 + 17, j).Value = SelectionCells(1, j)
Selection.Cells(RowCount * 7 + 19, 1).Value = "IDFs"
Selection.Cells(RowCount * 7 + 20, 1).Value = "CDFs"

Else
Selection.Cells(i + RowCount + 1, 1).Value = Selection.Cells(i, 1)
Selection.Cells(i + RowCount + 1, j).FormulaR1C1 = " = If(IsBlank(R[" & -(RowCount + 1) & "]C1)),"""",(Sum(R[" & -(RowCount + 1) & "]C1)):RC[-1]"

That is how I've gone about starting it but am struggling to get the required formulas in the right format.
Any help would be appreciated.
  #2  
Old 11-07-2016, 03:54 AM
macropod's Avatar
macropod macropod is offline I need to write a general VBA program that will bootstrap any given size development triangle. Windows 7 64bit I need to write a general VBA program that will bootstrap any given size development triangle. Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Kindly don't post the same question multiple times. Your previous post (https://www.msofficeforums.com/excel...gram-will.html), which was already in the correct forum, was enough.

Thread closed.

PS: When posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Closed Thread

Tags
bootstrap, triangles, vba code

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
I need to write a general VBA program that will bootstrap any given size development triangle. ConorOMalley Excel Programming 1 11-07-2016 07:36 AM
Is anyone else continually disappointed by PowerPoint development? seanspotatobusiness PowerPoint 2 04-08-2014 06:43 AM
write need help and copy write need help on another page auto wykoems Word 2 07-25-2013 07:56 AM
Game Development mic101 PowerPoint 0 03-06-2012 01:53 PM
I need to write a general VBA program that will bootstrap any given size development triangle. What is the Little Green Triangle? tatihulot Excel 9 01-21-2011 06:01 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 01:39 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft