EXCEL'DE BİR HÜCREDEKİ İSİM VE SOYİSİM BİLGİLERİNİ VBA İLE AYIRMAK

SUB ISIMAYIRMA()
 Dim degerimiz() As String
  Range("a1").Select
   Do While Not IsEmpty(ActiveCell)
         degerimiz() = Split(ActiveCell.Value)  'split fonksiyonu isimleri birbirinden ayırıyor.. ve her bir isme başlangıçta 1 den kaçtane var ise sıralıyor.
         
          For i = LBound(degerimiz) To UBound(degerimiz)  'Lbound bir değişkendeki en küçük değeri burada 1 değerine dönüşüyor... UBound ise en büyük değeri alıyor ve döngüye başlanıyor.
         
                MsgBox degerimiz(i) 'burada ben msgboxa dönen değerleri yazdırdım görebilmek amacıyla.. burayı silip kullanmak istediğiniz yere yazabilirsiniz..
         
         Next i

ActiveCell.Offset(1, 0).Select
Loop
END SUB

Excel Vba Hücre İçindeki Değerleri Değiştirme

Geçen excelde verileri düzenliyorum. Baktım cep telefonlarının arasında boşluk var. bu boşlukları aldırmak lazım dedim.. sonra aradım ve aradığım VBA kodunu buldum.

Replace ( x , " ","")

bunu yapınca ilaç gibi geldi.