benim temel problemim kodların hangi sayfada çalışacağını belirleyememe sorunu. kodları buluyorum çalıştırıyorum ama çoğu sadece ilgili sayfada çalışıyor bunu belirlemenin kolay bir yolu varmıdır
mesala sayfa1 deki verilerle işlem yapıp sayfa2 ye göndermek istiyorum ama bunu açılışsayfası adını verdiğim sayfadan buton kullanarak yapmak istiyorum haliyle açık sayfada kodlar işletilmeye çalışılıyor sonuç olumsuz
mesala sayfa1 deki verilerle işlem yapıp sayfa2 ye göndermek istiyorum ama bunu açılışsayfası adını verdiğim sayfadan buton kullanarak yapmak istiyorum haliyle açık sayfada kodlar işletilmeye çalışılıyor sonuç olumsuz
Kod:
Sub adsoyadayir()
For satir = 1 To 100
' 1.sıradan 100. satıra kadarki kaytlar için isteyen değiştirir
ad = ""
' her satırda hafızadaki bir önceki ad değerini sil
soyad = ""
' her satırda hafızadaki bir önceki soyad değerini sil
sagdan = 0
' sağdan değerini her satırda yeniden sıfırla
adsoyad = Range("a" & satir)
' her satırın a sütunundan ad soyad değerini oku
For karakter = Len(adsoyad) To 1 Step -1
' her ad soyad değerinde sondan başlayarak başa doğru karakterleri tara
sagdan = sagdan + 1
' kaç karakter tarandığını bulmak için sağdan değerini 1 artır
If Mid(adsoyad, karakter, 1) = " " Then
'eğer karakterleri tararken boşluk karakterine rastlandıysa;
soyad = Right(adsoyad, sagdan - 1)
ad = Left(adsoyad, Len(adsoyad) - sagdan)
' ad ve soyad değerlerini oku
Range("b" & satir) = ad
'bulunan ad değerini b sütununa yaz
Range("c" & satir) = soyad
'bulunan soyad değerini c sütununa yaz
Exit For
' karakter tarama işinden çık
End If
Next karakter
Next satir
'sonraki satıra geç
End Sub