Visua Basic Kod Yazabilimek için yardım

M

mor45

Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
Personel Özlük Bilgiler dosyasında veri tabanı kayıt ekranında ev ve cep telefonu olan yerin altına bir yere açmak istiyorum bunu ilerde ilerletmek iç inde kendim açabilmek için yardımcı olurmusunuz.
Ev telefonun altına Bildiği Yabancı dili yazcacak bir kutucuk açacaız bu açmayı biliyorum yalnız bunu Excel döndü dosyasına hagi sütüna kaydedecegini ve nasıl bir kot devatm edecegini bana visua basic o haneleri kırmız yazarsanız bende ona göre diğer istedigim şeylere yapmaya devam edebilirim. Dosya Ektedir.
Şimdiden teşekkürler.
 

Ekli dosyalar

halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,800
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
mor45' Alıntı:
Personel Özlük Bilgiler dosyasında veri tabanı kayıt ekranında ev ve cep telefonu olan yerin altına bir yere açmak istiyorum bunu ilerde ilerletmek iç inde kendim açabilmek için yardımcı olurmusunuz.
Ev telefonun altına Bildiği Yabancı dili yazcacak bir kutucuk açacaız bu açmayı biliyorum yalnız bunu Excel döndü dosyasına hagi sütüna kaydedecegini ve nasıl bir kot devatm edecegini bana visua basic o haneleri kırmız yazarsanız bende ona göre diğer istedigim şeylere yapmaya devam edebilirim. Dosya Ektedir.
Şimdiden teşekkürler.
Genişletmek için tıkla ...

yabancıdil yazan her yeri ben ekledim
AR hücresine eklemektedir
text nesnesinin adını yabancıdil olarak yazın


Kod: 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub CommandButton69_Click()
Application.Visible = True
Unload Me
End Sub
Private Sub CommandButton70_Click()
SayfaSeçSonraki
End Sub
Private Sub UserForm_Activate()
Dim FormhWnd, FormTask, hwnd, exLong As Long
Application.Visible = False
If Application.Version < 9 Then
FormhWnd = FindWindow("ThunderxFrame", Me.Caption)
hwnd = FindWindow("ThunderXFrame", Me.Caption)
Else
FormhWnd = FindWindow("ThunderdFrame", Me.Caption)
hwnd = FindWindow("ThunderDFrame", Me.Caption)
End If
exLong = GetWindowLongA(hwnd, -16)
If FormhWnd = 0 Then Exit Sub
FormTask = GetWindowLong(FormhWnd, (-16))
FormTask = FormTask And Not &H10000000 And Not &H80000000
SetWindowLong FormhWnd, (-16), FormTask
FormTask = GetWindowLong(FormhWnd, (-20))
FormTask = FormTask Or &H40000
SetWindowLong FormhWnd, (-20), FormTask
ShowWindow FormhWnd, 5
If (exLong And &H20000) = 0 Then
SetWindowLongA hwnd, -16, exLong Or &H20000
Me.Hide: Me.Show
txtilk.Value = Format(txtilk, "dd.mm.yyyy")
txtbulundugu.Value = Format(txtbulundugu, "dd.mm.yyyy")
txtdtarihi.Value = Format(txtdtarihi, "dd.mm.yyyy")
txtnufus.Value = Format(txtnufus, "dd.mm.yyyy")
End If
End Sub
Private Sub bul_Click()
cmdbul_Click
End Sub
'bul; CbAd sanra 1, 2, 3, diye sıra takip edilir'
Private Sub cmdbul_Click()
    Dim bak As Range
    For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
        If StrConv(bak.Value, vbUpSayfa1Case) = StrConv(cbAd.Value, vbUpCase) Then
            bak.Select
            txtsira.Value = ActiveCell.Offset(0, -1).Value
            txtunvan.Value = ActiveCell.Offset(0, 2).Value
            txtgorevyeri.Value = ActiveCell.Offset(0, 3).Value
            txtkademe.Value = ActiveCell.Offset(0, 4).Value
            txtilk.Value = ActiveCell.Offset(0, 5).Value
            txtbulundugu.Value = ActiveCell.Offset(0, 6).Value
            txtkurumsicil.Value = ActiveCell.Offset(0, 7).Value
            txtmebsis.Value = ActiveCell.Offset(0, 8).Value
            txtemekli.Value = ActiveCell.Offset(0, 9).Value
            txtdyeri.Value = ActiveCell.Offset(0, 10).Value
            txtdtarihi.Value = ActiveCell.Offset(0, 11).Value
            txtev.Value = ActiveCell.Offset(0, 12).Value
            txtcep.Value = ActiveCell.Offset(0, 13).Value
            txtana.Value = ActiveCell.Offset(0, 14).Value
            txtbaba.Value = ActiveCell.Offset(0, 15).Value
            txtmezun.Value = ActiveCell.Offset(0, 16).Value
            txttasarruf.Value = ActiveCell.Offset(0, 17).Value
            txtilksan.Value = ActiveCell.Offset(0, 18).Value
            txtbankano.Value = ActiveCell.Offset(0, 19).Value
            txthizmet.Value = ActiveCell.Offset(0, 20).Value
            txtmatrah.Value = ActiveCell.Offset(0, 21).Value
            txtonceki.Value = ActiveCell.Offset(0, 22).Value
            txtterfi.Value = ActiveCell.Offset(0, 23).Value
            txtil.Value = ActiveCell.Offset(0, 24).Value
            txtilce.Value = ActiveCell.Offset(0, 25).Value
            txtcilt.Value = ActiveCell.Offset(0, 27).Value
            txtsayfa.Value = ActiveCell.Offset(0, 28).Value
            txtkütük.Value = ActiveCell.Offset(0, 29).Value
            txtnufus.Value = ActiveCell.Offset(0, 30).Value
            kisino.Value = ActiveCell.Offset(0, 31).Value
            tckimlik.Value = ActiveCell.Offset(0, 32).Value
            [COLOR=red]yabancıdil.Value = ActiveCell.Offset(0, 42).Value[/COLOR]
 
 
            Exit Sub
        End If
    Next bak
    MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub
Private Sub cmdDegistir_Click()
    Dim bos As Range
    For Each bos In Range("A2:A" & WorksheetFunction.CountA(Range("A2:A65000")))
        If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
            MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız"
            Exit Sub
        End If
    Next bos
    If txtsira = "" Or cbAd = "" Or txtunvan = "" Or txtgorevyeri = "" Then
        MsgBox "Adı Soyadı listesinden bir Kişi seçmelisiniz"
    Else
        ActiveCell = cbAd
        ActiveCell.Offset(0, 2) = txtunvan
        ActiveCell.Offset(0, 3) = txtgorevyeri
        ActiveCell.Offset(0, 4) = txtkademe
        ActiveCell.Offset(0, 5) = txtilk
        ActiveCell.Offset(0, 6) = txtbulundugu
        ActiveCell.Offset(0, 7) = txtkurumsicil.Value
        ActiveCell.Offset(0, 8) = txtmebsis.Value
        ActiveCell.Offset(0, 9) = txtemekli.Value
        ActiveCell.Offset(0, 10) = txtdyeri
        ActiveCell.Offset(0, 11) = txtdtarihi
        ActiveCell.Offset(0, 12) = txtev
        ActiveCell.Offset(0, 13) = txtcep
        ActiveCell.Offset(0, 14) = txtana
        ActiveCell.Offset(0, 15) = txtbaba
        ActiveCell.Offset(0, 16) = txtmezun
        ActiveCell.Offset(0, 17) = txttasarruf.Value
        ActiveCell.Offset(0, 18) = txtilksan.Value
        ActiveCell.Offset(0, 19) = txtbankano.Value
        ActiveCell.Offset(0, 20) = txthizmet
        ActiveCell.Offset(0, 21) = txtmatrah
        ActiveCell.Offset(0, 22) = txtonceki
        ActiveCell.Offset(0, 23) = txtterfi
        ActiveCell.Offset(0, 24) = txtil
        ActiveCell.Offset(0, 25) = txtilce
        ActiveCell.Offset(0, 27) = txtcilt
        ActiveCell.Offset(0, 28) = txtsayfa
        ActiveCell.Offset(0, 29) = txtkütük
        ActiveCell.Offset(0, 30) = txtnufus
        ActiveCell.Offset(0, 32) = tckimlik
        ActiveCell.Offset(0, 31) = kisino
        [COLOR=red]ActiveCell.Offset(0, 42) = yabancıdil.Value[/COLOR]
 
 
    End If
    'Workbooks("özlük bilg.XLS").Save
    MsgBox "Verileriniz değiştirildi", , "KAYIT"
    cmdtemizle_Click
    cbAd.RowSource = "B2:B500" & say + 1
    txtsira.Value = WorksheetFunction.Count(Range("a1:a65000")) + 1
End Sub
Private Sub cmdEnBas_Click()
    On Error Resume Next
    txtsira = Cells(2, 1)
    cbAd = Cells(2, 2)
     txtgorevyeri = Cells(txtsira + 2, 5)
     txtkademe = Cells(txtsira + 2, 6)
     txtilk = Cells(txtsira + 2, 7)
     txtbulundugu = Cells(txtsira + 2, 8)
 
    txtemeklisicilno = Cells(2, 6).Value
 
        txtbankahesapno = Cells(txtsira + 2, 8).Value
        txtkurumsicil = Cells(txtsira + 2, 9)
        txtmebsis = Cells(txtsira + 2, 10)
        txtemekli = Cells(txtsira + 2, 11).Value
        txtdyeri = Cells(txtsira + 2, 12)
        txtdtarihi = Cells(txtsira + 2, 13)
        txtev = Cells(txtsira + 2, 14)
        txtcep = Cells(txtsira + 2, 15)
        txtmezun = Cells(txtsira + 2, 18)
        txtana = Cells(txtsira + 2, 16)
        txtbaba = Cells(txtsira + 2, 17)
        txttasarruf = Cells(txtsira + 2, 19).Value
        txilksan = Cells(txtsira + 2, 20)
        txtbankano = Cells(txtsira + 2, 21)
        txthizmet = Cells(txtsira + 2, 22)
        txtmatrah = Cells(txtsira + 2, 23)
        txtonceki = Cells(txtsira + 2, 24)
        txtterfi = Cells(txtsira + 2, 25)
        txtil = Cells(txtsira + 2, 26)
        txtilce = Cells(txtsira + 2, 27)
        txtcilt = Cells(txtsira + 2, 28)
        txtsayfa = Cells(txtsira + 2, 29)
        txtkütük = Cells(txtsira + 2, 30)
        txtnufus = Cells(txtsira + 2, 31)
        kisino = Cells(txtsira + 2, 32)
        tckimlik = Cells(txtsira + 2, 33)
        [COLOR=red]yabancıdil.Value = Cells(txtsira + 2, 44)[/COLOR]
 
 
End Sub
Private Sub cmdEnSon_Click()
    Dim say As Integer
    say = WorksheetFunction.CountA(Range("B1:B65000"))
    txtsira = Cells(say, 1)
    cbAd = Cells(say, 2)
    txtgorevyeri = Cells(say, 5)
    txtkademe = Cells(say, 6)
    txtilk = Cells(say, 7)
    txtbulundugu = Cells(say, 8)
 
    txtemeklisicilno = Cells(say, 6).Value
 
        txtbankahesapno = Cells(say, 8).Value
        txtkurumsicil = Cells(say, 9)
        txtmebsis = Cells(say, 10)
        txtemekli = Cells(say, 11).Value
        txtdyeri = Cells(say, 12)
        txtdtarihi = Cells(say, 13)
        txtev = Cells(say, 14)
        txtcep = Cells(say, 15)
        txtmezun = Cells(say, 18)
        txtana = Cells(say, 16)
        txtbaba = Cells(say, 17)
        txttasarruf = Cells(say, 19).Value
        txtilksan = Cells(say, 20)
        txtbankano = Cells(say, 21)
        txthizmet = Cells(say, 22)
        txtmatrah = Cells(say, 23)
        txtonceki = Cells(say, 24)
        txtterfi = Cells(say, 25)
        txtil = Cells(say, 26)
        txtilce = Cells(say, 27)
        txtcilt = Cells(say, 28)
        txtsayfa = Cells(say, 29)
        txtkütük = Cells(say, 30)
        txtnufus = Cells(say, 31)
        kisino = Cells(say, 32)
        tckimlik = Cells(say, 33)
        [COLOR=red]yabancıdil.Value = Cells(say, 44)[/COLOR]
 
 
 
End Sub
Private Sub cmdGeri_Click()
    If txtsira = 1 Then
        Exit Sub
    Else
        txtsira = txtsira - 1
        cbAd = Cells(txtsira + 1, 2)
        txtunvan = Cells(txtsira + 1, 4)
        txtgorevyeri = Cells(txtsira + 1, 5)
        txtkademe = Cells(txtsira + 1, 6)
        txtilk = Cells(txtsira + 1, 7)
        txtbulundugu = Cells(txtsira + 1, 8)
        txtkurumsicil = Cells(txtsira + 1, 9)
        txtmebsis = Cells(txtsira + 1, 10)
        txtemekli = Cells(txtsira + 1, 11).Value
        txtdyeri = Cells(txtsira + 1, 12)
        txtdtarihi = Cells(txtsira + 1, 13)
        txtev = Cells(txtsira + 1, 14)
        txtcep = Cells(txtsira + 1, 15)
        txtana = Cells(txtsira + 1, 16)
        txtbaba = Cells(txtsira + 1, 17)
        txtmezun = Cells(txtsira + 1, 18)
        txttasarruf = Cells(txtsira + 1, 19).Value
        txtilksan = Cells(txtsira + 1, 20)
        txtbankano = Cells(txtsira + 1, 21)
        txthizmet = Cells(txtsira + 1, 22)
        txtmatrah = Cells(txtsira + 1, 23)
        txtonceki = Cells(txtsira + 1, 24)
        txtterfi = Cells(txtsira + 1, 25)
        txtil = Cells(txtsira + 1, 26)
        txtilce = Cells(txtsira + 1, 27)
        txtcilt = Cells(txtsira + 1, 29)
        txtsayfa = Cells(txtsira + 1, 30)
        txtkütük = Cells(txtsira + 1, 31)
        txtnufus = Cells(txtsira + 1, 32)
        kisino = Cells(txtsira + 1, 33)
        tckimlik = Cells(txtsira + 1, 34)
        [COLOR=red]yabancıdil.Value = Cells(txtsira + 1, 44)[/COLOR]
 
   End If
End Sub
Private Sub cmdIleri_Click()
    Dim say As Integer
    say = WorksheetFunction.CountA(Range("B1:B65000"))
    If txtsira = say Then
        Exit Sub
    Else
        txtsira = txtsira + 1
        cbAd = Cells(txtsira + 1, 2)
        txtunvan = Cells(txtsira + 1, 4)
        txtgorevyeri = Cells(txtsira + 1, 5)
        txtkademe = Cells(txtsira + 1, 6)
        txtilk = Cells(txtsira + 1, 7)
        txtbulundugu = Cells(txtsira + 1, 8)
        txtkurumsicil = Cells(txtsira + 1, 9)
        txtmebsis = Cells(txtsira + 1, 10)
        txtemekli = Cells(txtsira + 1, 11).Value
        txtdyeri = Cells(txtsira + 1, 12)
        txtdtarihi = Cells(txtsira + 1, 13)
        txtev = Cells(txtsira + 1, 14)
        txtcep = Cells(txtsira + 1, 15)
        txtmezun = Cells(txtsira + 1, 18)
        txtana = Cells(txtsira + 1, 16)
        txtbaba = Cells(txtsira + 1, 17)
        txttasarruf = Cells(txtsira + 1, 19).Value
        txtilksan = Cells(txtsira + 1, 20)
        txtbankano = Cells(txtsira + 1, 21)
        txthizmet = Cells(txtsira + 1, 22)
        txtmatrah = Cells(txtsira + 1, 23)
        txtonceki = Cells(txtsira + 1, 24)
        txtterfi = Cells(txtsira + 1, 25)
        txtil = Cells(txtsira + 1, 26)
        txtilce = Cells(txtsira + 1, 27)
        txtcilt = Cells(txtsira + 1, 29)
        txtsayfa = Cells(txtsira + 1, 30)
        txtkütük = Cells(txtsira + 1, 31)
        txtnufus = Cells(txtsira + 1, 32)
        kisino = Cells(txtsira + 1, 33)
        tckimlik = Cells(txtsira + 1, 34)
        [COLOR=red]yabancıdil.Value = Cells(txtsira + 1, 44)[/COLOR]
 
 
 
 
    End If
End Sub
Private Sub cmdkapat_Click()
    Unload DataAc
    Application.Visible = False
    ActiveWorkbook.Save
    Application.Visible = True
    ActiveWorkbook.Close
 
End Sub
Private Sub cmdsil_Click()
    Dim say As Integer
    Dim i As Integer
    Dim bos As Range
    For Each bos In Range("A2:A" & WorksheetFunction.CountA(Range("A2:A65000")))
        If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
            MsgBox "Önce aradığınız kişiyi BUL ile bulmalısınız"
            Exit Sub
        End If
    Next bos
    Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 46).Address(False, False)).Delete Shift:=xlUp
    say = WorksheetFunction.CountA(Range("B2:B65000"))
    For i = 1 To say
        Cells(i + 1, 1) = i
    Next i
    Workbooks("özlük bilg.XLS").Save
    MsgBox "veriniz Silindi", , "KAYIT"
    cmdtemizle_Click
    cbAd.RowSource = "B2:B" & say + 1
    txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub
Private Sub cmdtemizle_Click()
cbAd.Value = ""
txtunvan.Value = ""
txtgorevyeri.Value = ""
txtkademe.Value = ""
txtilk.Value = ""
txtbulundugu.Value = ""
txtkurumsicil.Value = ""
txtmebsis.Value = ""
txtemekli.Value = ""
txtdyeri.Value = ""
txtdtarihi.Value = ""
txtev.Value = ""
txtcep.Value = ""
txtmezun.Value = ""
txtana.Value = ""
txtbaba.Value = ""
txttasarruf.Value = ""
txtilksan.Value = ""
txtbankano.Value = ""
txthizmet.Value = ""
txtmatrah.Value = ""
txtonceki.Value = ""
txtterfi.Value = ""
txtil.Value = ""
txtilce.Value = ""
txtcilt.Value = ""
txtsayfa.Value = ""
txtkütük.Value = ""
txtnufus.Value = ""
kisino.Value = ""
tckimlik.Value = ""
[COLOR=red]yabancıdil.Value = ""[/COLOR]
 
    cbAd.SetFocus
End Sub
Private Sub cmdkaydet_Click()
    Dim bak As Range
    Dim say As Integer
    For Each bak In Range("A2:A" & WorksheetFunction.CountA(Range("A2:A65000")))
        If bak.Value = cbAd.Value Then
            MsgBox "Bu Kayıt numarası bulundu."
            Exit Sub
        End If
    Next bak
    For Each bak In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
        If StrConv(bak.Value, vbUpSayfa1Case) = StrConv(cbAd.Value, vbUpCase) Then
            MsgBox "Bu isimde bir kaydınız bulundu"
            Exit Sub
        End If
    Next bak
 
    say = WorksheetFunction.CountA(Range("B1:B65000"))
    txtsira.Value = say
    Cells(say + 1, 1).Value = txtsira.Value
    Cells(say + 1, 2).Value = cbAd.Value
    Cells(say + 1, 4).Value = txtunvan.Value
    Cells(say + 1, 5).Value = txtgorevyeri.Value
    Cells(say + 1, 6).Value = txtkademe.Value
    Cells(say + 1, 7).Value = txtilk.Value
    Cells(say + 1, 8).Value = txtbulundugu.Value
    Cells(say + 1, 9).Value = txtkurumsicil.Value
    Cells(say + 1, 10).Value = txtmebsis.Value
    Cells(say + 1, 11).Value = txtemekli.Value
    Cells(say + 1, 12).Value = txtdyeri.Value
    Cells(say + 1, 13).Value = txtdtarihi.Value
    Cells(say + 1, 14).Value = txtev.Value
    Cells(say + 1, 15).Value = txtcep.Value
    Cells(say + 1, 16).Value = txtana.Value
    Cells(say + 1, 17).Value = txtbaba.Value
    Cells(say + 1, 18).Value = txtmezun.Value
    Cells(say + 1, 19).Value = txttasarruf.Value
    Cells(say + 1, 20).Value = txtilksan.Value
    Cells(say + 1, 21).Value = txtbankano.Value
    Cells(say + 1, 22).Value = txthizmet.Value
    Cells(say + 1, 23).Value = txtmatrah.Value
    Cells(say + 1, 24).Value = txtonceki.Value
    Cells(say + 1, 25).Value = txtterfi.Value
    Cells(say + 1, 26).Value = txtil.Value
    Cells(say + 1, 27).Value = txtilce.Value
    Cells(say + 1, 29).Value = txtcilt.Value
    Cells(say + 1, 30).Value = txtsayfa.Value
    Cells(say + 1, 31).Value = txtkütük.Value
    Cells(say + 1, 32).Value = txtnufus.Value
    Cells(say + 1, 33).Value = kisino.Value
    Cells(say + 1, 34).Value = tckimlik.Value
    [COLOR=red]Cells(say + 1, 44).Value = yabancıdil.Value[/COLOR]
 
 
    Workbooks("özlük bilg.XLS").Save
    MsgBox "Verileriniz Kaydedildi", , "KAYIT"
    cmdtemizle_Click
 
    cbAd.RowSource = "B2:B" & say + 1
    txtsira.Value = WorksheetFunction.Count(Range("A2:A65000")) + 1
End Sub
Private Sub CommandButton1_Click()
cmdbul_Click
End Sub
Private Sub UserForm_Initialize()
    Dim say As Integer
    'Sheets("Sayfa1").Select
    txtsira.Locked = True
    If Range("d2") = "" Then
        say = WorksheetFunction.CountA(Range("d1:d65000"))
        cbAd.RowSource = "B2:B" & say + 1
    Else
        say = WorksheetFunction.CountA(Range("d1:d65000"))
        cbAd.RowSource = "B2:B" & say
    End If
    txtsira.Value = say
    cbAd.SetFocus
 
End Sub
 
Private Sub txtbankano_Change()
    txtbankano.Value = Format(txtbankano, "######")
End Sub
Private Sub txtilksanno_Change()
    txtilksanno.Value = Format(txtilksanno, "###,###")
End Sub
Private Sub txtmaas_Change()
    txtmaas.Value = Format(txtmaas, "###,###")
End Sub
Private Sub txtbankano_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
        KeyAscii = 0
        Beep
    End If
End Sub
Private Sub txtilksanno_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
        KeyAscii = 0
        Beep
    End If
End Sub
Private Sub txtmaas_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
        KeyAscii = 0
        Beep
    End If
End Sub
 
M

mor45

Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
AR 44 sütün oldundanmı onu 44 yazdın.
Birde dosyaı ek olarak ekleyebilirmisin.
ilgin için teşekkür ediyorum.
 
M

mor45

Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
yabancıdil.Value = ActiveCell.Offset(0, 42).Value
ActiveCell.Offset(0, 42) = yabancıdil.Value
yabancıdil.Value = Cells(say, 44)
yabancıdil.Value = Cells(txtsira + 2, 44)
yabancıdil.Value = Cells(txtsira + 1, 44)
yabancıdil.Value = Cells(txtsira + 1, 44)
Cells(say + 1, 44).Value = yabancıdil.Value


yukarıda olan satırlarda bazı yerde 42 bazı yerde 44 yazılmış nedenini öğrenebilirmiyim.
birde aynı satırda txtyabancıdil ile başlaması gerekirken direk yabancıdil yazmışsın.
bazı yerlerdede Value yokken sen (yabancıdil.Value) olarak eklemişsin bunlarınde nedeni nedir ben bu proğramda ekleme yapapabilmem için gerekli
Şimdiden teşekkür ediyorum ilginize.
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,800
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
42 ve 44 sayılar 44 sutunu göstermektedir

1-burada ActiveCell.Offset(0, 0) kodu birinci sutunu göstermektedir senin verilerin 2. sutundan başlamaktadır ActiveCell.Offset bu kodu onun için 2 eksik yazıyorua 44 yazcağımız yerine 42 yazıyoruz.
2-textbox nesnesi oluştururken otomatik olarak en son hangi textbox nesnesi oluşturmuşsanız yeni olşturulan nesne bir sayı farklısını oluşturur örnek olarak kayıtlı textbox nesnesi en son textbox5 olsun yani oluşturduğun nesne textbox6 olacaktır
3-ben textbox nesnesinin adını yabancıdil olarak değiştirdim şimdi verilerde
a=yabancıdil
b=yabancıdil.value
c=yabancıdil.text

bunların yanı a,b,c olarak yazılı koların işlemleri hepsi aynı ifadeleri içermektedir ancak nesneler çoğaldıkca bu nesnelerin üzerindeki değerin anlaşılması için text veya value seçeneklerinden birisi kullanılır.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst