Veri Güncelleme

[sdegirmenci]

Merhaba;

Private Sub CommandButton1_Click()

Dim SAYFA As Worksheet
Dim SUT As Integer
Set KST = Sheets("Kastamonu")
Set BRT = Sheets("Bartın")
Set KRB = Sheets("Karabük")
Set ZON = Sheets("Zonguldak")

x----- Bu kodda "F4" Hücresi Kastamonu ise Kastamonu sayfasına,"F4" Bartın ise Bartın sayfasına, "F4" Karabük ise karabük sayfasına yazması için ne yazmamız gerektiği konusunda yardımcı olabilirseniz çok sevinirim.-----x


For SUT = 6 To KST.Cells(2000, "C").End(3).Row
If [DR3] = KST.Cells(SUT, "C") Then
KST.Cells(SUT, "C").Offset(0, 4) = [X4]

End If
Next
End Sub

 

[alptun20]

Örnek dosyayı eklerseniz, daha iyi olur.

 

[sdegirmenci]

Dosyam 1 nolu mesajımın ekindedir

 

[sdegirmenci]

Merhaba;
Sayın alptun20, mesajımı dosya ekleyin diyerek çözüm önermeden pasif hale getirdiniz.Lütfen mesajlara cevap verirken daha dikkatli olun.Saygılarımla

 

[sbayyigit]

anladığım kadarıyla verilerinizi combobox2 deki değerin sahip olduğu sayfaya gönderemiyorsunuz.
Aşağıdaki kod combobox2 deki sayfayı seçmenizi sağlar.

bundan sonra istediğiniz şekilde o sayfaya atabilirsiniz.

Private Sub CommandButton1_Click()


...
Sheets(ComboBox2.Value).Select
.....

 

[alptun20]

Merhaba;
Sayın alptun20, mesajımı dosya ekleyin diyerek çözüm önermeden pasif hale getirdiniz.Lütfen mesajlara cevap verirken daha dikkatli olun.Saygılarımla

Beni yanlış anladınız sanırım, mesajımdada gördüğünüz gibi örnek dosya eklemeniz halinde daha çabuk yardım alacağınızı belirtmek istedim. Bundaki tek amacımda daha hızlı yardım almanızı sağlamaktı. Diğer taraftan sorunuza mesaj yazılmış olması, sorununuzun çözüldüğü anlamına gelmiyor.

Saygılarımla..