Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Ayrıca kaydederken sıra no da kaydetmelisiniz koda ekleyip.
Alttaki gibide yaprsınız EĞER sonları şubesi olarak geçiyorsa..Cells(son, "G").Value = Trim(Split(Me.subesi.Text, " ")(0))
Ayrıca kaydederken sıra no da kaydetmelisiniz koda ekleyip.
Rica ederiz hocam.Az önce bir baktım koda bir adet nokta eklemeyi untmuşum Range önüne ekleyip kodu günceledim ve trim olanın birini kaldırdım,bilginize.Teşekkürler dostlar. varolun