onay kutusu seçili olanı aktarsın

[kmlpyrz]

Değerli arkadaşlar;
Eklemiş olduğum dosyada hücre değerlerini diğer sayfaya aktarırken onay kutusu seçili olanları aktarması konusunda yardımcı olursanız sevinirim. Şimdiden teşekkür ederim, İşleriniz kolay gelsin..

 

[Ferhat Pazarçevirdi]

Kodunuzu şu şekilde değiştiriniz.

Sub Boya_Çıkış()
    Dim cevap As VbMsgBoxResult
    Dim i As Integer
    cevap = MsgBox("Boya çıkışı yapıldı ?", vbYesNo)
    If cevap = vbYes Then
        With Sheets("Ambar çıkış")
            For i = 18 To 24 Step 2
                If Cells(i, "CD") = True Then
                    son = .Cells(65536, "F").End(xlUp).Row + 1
                   .Cells(son, "F") = Cells(i, "BG")
                   .Cells(son, "Y") = Cells(i, "BQ")
                   .Cells(son, "AD") = Cells(i, "BW")
                End If
             Next i
        End With
    End If
End Sub

 

[Necdet]

Merhaba,

Ben bu soruya yanıt vermek istemedim, nedeni ise, 4 satırlık bir bilgiyi 20895790287590283745890237 satırda belirtilmiş olması.

Bunu gerçekten merak ettim, neden böyle?

 

[kmlpyrz]

Sayın Yeşertener;
Neden böyle bir şey yazdınız bende sizi anlamadım, Örnek olarak verdiğim dosya programın bir kesitiydi,fazla ayrıntı olmasın diye yalnızca o bölümü bırakıp gerisini sildim.Ayrıca cevap vermek nezaketini gösteren Sayın Ferhat Pazarçevirdi' ye çok teşekkür ediyorum.Saygılarımla

 

[Necdet]

Merhaba Sayın kmlpyrz,

Dosyanın tamamını bilmiyorum ama sanki bana gereğinden fazla satır ve sütunlar birleştirilmiş gibi geldi.

Durum böyle olunca Excelin olanaklarından vazgeçmiş oluyorsunuz.

Örnek dosyadaki gibi olmaz mı anlamında eleştiri yapmak istedim.

 

[kmlpyrz]

Sayın necdet YEŞERTENER;
Nazik cevabınız için teşekkür ederim.Sözlerinizde haklısınız, her halde görsellik uğruna biraz abartmışım.Hoşçakalın