textboxları hücrelere yazdırma

[johnadam]

merhabalar,

ekte "örnek" olarak verdiğim dosyada bir excel dosyası var.bu dosyada matris oluşturuyoruz. ben oluşan matrisi hücrelere yazdırmak istiyorum. şöyle ki; matrisin ilk satırı ve sütunu, satır ve sütun isimleri olarak yazdıralacak. sonra matris yazdıralacak. bunu nasıl yapabilirim.

 

[Orion1]

Anlamadım bir butonda göremedim.
Sadece userfordaki butona basınca userform2 ve boş textboxlar çıkıyor.Başka bir şey yok.

 

[johnadam]

şimdi boş textbox ve o textboxlara ait satır ve sütun isimleri çıkıyor. benim dediğimse mesela bir buton olacak ve butona tıklayınca textboxların içine yazdıklarımızı ve satır sütun isimlerini bir sayfaya yazdıracak.

 

[Orion1]

şimdi boş textbox ve o textboxlara ait satır ve sütun isimleri çıkıyor. benim dediğimse mesela bir buton olacak ve butona tıklayınca textboxların içine yazdıklarımızı ve satır sütun isimlerini bir sayfaya yazdıracak.

Her textboxın içindeki değer bulunduğu satır ve sütunamı yazılacak?

 

[johnadam]

dediğim şey şu ki; textboxların içine yazıları ve textboxlara ait satır sütun isimlerini excelde bir sayfaya yazdırmak istiyorum. nasıl yapmam lazım.

 

[johnadam]

dediğim şuydu; oluşan matriste satır ve sütun isimlerini ve boş textboxlara girilen değerleri excel sayfasına yazdırmak istiyorum. nasıl yapabilirim.

 

[Orion1]

Ekli dosyayı inceleyiniz.
Satır & Sütun ve textboın değeri yazılıyor.

Private Sub CommandButton1_Click()
Dim sut As Byte, sat As Byte, i As Byte, k As Byte, z As Integer
sut = UserForm1.TextBox1.Text
sat = UserForm1.TextBox2.Text
For i = 1 To sut
    For k = 1 To sat
        z = z + 1
        Sheets("Sayfa1").Cells(i, k).Value = "-" & i & "-" & k & Controls("TextBox" & z).Value
    Next
Next
End Sub

Private Sub UserForm_Initialize()
satir = Val(UserForm1.TextBox2)
sutun = Val(UserForm1.TextBox1)

For e = 1 To satir * sutun
If e < satir + 1 Then
Controls.Add "Forms.label.1", "Sut" & e
Controls("Sut" & e).Top = 11.25
Controls("Sut" & e).Left = 76.5 + c
Controls("Sut" & e).Width = 55
Controls("Sut" & e).Height = 9.75
Controls("Sut" & e) = "Sut" & e
'Controls("Sut" & a).BorderStyle = 1
Controls("Sut" & e).TextAlign = 2
c = c + 58
End If

If e < sutun + 1 Then
Controls.Add "Forms.label.1", "Sat" & e
Controls("Sat" & e).Top = 32 + d
Controls("Sat" & e).Left = 20.25
Controls("Sat" & e).Width = 55
Controls("Sat" & e).Height = 9.75
Controls("Sat" & e) = "Sat" & e
'Controls("Sat" & b).BorderStyle = 1
d = d + 21.25
End If

Controls.Add "Forms.textbox.1", "TextBox" & e
Controls("TextBox" & e).Top = 27 + g
Controls("TextBox" & e).Left = 76.5 + h
Controls("TextBox" & e).Width = 55
Controls("TextBox" & e).Height = 18
h = h + 58

If e Mod satir = 0 Then
g = g + 21.25
h = 0
End If
Next
'Controls.Add "Forms.CommandButton.1", "CommandButton1"
Controls("CommandButton1").Top = Controls("TextBox" & e - 1).Top + 25
Controls("CommandButton1").Left = Controls("TextBox" & e - 1).Left
Controls("CommandButton1").Width = 55
Controls("CommandButton1").Height = 18
Controls("CommandButton1").Caption = "MATRİS"
'Controls("CommandButton1").Name = "CommandButton1"
d = Controls("CommandButton1").Top
c = Controls("CommandButton1").Left
If d > Me.Height And c > Me.Width Then
Me.ScrollHeight = d + 30
Me.ScrollWidth = c + 80
Me.ScrollBars = fmScrollBarsBoth
ElseIf d > Me.Height Then
Me.ScrollHeight = d + 30
Me.ScrollBars = fmScrollBarsVertical
ElseIf c > Me.Width Then
Me.ScrollWidth = c + 80
Me.ScrollBars = fmScrollBarsHorizontal
End If
End Sub

 

[johnadam]

Evren GİZLEN çok teşekkür ediyorum

 

[Orion1]

Evren GİZLEN çok teşekkür ediyorum

Rica ederim.
İyi çalışmalar.