Sayfadan veri alma

[efeem]

----------------------------------
Sub izin_Aktar()
Dim shizin As Worksheet, shCizelge As Worksheet
Dim Hucre As Range

Set shizin = Worksheets("Personel")
Set shCizelge = Worksheets("Çizelge")

For Each Hucre In shizin.Range("Z7:BD306")
If Not Hucre = Empty Then
shCizelge.Cells(Hucre.Row + 4, Hucre.Column + -6) ="-"
End If
Next
End Sub
---------------------------------
Arkadaşlar bu kodda personel sayfasında izin yada sevk işlenmişse çizelgeye "-" koyuyor ben ise personel sayfasında ne varsa mesela "s" varsa s "R varsa R yazmasını yani hücrenin dedğerini oradan olduğu gibi almasını istiyorum bu kodu nasıl düzeltebilirim.

 

[Orion1]

ilgili satırı aşağıdaki ile değiştirin.

If ucase(Hucre) = "S" or ucase(Hucre) = "R" Then
      shCizelge.Cells(Hucre.Row + 4, Hucre.Column + -6) =Hucre
else
     shCizelge.Cells(Hucre.Row + 4, Hucre.Column + -6)=""
End If

----------------------------------
Sub izin_Aktar()
Dim shizin As Worksheet, shCizelge As Worksheet
Dim Hucre As Range

Set shizin = Worksheets("Personel")
Set shCizelge = Worksheets("Çizelge")

For Each Hucre In shizin.Range("Z7:BD306")
If Not Hucre = Empty Then
shCizelge.Cells(Hucre.Row + 4, Hucre.Column + -6) ="-"
End If
Next
End Sub
---------------------------------
Arkadaşlar bu kodda personel sayfasında izin yada sevk işlenmişse çizelgeye "-" koyuyor ben ise personel sayfasında ne varsa mesela "s" varsa s "R varsa R yazmasını yani hücrenin dedğerini oradan olduğu gibi almasını istiyorum bu kodu nasıl düzeltebilirim.

 

[efeem]

cevabınız için teşekkürler

 

[Orion1]

Arkadaşlar bu kodda personel sayfasında izin yada sevk işlenmişse çizelgeye "-" koyuyor ben ise personel sayfasında ne varsa mesela "s" varsa s "R varsa R yazmasını yani hücrenin dedğerini oradan olduğu gibi almasını istiyorum bu kodu nasıl düzeltebilirim.

cevabınız için teşekkürler

Yazdığınız kodda yanlış anlamadıysam s veya r koy değilse boş bırak gibi anladım

ancak ben boş değilse s veya r veya i yazmasını istiyorum.
ilginize tekrar teşekkürler

Hangisi doğru.
İlk istediğinizde i konusu yoktu.
Oysa şimdi i ' karakterinie eklemşsiniz.
Yazdığım kodlama eğer r veya s varsa o hücreyi yaz yoksa temizle.