Verilerin Diğer Sayfalarda da Güncellenmesi

[metin_0606]

Değerli forum üyeleri paylaşmış olduğum çalışmamda Projeler isimli sayfadaki verileri listboxa çekip, daha sonra listboxa gelen verileri textboxlara click olayı ile aktarıp verileri güncelleyebiliyorum. Buraya kadar hiç bir sıkıntı yok. Yapmak istediğim Projeler sayfasında güncellemesini yaptığım verilerden Sözleşme Sayısı ve İzin sayısı verilerinin GRAFIK (Sözleşme Sayısı) ve GRAFIK 2 (İzin Sayısı) sayfalarında da güncellenmesi. Yardımlarının için şimdiden teşekkürler

 

[metin_0606]

güncel

 

[AdemCan]

"Yeni eklenen satır" açıklaması ile belirttiğim satırlar ile diğer sayfalara da aktarım yapabilirsiniz.

Private Sub CommandButton3_Click()
Set sf = Sheets("PROJELER")

Set grafik1 = Sheets("GRAFIK") ' Yeni eklenen satır
Set grafik2 = Sheets("GRAFIK 2") ' Yeni eklenen satır

sat = ListBox1.ListIndex + 2
ListBox1.RowSource = ""

'sf.Cells(sat, "D") = TextBox36.Value
'MAVİ ALAN
a = 2 'HANGİ SÜTUN
For i = 3 To 3 'hangi textboxlar arası
sf.Cells(sat, a) = Controls("textbox" & i).Value
a = a + 2
Next i

For i = 3 To 3
Controls("textbox" & i).Value = ""
Next i
'TextBox36.Value = ""

'*******************************************
b = 3
For i = 4 To 4
sf.Cells(sat, b) = Controls("textbox" & i).Value
b = b + 2
Next i

For i = 4 To 4
Controls("textbox" & i).Value = ""
Next i
'*****************************************

c = 6
For i = 7 To 7
sf.Cells(sat, c) = Controls("textbox" & i).Value
grafik1.Cells(sat, 3) = Controls("textbox" & i).Value ' Yeni eklenen satır
c = c + 2
Next i

For i = 7 To 7
Controls("textbox" & i).Value = ""
Next i

'************************************************

d = 7
For i = 8 To 8
sf.Cells(sat, d) = Controls("textbox" & i).Value
grafik2.Cells(sat, 3) = Controls("textbox" & i).Value ' Yeni eklenen satır
d = d + 2
Next i


For i = 8 To 8
Controls("textbox" & i).Value = ""
Next i

CommandButton1_Click

End Sub

 

[metin_0606]

"Yeni eklenen satır" açıklaması ile belirttiğim satırlar ile diğer sayfalara da aktarım yapabilirsiniz.

Private Sub CommandButton3_Click()
Set sf = Sheets("PROJELER")

Set grafik1 = Sheets("GRAFIK") ' Yeni eklenen satır
Set grafik2 = Sheets("GRAFIK 2") ' Yeni eklenen satır

sat = ListBox1.ListIndex + 2
ListBox1.RowSource = ""

'sf.Cells(sat, "D") = TextBox36.Value
'MAVİ ALAN
a = 2 'HANGİ SÜTUN
For i = 3 To 3 'hangi textboxlar arası
sf.Cells(sat, a) = Controls("textbox" & i).Value
a = a + 2
Next i

For i = 3 To 3
Controls("textbox" & i).Value = ""
Next i
'TextBox36.Value = ""

'*******************************************
b = 3
For i = 4 To 4
sf.Cells(sat, b) = Controls("textbox" & i).Value
b = b + 2
Next i

For i = 4 To 4
Controls("textbox" & i).Value = ""
Next i
'*****************************************

c = 6
For i = 7 To 7
sf.Cells(sat, c) = Controls("textbox" & i).Value
grafik1.Cells(sat, 3) = Controls("textbox" & i).Value ' Yeni eklenen satır
c = c + 2
Next i

For i = 7 To 7
Controls("textbox" & i).Value = ""
Next i

'************************************************

d = 7
For i = 8 To 8
sf.Cells(sat, d) = Controls("textbox" & i).Value
grafik2.Cells(sat, 3) = Controls("textbox" & i).Value ' Yeni eklenen satır
d = d + 2
Next i


For i = 8 To 8
Controls("textbox" & i).Value = ""
Next i

CommandButton1_Click

End Sub

Sayın efsane Süper olmuş gerçekten çok teşekkür ederim. Saygılar

 

[AdemCan]

Rica ederim. Saygılar.

 

[metin_0606]

Rica ederim. Saygılar.

Sayın Faye yazmış olduğunuz makroya ilaveten PROJELER sayfasında sütun A da bulunan verileri güncellemek istiyorum. Burada guncelledigim verinin GRAFİK ve GRAFİK 2 sayfaların dada aynı anda güncellemesini mevcut makroda nasıl sağlayabiliriz.

 

[AdemCan]

Merhaba, kodları ben yazmadım ama o iki satırı ben ekledim.

Mevcut kodda bir değişiklik önerisinde bulunmak istiyorum.
CommandButton3_Click kodlarını aşağıdaki kodlar ile değiştiriniz.

Örnek dosyadaki Kodlar ile aynı işlemi yapar.

Private Sub CommandButton3_Click()
Set sf = Sheets("PROJELER")

Set grafik1 = Sheets("GRAFIK")
Set grafik2 = Sheets("GRAFIK 2")

sat = ListBox1.ListIndex + 2
ListBox1.RowSource = ""

sf.Cells(sat, "A") = TextBox1.Value
grafik1.Cells(sat, "A") = TextBox1.Value
grafik2.Cells(sat, "A") = TextBox1.Value

sf.Cells(sat, "B") = TextBox3.Value
sf.Cells(sat, "C") = TextBox4.Value
sf.Cells(sat, "F") = TextBox7.Value
grafik1.Cells(sat, "C") = TextBox7.Value
sf.Cells(sat, "G") = TextBox8.Value
grafik2.Cells(sat, "C") = TextBox8.Value

CommandButton1_Click
End Sub

 

[metin_0606]

Merhaba, kodları ben yazmadım ama o iki satırı ben ekledim.

Mevcut kodda bir değişiklik önerisinde bulunmak istiyorum.
CommandButton3_Click kodlarını aşağıdaki kodlar ile değiştiriniz.

Örnek dosyadaki Kodlar ile aynı işlemi yapar.

Private Sub CommandButton3_Click()
Set sf = Sheets("PROJELER")

Set grafik1 = Sheets("GRAFIK")
Set grafik2 = Sheets("GRAFIK 2")

sat = ListBox1.ListIndex + 2
ListBox1.RowSource = ""

sf.Cells(sat, "A") = TextBox1.Value
grafik1.Cells(sat, "A") = TextBox1.Value
grafik2.Cells(sat, "A") = TextBox1.Value

sf.Cells(sat, "B") = TextBox3.Value
sf.Cells(sat, "C") = TextBox4.Value
sf.Cells(sat, "F") = TextBox7.Value
grafik1.Cells(sat, "C") = TextBox7.Value
sf.Cells(sat, "G") = TextBox8.Value
grafik2.Cells(sat, "C") = TextBox8.Value

CommandButton1_Click
End Sub

Çok teşekkürler Sayın Faye Zihinize sağlık