başka sayfadaki enbüyük ve ensondaki verileri texte alma

[orcunerkek54]

arkadaşlar başlıktada dediğim gibi formumda iki texte bunlardan biri text15 diğeri text7 userformum sayfa3te çalışırken text15e sayfa1 den (O) sütunundaki en büyük sayıyı text7 ye ise en sondaki veriyi almak istiyorum bunu nasıl yapabiliriz formda bir kod buldum ama başka sayfadan veriyi alamıyor şimdiden herkeze teşekkürler........

 

[orcunerkek54]

'TextBox15 = Worksheets("malzemekayıt").Range("o65536").End(xlUp).Value + 1
arkadaşlar bu kdu buldum anca kayıttan sonra kendini yenilemiyor artma yapmıyor.her kayıtan sonra kendini yenileyen otomatik olarak 1 artan sayı haline gelmesi için nasıl bir kod yazmanlıyım yardımlarınız için teşekkürler.....

 

[Korhan Ayhan]

Selamlar,

1. sorunuz için aşağıdaki kodu kullanabilirsiniz.

Private Sub UserForm_Initialize()
    Set S1 = Sheets("Sayfa1")
    TextBox7 = S1.[O65536].End(3).Value
    TextBox15 = WorksheetFunction.Max(S1.[O:O])
End Sub

2. sorunuz ile 1. sorunuz çelişiyor. Sanırım sıra no vermek istiyorsunuz. Ama hem en büyük sayıyı aldırıp hemde en sondaki veri+1 nasıl olacak o kısmı anlayamadım.

 

[orcunerkek54]

haklısınız soru bayabir çelişkili olmuş ve acemice.alacağım cevabı ayarlayabileceğimi düşünmüştüm ama olmadı :=( aslında amacım text15'e sayfa1de (O) sütunundaki enbüyük sayıyı alıp 1 arttırarak kayıt yaptırtmak. text7 ye ise sayfa2deki ensondaki sayıyı alıp 1 arttırmak istiyorum.teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklerseniz daha faydalı olacaktır.

 

[orcunerkek54]

örneğim ektedir teşekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızdaki Userform1 in kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub UserForm_Initialize()
    Set S1 = Sheets("Sayfa2")
    TextBox2 = WorksheetFunction.Max(S1.[D:D])
    TextBox3 = S1.[I65536].End(3).Value
End Sub

 

[orcunerkek54]

syn cost_control veriler istediğim gibi getiriyor ancak veriler kayıt sonrası değişmiyor değişmesi için formun kapanıp açılması gerekiyor formu kapatmada veriler yenilenebilirmi??? örneğimi biraz değiştirerek tekrar ekte sunuyorum.teşekkürler

 

[Korhan Ayhan]

Selamlar,

Güncelleme yapması için KAYDET butonunzdaki kodların en alt satırına aşağıdaki kodu uygulayın.

Private Sub CommandButton1_Click()
'Sizin kodlarınız...
[B]UserForm_Initialize[/B]
End Sub

 

[Selçuk1]

sanırım KAYDET butonunuzun kodlarına "Userform_İnitialize" satırını eklerseniz, sorununuz çözülmüş olur.

 

[orcunerkek54]

yardım ve bilginiz için çok teşekkürler şimdi çalışıyor ayrıca yeni birşey daha öğrenmiş oldum bu olayı bilmiyordum