Public Function SplitVeriBul(GVeri As String) As Variant
Dim Dizi As Variant
Dim Say As Integer
Dizi = Split(GVeri, " ")
For Say = LBound(Dizi) To UBound(Dizi)
If Len(Dizi(Say)) = 8 And IsNumeric(Dizi(Say)) = True Then
SplitVeriBul = Left(Dizi(Say), 4)
Exit For
End If
Next
End FunctionUPDATE Tablo1 SET dogum_yili = SplitVeriBul([kisi]);
| Bu Konudaki Yorumlar |
|
Hücredeki Verilerin Bir Kısmını Başka Bir Hücreye Taşımak - Yazar: sfenksturk - 11/05/2020, 12:12
RE: Hücredeki Verilerin Bir Kısmını Başka Bir Hücreye Taşımak - Yazar: ozanakkaya - 11/05/2020, 12:37
RE: Hücredeki Verilerin Bir Kısmını Başka Bir Hücreye Taşımak - Yazar: sfenksturk - 11/05/2020, 12:50
RE: Hücredeki Verilerin Bir Kısmını Başka Bir Hücreye Taşımak - Yazar: ozanakkaya - 11/05/2020, 14:57
RE: Hücredeki Verilerin Bir Kısmını Başka Bir Hücreye Taşımak - Yazar: berduş - 11/05/2020, 16:29
RE: Hücredeki Verilerin Bir Kısmını Başka Bir Hücreye Taşımak - Yazar: sfenksturk - 11/05/2020, 19:46
|
