• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan teksen
  • Başlangıç tarihi Başlangıç tarihi
T

teksen

Katılım
6 Mart 2006
Mesajlar
251
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.
 
Private Sub UserForm_Initialize()
TextBox1 = Sayfa1.Range("A1")
End Sub
bu kodu denermisiniz...
 
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.
 
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?
 
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?
 
Şöyle deneyin.

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

Bu kod; Textbox1'e, F2:F10 aralığının toplamını yazar.
 
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
 
arkadaşlar dosyayı ekledim

yardımcı olabilecek kimse varmı acaba?
 
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.:cool:
 
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?
 
teksen' Alıntı:
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?
Genişletmek için tıkla ...
F sütununa yazdırdığınız kodları yazarsanız bende size doğru kodu yazrım.:cool:
 
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(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

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(y).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
 
şimdi bu şekildeyken yazıyor fakat userform u kapatıp açmadan değer değişmiyor

neden güncellemez acaba?
 
Aşağıda kırmızı ile yazdığım gibi değiştirdim.:cool:
Başka bazı değişikliklerde yaptım.Dosyayı ekledim.Bu şekilde kulanınız.:cool:
Kod: 
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
 
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?
 
teksen' Alıntı:
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?
Genişletmek için tıkla ...
Ekli dosyayı inceleyiniz.:cool:
 
Ç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?
 
teksen' Alıntı:
Ç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?
Genişletmek için tıkla ...

Dosyanız hazır.Deneyebilirsiniz.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst