Farkli SÜtunlara Kayit İŞlemİ

[ramazan uçar]

herkese merhaba.

userformdaki textboxlardaki bilgileri excel sayfasındaki farklı hücrelere kayıt etmek istiyorum.fakat sütunlardaki hücre sayısı aynı olmadığından her tekxtboxun kendi ilgili olduğu sütunun son satırındaki hücreye kayıt etmesi gerekiyor.aynı şekilde değişiklik yapacağım zamanda kendi sütunundan bulup sadece o hücreyi değiştirmeli.konuyla ilgili yardımlarınızı bekliyorum.şimdiden yardımlarınız için teşekkür ederim.

 

[ramazan uçar]

konu hakkında fikri olan kimse yokmu??

 

[ramazan uçar]

merhaba arkadaşlar sorumda anlaşılmayan birşeymi var yoksa bu işlem mümkün değilmi en azından ona bir cevap verseniz...

 

[Ayhan Ercan]

Merhaba

Kaydetmek için aşağıdaki kodu deneyiniz..

Option Base 1
Private Sub CommandButton1_Click()
son = Array([a65536].End(3).Row, [b65536].End(3).Row, [c65536].End(3).Row, [d65536].End(3).Row)
For i = 1 To 4
Cells(son(i) + 1, i) = Me.Controls("textbox" & i)
Next i
End Sub

 

[Dr.F1]

F.Örnek

Böyle Olmuşmu Acaba bende bir şeyler eklemeye çalıştım

 

[Dr.F1]

düzeltme

şimdi oldumu

 

[ramazan uçar]

sayın ayhan ercan ve sayın dr.f1 ilginiz için teşekkürler.

sayın dr.f1 sizin kodlarınızla bütün textboxlara verigirişi yapılmadan kayıt yapmamıza izin verilmiyor.oysa ben gerektiğinde sadece tek bir textboxa veri girişi yaparak işlem yapmak istiyorum.dolayısıyla sütunlardaki verilerin miktarları farklı olacak.

ayhan bey sizin kodlarınız ilk başta doğru çalışıyor.fakat birkaç veri girişi yapıldıktan sonra aralarda boş hücre bırakmaya başlıyor.yani doğru sütuna kayıt yapmasına rağmen rastgele bir hücreye kayıt yapıyor.bunu engellemenin bir yolu varmıdır?yardımcı olursanız sevinirim.

 

[Ayhan Ercan]

ayhan bey sizin kodlarınız ilk başta doğru çalışıyor.fakat birkaç veri girişi yapıldıktan sonra aralarda boş hücre bırakmaya başlıyor.yani doğru sütuna kayıt yapmasına rağmen rastgele bir hücreye kayıt yapıyor.bunu engellemenin bir yolu varmıdır?yardımcı olursanız sevinirim.

Merhaba
Kodu aşağıdaki gibi değiştiriniz...

[COLOR=#000000]Private Sub CommandButton1_Click()[/COLOR]
[COLOR=#000000]son = Array([a65536].End(3).Row, [b65536].End(3).Row, [c65536].End(3).Row, [d65536].End(3).Row)[/COLOR]
[COLOR=#000000]For i = 1 To 4[/COLOR]
[COLOR=#000000]   [COLOR=red][B]If Me.Controls("Textbox" & i) <> Empty Then[/B][/COLOR]
         Cells(son(i) + 1, i) = Me.Controls("textbox" & i)
    [COLOR=red][B]End If[/B][/COLOR]
Next i
End Sub
[/COLOR]

Not: Ferhat Pazarçevirdi ve Korhan Ayhan'a yardımlarından dolayı teşekkürler...

 

[ramazan uçar]

Merhaba
Kodu aşağıdaki gibi değiştiriniz...

[COLOR=#000000]Private Sub CommandButton1_Click()[/COLOR]
[COLOR=#000000]son = Array([a65536].End(3).Row, [b65536].End(3).Row, [c65536].End(3).Row, [d65536].End(3).Row)[/COLOR]
[COLOR=#000000]For i = 1 To 4[/COLOR]
[COLOR=#000000]   [COLOR=red][B]If Me.Controls("Textbox" & i) <> Empty Then[/B][/COLOR]
         Cells(son(i) + 1, i) = Me.Controls("textbox" & i)
    [COLOR=red][B]End If[/B][/COLOR]
Next i
End Sub
[/COLOR]

Not: Ferhat Pazarçevirdi ve Korhan Ayhan'a yardımlarından dolayı teşekkürler...

ayhan bey,ferhat bey,korhan bey ilginize çok teşekkür ederim.kodlar bu sefer düzgün çalışıyor.hepside alt alta kayıt yapıyor.gayet güzel olmuş ama bir sorun var bendemi bilmiyorum.kayıt yapmaya 11.satırdan başlıyor.
Cells(son(i) + 1, i) = Me.Controls("textbox" & i) satırındaki +1 i -8 yaptım ozaman olması gereken yerden yani 2.satırdan kayıt yapmaya başladı.fakat bu seferde yeni bir veri girildiğinde ilk girdiğimiz verinin üstüne kayıt yapıyor yani ilk yapılan kayıdı değiştiriyor.ben bu haliylede kullanabilirim yani ilk 10 satırı gizleyerek ama tam çalışırsa daha güzel olacak.yardımlarınızdan dolayı çok teşekkür ederim.