Hücredeki değere bağlı kod yazma

SAYFA1 in kod bölümüne yazın.

Hocam olmadı bakabilir misiniz?

Hocam beni istediğim

okutkan' Alıntı:

SAYFA1 in kod bölümüne yazın.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(20 satır)

Genişletmek için tıklayın ...

şey D hücresini Ayrılan olarak değiştirince Ayrılan sayfasına aktarması direk aslında, personel takip sayfasından çıkarması

Kodu çalıştırma imkanım olmadı. Aşağıdaki kodu deneyin.

Hocam yine aynı uyarıyı verdi de siz bakabilir misiniz bilgisayarınızı açınca.

Merhaba @selis

Verilen kodları yapıştırdığınız yerde;
-- önce Set sf2 = Sheets("Ayrilan") satırındaki sayfa adını i harfiyle değil ı harfiyle yazın,
-- bir de değişken tanımlama kısmı var onun için de ya en üstteki Option Explicit satırını silin,
ya da son2 = ..... şeklindei satırından önce Dim a, i şeklinde yeni bir satır ekleyin.

.

Son eklediğim kodu deneme imkanım olmamıştı. Kodu denediğimde hata verdi. Sayfada değişim olduğunda devreye giren, yazdığımız kodun; sayfadaki satırı silme esnasında tekrar devreye girmesi sonucu 'hedef hücrenin' değerinin boş olmasından dolayı hata verdiğini gördüm. Eklediğim dosyadaki kod istediğiniz doğrultuda çalışmakta.

Oldu hocam çok teşekkürler..