problem devam ediyor

[moresby]

Verileri aktardığım sayfa2 de grafik oluşturmak istiyorum. Ancak aktarılan değerler sayı olarak görünmediği için grafik görüntülenmiyor bedersunun söyleğini yapmaya çalıştım ama beceremedi. Tekrar yardım ederseniz memmun olurum

 

[SGM020]

Verileri aktardığım sayfa2 de grafik oluşturmak istiyorum. Ancak aktarılan değerler sayı olarak görünmediği için grafik

Sayfa2'deki rakamlarınızın bulunduğu hücre kenarında gelen ! işretli yeri açar ve Convert to number yaparsanız grafiğinizin oluştuğunu göreceksiniz.

kolay gelsin.

 

[veyselemre]

Sheets(2).Cells(s - no, nn) = Int(Controls("Textbox" & s))
şeklinde dene

 

[SGM020]

veya ilgili yere aşağıdaki macroyu koy.

Sub Macro3()
'
' Macro3 Macro
'
'

'
Range("J1").Select
ActiveCell.FormulaR1C1 = "1"
Range("J1").Select
Selection.Copy
Range("B2:H11").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub

 

[moresby]

tşk

Private Sub CommandButton4_Click()
a = 3
aa = 1
nn = 1
For i = 2 To 8
no = aa + (i - 1) * 10
nn = nn + 1
T = a + (i - 1) * 10
For s = T To T + 9
Sheets(2).Cells(s - no, nn) = Int(Controls("Textbox" & s))
Next s
Next i
End Sub
kodunda Int kullnınca sorunun hallediyor ancak bu seferde tektbox sayısı artınca yaralamakta sıkıntı çektim ve bende
Private Sub CommandButton4_Click()
Set sh2 = Sheets("sayfa2")
For x = 13 To 26
sh2.Cells(x - 11, 2) = Controls("textbox" & x)
sh2.Cells(x - 11, 3) = Controls("textbox" & x + 14)
sh2.Cells(x - 11, 4) = Controls("textbox" & x + 28)
sh2.Cells(x - 11, 5) = Controls("textbox" & x + 42)
sh2.Cells(x - 11, 6) = Controls("textbox" & x + 56)
sh2.Cells(x - 11, 7) = Controls("textbox" & x + 70)

Next
End Sub
bu kodlarla işimi çözdüm ancak IntControls bunda çözüm olmuyor yada ben halldemedim ayrıca bukadar hızlı cevap verdiğiniz için tş ederim

 

[veyselemre]

Private Sub CommandButton4_Click()
Set sh2 = Sheets("sayfa2")
For x = 13 To 26
sh2.Cells(x - 11, 2) = Int(Controls("textbox" & x))
sh2.Cells(x - 11, 3) = Int(Controls("textbox" & x + 14))
sh2.Cells(x - 11, 4) = Int(Controls("textbox" & x + 28))
sh2.Cells(x - 11, 5) = Int(Controls("textbox" & x + 42))
sh2.Cells(x - 11, 6) = Int(Controls("textbox" & x + 56))
sh2.Cells(x - 11, 7) = Int(Controls("textbox" & x + 70))
Next
End Sub

 

[moresby]

tşk ederim sorun çözüldü