Gezi Listesi

[cimcoz]

Merhabalar,

Aşağıdaki şekilde yardımınızı rica ediyorum. Elimizdeki tüm listeden Geziye katılacakları işaretleyip, işaretlileri listelemek istiyorum. Liste çok büyük o yüzden az satırlı yaptım.
Ekteki dosyamda D sütununa herhangi bir karakter yazdığımızda, sağ taraftaki alana seçili olanları getirmek istiyorum. D sütunundan silince de sağdaki alandan silinmesi gerekiyor. Bu konuda yardımcı olursanız çok sevinirim.

Şimdiden teşekkür ederim.

Saygılarımla,

cimcoz

 

[yanginci34]

Denermisiniz.

 

[cimcoz]

Denermisiniz.

Kodlamanızda kırmızı olan yerlerdki ">" işaretinin yerinde herhangi bir harf mi olacak?
Bu şekilde hata aldım da.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
Dim son
Dim i
Dim str
str = 4
son = Cells(Rows.Count, 2).End(3).Row
Range("›4:k" & son).ClearContents
For i = 4 To son
If Cells(i, "d") <> "" Then
Cells(str, "›") = Cells(i, "b")
Cells(str, "j") = Cells(i, "c")
Cells(str, "k") = Cells(i, "e")
str = str + 1
End If

Teşekkürler..
Next

End Sub

 

[kulomer46]

Bende Sayın yanginci34 arkadaşımızın çözümüne benzer dosya ekliyorum.

 

[kulomer46]

Kodlamanızda kırmızı olan yerlerdki ">" işaretinin yerinde herhangi bir harf mi olacak?
Bu şekilde hata aldım da.

End Sub

Bende Sayın yanginci34 arkadaşımızın dosyasını indirdim. Bende dosya düzgün çalıştı.
Acaba siz dosyayı indirdikten sonra sizin bilgisayardaki kodlarda bilinmeyen bir değişiklik mi oldu.

 

[cimcoz]

Sayın yanginci34,
">" işaretini "i" ile değiştirdim düzeldi, emeğinize sağlık.

Sayın kulomer46
Sizin yolladığınız da çalıştı. çok teşekkür ederim.

Saygılarımla.

 

[cimcoz]

Bende Sayın yanginci34 arkadaşımızın dosyasını indirdim. Bende dosya düzgün çalıştı.
Acaba siz dosyayı indirdikten sonra sizin bilgisayardaki kodlarda bilinmeyen bir değişiklik mi oldu.

Merhaba,

Bendeki Office İngilizce ve Macbook kullanıyorum, bu yüzden Türkçe karakter varsa farklı çıkıyor. Kodu kontrol edip düzeltince çalıştı.

İlginize teşekkür ederim.

 

[yanginci34]

Rica ederim kolay gelsin.