- Katılım
- 11 Mayıs 2005
- Mesajlar
- 167
- Excel Vers. ve Dili
-
office 2003 tr & eng.
office 2007 tr & eng.
Ekli kodları kullanarak girdiğim verilerin formatını Tarih formaytı olarak nasıl girerim.
Daha sonra kullandığım
ActiveCell.FormulaR1C1 = "=IF(AND(RC4<=R1C,RC5>=R1C),R1C,"""")"
formul çalışmıyor.
Ancak tarih hücrelerini girilen hücreleri seçip içinden çıktığımda komut çalışıyor.
Private Sub cmdkaydet_Click()
Columns("A:E").Select
Selection.EntireColumn.Hidden = False
Range("a1").Select
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = cbAd.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("C1:C" & WorksheetFunction.CountA(Range("C1:C65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbAd.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak
say = WorksheetFunction.CountA(Range("C1:C65000"))
txtsira.Value = say
Cells(say + 1, 1).Value = txtsira.Value
Cells(say + 1, 2).Value = CbBolge.Value
Cells(say + 1, 3).Value = cbAd.Value
Cells(say + 1, 4).Value = txtbastarihi.Value
Cells(say + 1, 5).Value = txtbittarihi.Value
Cells(say + 1, 6).Value = CbAdurum.Value
Workbooks("kayit.XLS").Save
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
Cmdyenikayit_Click
cbAd.RowSource = "Veri!C2:C" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub
Daha sonra kullandığım
ActiveCell.FormulaR1C1 = "=IF(AND(RC4<=R1C,RC5>=R1C),R1C,"""")"
formul çalışmıyor.
Ancak tarih hücrelerini girilen hücreleri seçip içinden çıktığımda komut çalışıyor.
Private Sub cmdkaydet_Click()
Columns("A:E").Select
Selection.EntireColumn.Hidden = False
Range("a1").Select
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = cbAd.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("C1:C" & WorksheetFunction.CountA(Range("C1:C65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbAd.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak
say = WorksheetFunction.CountA(Range("C1:C65000"))
txtsira.Value = say
Cells(say + 1, 1).Value = txtsira.Value
Cells(say + 1, 2).Value = CbBolge.Value
Cells(say + 1, 3).Value = cbAd.Value
Cells(say + 1, 4).Value = txtbastarihi.Value
Cells(say + 1, 5).Value = txtbittarihi.Value
Cells(say + 1, 6).Value = CbAdurum.Value
Workbooks("kayit.XLS").Save
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
Cmdyenikayit_Click
cbAd.RowSource = "Veri!C2:C" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub