Hücre içeriğini TextBox'a aktarma

[teksen]

Herkese iyi çalışmalar.

Excel sayfasında,

örneğin 'Sayfa1' 'A20' hücresinde yazan veriyi userForm üzerinde bulunan TextBox'ta göstermemiz için hangi kodları kullanmamız gerekir?


Bu arada A20 hücresi bazı koşullarda değişiyor ve içeriği değiştiği zaman TextBox'a da yansıması gerekiyor.

 

[orcunerkek54]

Private Sub UserForm_Initialize()
TextBox1 = Sayfa1.Range("A1")
End Sub
bu kodu denermisiniz...

 

[xxcell]

Hücre içeriği değiştikçe textbox1'in değişmesi için ilgili sayfanın change olayına,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [A20] Then UserForm1.TextBox1 = Worksheets("sayfa1").Range("a20")
End Sub



yazınız.

 

[teksen]

Teşekkür ederim

fakat sanırım bana

TextBox1 = Sayfa1.Range("A1:A65536")

bunun gibi bir kod lazım

yazdığım şekilde denedim ama olmadı.

bu isteğime karşılık gelen bir kod varmıdır acaba?

 

[teksen]

Arkadaşlar TextBox4'e Sayfa1 F2:F10 hücrelerinin toplamını yazdırmam gerekiyor.excel sayfasında F11 hücresine =TOPLA(F2:F10) yapıp ''TextBox4 = Sayfa1.Range("F11")'' koduyla çalıştırmayı denedim fakat malesef çalıştıramadım.

Tek bir hücre aktarılmasında sorun yok.

Ama Sayfada toplam aldıramadığım için

''TextBox4 = Sayfa1.Range("F11")''

kodunu kullanamıyorum.

Yardımcı olabilecek kimse varmı acaba?

 

[Ferhat Pazarçevirdi]

Şöyle deneyin.

TextBox1 = Application.WorksheetFunction.Sum(Range("F2:F10"))

Bu kod; Textbox1'e, F2:F10 aralığının toplamını yazar.

 

[teksen]

Sayın FPC,

ilginize teşekkür ederim

verdiğiniz kodla başka hücrelerin toplamını alabiliyorum

fakat f2:f1000 malesef olmuyor

sonuç TextBox'a kadar geldi ama 0 olarak görünüyor

dosyayı ekliyorum

sizde kontrol edebilirsiniz.

iyi çalışmalar

 

[teksen]

arkadaşlar dosyayı ekledim

yardımcı olabilecek kimse varmı acaba?

 

[Orion1]

Sayfa1 de F sütunundaki değerleri sayı olarak algılamıyordu.Çünkü metin girilmiş.300.00 YTL metin olarak algılanıyor.Bu sütuna girdiğiniz veriler bir nesne ile giriliyorsa YTL yi kaldırın ve girdiğiniz nesneyi 1 ile çarpın.
Dosya ektedir.

 

[teksen]

evet demekki bu yüzden oluyormuş

yardımınız için teşekkür ederim

fakat 1 ile çarpma olayını anlayamadım

eğer YTL girişini iptal etsem sorun kalmayacak

ama YTL yazmak zorundayım

1 olayını biraz açarmısınız?

 

[Orion1]

evet demekki bu yüzden oluyormuş

yardımınız için teşekkür ederim

fakat 1 ile çarpma olayını anlayamadım

eğer YTL girişini iptal etsem sorun kalmayacak

ama YTL yazmak zorundayım

1 olayını biraz açarmısınız?

F sütununa yazdırdığınız kodları yazarsanız bende size doğru kodu yazrım.

 

[teksen]

Private Sub kayıt_Click()
Set Sh = Sheets("VERİ")
If A.Text = "" Then: MsgBox "Sigortalı İsmini Girin", vbCritical, "HATALI GİRİŞ": Exit Sub
If yeni = True Then
son = Sh.Cells(65536, 1).End(xlUp).Row
Sh.Cells(son + 1, 1) = A.Text
Sh.Cells(son + 1, 2) = B.Text
Sh.Cells(son + 1, 3) = C.Text
Sh.Cells(son + 1, 4) = D.Text
Sh.Cells(son + 1, 5) = E.Text
Sh.Cells(son + 1, 6) = F.Text
Sh.Cells(son + 1, 7) = G.Text
Sh.Cells(son + 1, 8) = TextBox1.Text
Sh.Cells(son + 1, 9) = TextBox2.Text
Sh.Cells(son + 1, 10) = J.Text
Else
y = ListView1.SelectedItem.Index
satir = ListView1.ListItems.ListSubItems(10).Text
Sh.Cells(satir, 1) = A.Text
Sh.Cells(satir, 2) = B.Text
Sh.Cells(satir, 3) = C.Text
Sh.Cells(satir, 4) = D.Text
Sh.Cells(satir, 5) = E.Text
Sh.Cells(satir, 6) = F.Text
Sh.Cells(satir, 7) = G.Text
Sh.Cells(satir, 8) = TextBox1.Text
Sh.Cells(satir, 9) = TextBox2.Text
Sh.Cells(satir, 10) = J.Text
End If
ListeGuncelle
Set Sh = Nothing

End Sub

Private Sub Label1_Click()
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub ListView1_DblClick()
If ListView1.ListItems.Count = 0 Then Exit Sub
x = ListView1.SelectedItem.Index
A.Text = ListView1.ListItems(x)
B.Text = ListView1.ListItems(x).ListSubItems(1).Text
C.Text = ListView1.ListItems(x).ListSubItems(2).Text
D.Text = ListView1.ListItems(x).ListSubItems(3).Text
E.Text = ListView1.ListItems(x).ListSubItems(4).Text
F.Text = ListView1.ListItems(x).ListSubItems(5).Text
G.Text = ListView1.ListItems(x).ListSubItems(6).Text
TextBox1.Text = ListView1.ListItems(x).ListSubItems(7).Text
TextBox2.Text = ListView1.ListItems(x).ListSubItems(8).Text
J.Text = ListView1.ListItems(x).ListSubItems(9).Text
yeni = False

End Sub

Private Sub sil_Click()
y = ListView1.SelectedItem.Index
'x = ListView1.SelectedItem.Index
x = ListView1.ListItems.ListSubItems(10).Text
cevap = MsgBox("Silmek istediğinizden emin misiniz?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Set Sh = Sheets("VERİ")
Sh.Rows(x).Delete
Set Sh = Nothing
ListeGuncelle
End If
End Sub

Private Sub UserForm_Initialize()
'With UserForm1
' .Height = Application.Height
' .Width = Application.Width
'End With
Set Sh = Sheets("VERİ")
son = Sh.Cells(65536, 1).End(xlUp).Row
yeni = True
With bul.ListView1
.ListItems.Clear
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
With .ColumnHeaders
.Add , , Sh.Cells(1, 1), 110
.Add , , Sh.Cells(1, 2), 80
.Add , , Sh.Cells(1, 3), 58
.Add , , Sh.Cells(1, 4), 50
.Add , , Sh.Cells(1, 5), 55
.Add , , Sh.Cells(1, 6), 50
.Add , , Sh.Cells(1, 7), 50
.Add , , Sh.Cells(1, 8), 50
.Add , , Sh.Cells(1, 9), 65
.Add , , Sh.Cells(1, 10), 55
.Add , , "Satir", 0
End With
ComboBox1.RowSource = "a2:a" & [a65536].End(3).Row
ListBox1.ColumnCount = 9
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "90,80,60,60,60,60,60,70,60"
TextBox4.Value = Format(Range("K8").Value, "#,##0.00")
End With
ListeGuncelle
End Sub
Private Sub CommandButton3_Click()
Unload bul
End Sub
Private Sub f_Exit(ByVal Cancel As MSForms.ReturnBoolean)
G = (Val(F.Value) / 100) * 5
'**************
Me.TextBox1 = Val(F) + Val(G)
End Sub

Private Sub TextBox2_Change()
J.Value = Val(TextBox1.Value) - Val(TextBox2.Value)
End Sub

 

[teksen]

YTL formatını sildim ama 1 i anlayamadım

 

[teksen]

şimdi bu şekildeyken yazıyor fakat userform u kapatıp açmadan değer değişmiyor

neden güncellemez acaba?

 

[Orion1]

Aşağıda kırmızı ile yazdığım gibi değiştirdim.
Başka bazı değişikliklerde yaptım.Dosyayı ekledim.Bu şekilde kulanınız.

Private Sub kayıt_Click()
Set Sh = Sheets("VERİ")
If A.Text = "" Then: MsgBox "Sigortalı İsmini Girin", vbCritical, "HATALI GİRİŞ": Exit Sub
If yeni = True Then
son = Sh.Cells(65536, 1).End(xlUp).Row
Sh.Cells(son + 1, 1) = A.Text
Sh.Cells(son + 1, 2) = B.Text
Sh.Cells(son + 1, 3) = C.Text
Sh.Cells(son + 1, 4) = D.Text
Sh.Cells(son + 1, 5) = E.Text
[COLOR="Red"]Sh.Cells(son + 1, 6) = F.Text*1[/COLOR]
Sh.Cells(son + 1, 7) = G.Text
Sh.Cells(son + 1, 8) = TextBox1.Text
Sh.Cells(son + 1, 9) = TextBox2.Text
Sh.Cells(son + 1, 10) = J.Text
Else
y = ListView1.SelectedItem.Index
satir = ListView1.ListItems(y).ListSubItems(10).Text
Sh.Cells(satir, 1) = A.Text
Sh.Cells(satir, 2) = B.Text
Sh.Cells(satir, 3) = C.Text
Sh.Cells(satir, 4) = D.Text
Sh.Cells(satir, 5) = E.Text
Sh.Cells(satir, 6) = F.Text
Sh.Cells(satir, 7) = G.Text
Sh.Cells(satir, 8) = TextBox1.Text
Sh.Cells(satir, 9) = TextBox2.Text
Sh.Cells(satir, 10) = J.Text
End If
ListeGuncelle
Set Sh = Nothing

End Sub

 

[teksen]

Yardımlarınız için çok teşekkür ederim

Peki Yukarıda da belirttiğim gibi

Yeni kayıt eklediğimde veya sildiğimde kapatıp tekrar açıncaya kadar bilgiler güncellenmiyor.yani TextBox'taki toplam değişmiyor.

bunun için ne yapabiliriz acaba?

 

[Orion1]

Yardımlarınız için çok teşekkür ederim

Peki Yukarıda da belirttiğim gibi

Yeni kayıt eklediğimde veya sildiğimde kapatıp tekrar açıncaya kadar bilgiler güncellenmiyor.yani TextBox'taki toplam değişmiyor.

bunun için ne yapabiliriz acaba?

Ekli dosyayı inceleyiniz.

 

[teksen]

Çok teşekkür ederim

ellerinize sağlık

birde son bir sorum olacak

UserForm'un en altında ComboBox1'den seçtiğim müşteri ismine göre aynı frame içindeki TextBox'lara bilgileri alıyorum.

Fakat 'temizle' butonuna basınca sadece ComboBox'ı temizleyebiliyorum

aynı anda ListBox1 ve onun üzerindeki TextBox13,12,11,10 ve 9 'u da temizleyebilirmiyim?

 

[Orion1]

Çok teşekkür ederim

ellerinize sağlık

birde son bir sorum olacak

UserForm'un en altında ComboBox1'den seçtiğim müşteri ismine göre aynı frame içindeki TextBox'lara bilgileri alıyorum.

Fakat 'temizle' butonuna basınca sadece ComboBox'ı temizleyebiliyorum

aynı anda ListBox1 ve onun üzerindeki TextBox13,12,11,10 ve 9 'u da temizleyebilirmiyim?

Dosyanız hazır.Deneyebilirsiniz.

 

[teksen]

Çok TeŞekkÜr Ederİm

Elİnİze SaĞlik