TextBoxlara Veri Kaydetme

[ahmed_ummu]

Merhaba arkadaşlar.

Resimde anlatmaya çalıştım. "tablo" sayfasındaki ders saatlerini Userform10 daki Multipage1 in 3. sekmesinde bulunan, Multipage2 nin 2. sekmesinde bulunan Textboxlara aldırmak istiyorum. Listbox6 ve Listbox7 ye veriler "tablo" sayfasından alınıyor. Örnek dosyamı da gönderiyorum. Yardımcı olursanız çok sevinirim. işelemler Userform10 da yapılacak.

Daha sonra üzerinde saatlerde değişiklik yapıldıktan sonra yine aynı sayfaya kaydetmek istiyorum. Aynı verilerin üzerine, mümkün müdür bilmiyorum.

Resimde seçilen kişide Listbox7 de 3 adet başlık var ama bu bazı kişilerde 7 ye kadar çıkabilir. Textler 7 başlığa göre.

 

[ahmed_ummu]

Teşekkürler arkadaşlar herhalde çözdüm.

 

[ahmed_ummu]

Merhaba arkadaşlar.

Aktif satırın D ... AO sütunlarının toplamını AP sütununa nasıl yaptırabilirim.
Yardımcı olursanız sevinirim.

 

[ahmed_ummu]

Merhaba arkadaşlar.

Aktif satırın D ... AO sütunlarının toplamını AP sütununa nasıl yaptırabilirim.
Yardımcı olursanız sevinirim.

Çözüldü.

 

[kemal turan]

Merhaba Ahmet bey,
Sorduğunuz sorulara bulduğunuz çözümleri de paylaşırsanız aynı soruların cevaplarına ihtiyaç duyan üyelerimize kaynak olur.
Teşekkür ederim

 

[ahmed_ummu]

Merhaba Ahmet bey,
Sorduğunuz sorulara bulduğunuz çözümleri de paylaşırsanız aynı soruların cevaplarına ihtiyaç duyan üyelerimize kaynak olur.
Teşekkür ederim

Sayfada toplatmak istemiştim. Ama yapamayınca Textlerin change özelliğine aşağıdaki kodları yazınca Textbox552 de toplandı ve textbox552 nin değerini sayfadaki toplam kısmına yazdırdım.

For i = 273 To 310
say = say + Val(Me.Controls("TextBox" & i).Value)
Next i
TextBox552.Value = say

 

[ahmed_ummu]

Bi sorum daha olacak, aşağıdaki kodlar ile "tablo" sayfası a7 den son satıra kadar sıra numarası vermek istiyorum. Ama Sadece A7 hücresini seçiyo ve bişey yazmıyor. Yardımcı olabilir misiniz.

Range("a7").Select
For X = 8 To [B65536].End(3).Row
ActiveCell.Offset(X, -1).Value = ActiveCell.Offset(-1, -1).Value + 1
Next X

 

[ahmed_ummu]

Aşağıdaki gibi bir kod buldum ama resimde de görüldüğü gibi bazı rakamları yazmıyor.

Range("a7").Select
For i = 1 To Range("B65530").End(3).Row - 7
On Error Resume Next
If (Range("B" & i - 6).Value <> "") Then
Range("A" & i + 6) = i
End If
Next i

Yardımcı olabilir misiniz.

 

[halit3]

1. soru için

sat = ActiveWindow.RangeSelection.Row
Sheets("tablo").Cells(sat, "AP").Value = WorksheetFunction.Sum(Sheets("tablo").Range(Sheets("tablo").Cells(sat, "D"), Sheets("tablo").Cells(sat, "AO")))

2. soru için

For i = 7 To Sheets("tablo").Cells(Rows.Count, "b").End(xlUp).Row
Sheets("tablo").Cells(i, "a").Value = i - 6
Next i

 

[ahmed_ummu]

1. soru için

sat = ActiveWindow.RangeSelection.Row
Sheets("tablo").Cells(sat, "AP").Value = WorksheetFunction.Sum(Sheets("tablo").Range(Sheets("tablo").Cells(sat, "D"), Sheets("tablo").Cells(sat, "AO")))

2. soru için

For i = 7 To Sheets("tablo").Cells(Rows.Count, "b").End(xlUp).Row
Sheets("tablo").Cells(i, "a").Value = i - 6
Next i

Düzeldi Halit bey. Teşekkürler.

 

[ahmed_ummu]

Düzeldi Halit bey. Teşekkürler.

Halit bey bide "data1" sayfasındaki L5 ve L6 hücrelerine girilen tarihleri userform dan girebilir miyiz. Ben girdim ama "tablo" sayfasında puantaj gün isimlerini yazarken. mesela Tarih 04.10.2021 bu tarihin gününü alırken ilk sütuna 4 yazması gerekirken 04.10.2021 yazıyor ve puantajı yanlış hesaplıyor. Yani puantajın dışına da rakamlar yazıyor. userform textbox265 ve textbox266 dan girilecek. "data1" sayfası L5 ve L6 hücrelerine verecek o tarihleri. Yardım edebilir misiniz. Dosyayı da gönderebilirim.

 

[halit3]

tarihi güne çevireceksiz
aşağıdaki gibi

format("04.10.2021","dd")

format(tarih,"dd")

 

[halit3]

kod:

Private Sub CommandButton78_Click()
 Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer
    
    Set S1 = Sheets("data1")
    Set S2 = Sheets("tablo")
    S2.Range("D5:AO5").ClearContents
    sut = 4
    For i = CDate(TextBox265.Text) To CDate(TextBox266.Text)
        tarih = CDate(TextBox265.Text) + sut - 4
        S2.Cells(5, sut) = Val(Format(tarih, "dd"))
        S2.Cells(5, sut).NumberFormat = "General"
        sut = sut + 1
        If sut = 41 Then Exit Sub
    Next i

End Sub

 

[ahmed_ummu]

tarihi güne çevireceksiz
aşağıdaki gibi

format("04.10.2021","dd")

format(tarih,"dd")

Yine olmadı Halit bey.

Dosyayıda ekledim size zahmet olacak bi bakabilir misiniz. userform10 Multipage2 nin 1. sekmesindeki text265 ve text266 dan girilecek tarihler

 

[ahmed_ummu]

Yine olmadı Halit bey.

Dosyayıda ekledim size zahmet olacak bi bakabilir misiniz. userform10 Multipage2 nin 1. sekmesindeki text265 ve text266 dan girilecek tarihler

Mesajınızı yeni gördüm. Deneyeceğim.

 

[ahmed_ummu]

kod:

Private Sub CommandButton78_Click()
Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer
   
    Set S1 = Sheets("data1")
    Set S2 = Sheets("tablo")
    S2.Range("D5:AO5").ClearContents
    sut = 4
    For i = CDate(TextBox265.Text) To CDate(TextBox266.Text)
        tarih = CDate(TextBox265.Text) + sut - 4
        S2.Cells(5, sut) = Val(Format(tarih, "dd"))
        S2.Cells(5, sut).NumberFormat = "General"
        sut = sut + 1
        If sut = 41 Then Exit Sub
    Next i

End Sub

Evet Halit bey çok güzel olmuş istediğim gibi. Çok Teşekkürler.

 

[ahmed_ummu]

Evet Halit bey çok güzel olmuş istediğim gibi. Çok Teşekkürler.

Halit bey Userformdan tarihleri girsek de puantajı data1 sayfasındaki eski tarihe göre hesaplıyor. Mesela Aralık ayının 1'i Çarşamba günü ama Burada Pazartesi gösteriyo. data1 de şu an yazılı olan eski tarihlere göre hesaplıyo puantajı

 

[ahmed_ummu]

Halit bey Userformdan tarihleri girsek de puantajı data1 sayfasındaki eski tarihe göre hesaplıyor. Mesela Aralık ayının 1'i Çarşamba günü ama Burada Pazartesi gösteriyo. data1 de şu an yazılı olan eski tarihlere göre hesaplıyo puantajı

Text265 ve text266 dan girilen tarihler data1 sayfasındaki L5 ve L6 ya yazılacak. Dosyayı ekleyeyim Bakabilir misiniz bi

 

[halit3]

kod
kırmızı yeri ekledim.

Private Sub CommandButton78_Click()
Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer

Set S1 = Sheets("data1")
Set S2 = Sheets("tablo")
S2.Range("D5:AO5").ClearContents

S1.Cells(5, "L") = CDate(TextBox265.Text)
S1.Cells(6, "L") = CDate(TextBox266.Text)

sut = 4
For i = CDate(TextBox265.Text) To CDate(TextBox266.Text)
tarih = CDate(TextBox265.Text) + sut - 4
S2.Cells(5, sut) = Val(Format(tarih, "dd"))
S2.Cells(5, sut).NumberFormat = "General"
sut = sut + 1
If sut = 41 Then Exit Sub
Next i

End Sub

 

[ahmed_ummu]

kod
kırmızı yeri ekledim.

Private Sub CommandButton78_Click()
Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer

Set S1 = Sheets("data1")
Set S2 = Sheets("tablo")
S2.Range("D5:AO5").ClearContents

S1.Cells(5, "L") = CDate(TextBox265.Text)
S1.Cells(6, "L") = CDate(TextBox266.Text)

sut = 4
For i = CDate(TextBox265.Text) To CDate(TextBox266.Text)
tarih = CDate(TextBox265.Text) + sut - 4
S2.Cells(5, sut) = Val(Format(tarih, "dd"))
S2.Cells(5, sut).NumberFormat = "General"
sut = sut + 1
If sut = 41 Then Exit Sub
Next i

End Sub

Olmuş Halit bey, çok zahmet verdim. Çok sağolun.