veri aktarma

[redje]

merhabalar

ben basit bir örnek makro istiyorum mesela d10 d11 d12 d13 d14 d15 d16 sütunundaki bilgiyi a5 sütununa bir butona basınca
aktarsın istiyorum

ama bunu aktar butonuna her basmamda tek d10 birdaha butana basdığımda d11 birdaha butona bastığımda d12 taki a1 deki sayı değişene kadar a1 deki sayı değişince tekrar d10 dan başlayıp devam etsin istiyorum

yardımlarınız için şimdiden teşekkürler

 

[Nazmi YAZICI]

Mrb,

Çok basit olmadı ama

Syg

Sub Sıra_Ile_Ata()
    If Range("A1") = "" Then
        Range("a1") = Range("D10")
    ElseIf Range("A1") = Range("D16") Then
        Range("A1") = Range("D10")
    Else
        Dim hucre As Range
        For Each hucre In Range("D10:D16")
            If hucre = Range("A1") Then
                Range("A1") = hucre.Offset(1, 0)
                Exit Sub
            End If
        Next hucre
    End If
End Sub

 

[redje]

Çok teşekkür ederim

hatta bu tarzda düşünmemiştim böyle olması dahada çok işime yaradı

vaktiniz varsa bir isteğim daha olacak

mesela d16 ya kadar hepsinde kayıt yok d14 boş
boş sütuna gelince bir mesaj versin istiyorum eklerseniz sevinirim

yardımlarınız için teşekkürler iyi çalışmalar..

 

[Nazmi YAZICI]

Mrb,

Aşağıdaki kodları bir deneyiniz.

Syg.

Sub Sıra_Ile_Ata()
    If Range("A1") = "" Then
        Range("A1") = Range("D10")
    ElseIf Range("A1") = Range("D16") Then
        Range("A1") = Range("D10")
            If Range("A1") = "" Then MsgBox "D10 hücresi boş"
    Else
        Dim hucre As Range
        For Each hucre In Range("D10:D16")
            If hucre = Range("A1") Then
                Range("A1") = hucre.Offset(1, 0)
                    If Range("A1") = "" Then
                        Range("A1") = hucre.Offset(2, 0)
                        MsgBox "D" & hucre + 1 & " hücresi boş !"
                    End If
                Exit Sub
            End If
        Next hucre
    End If

End Sub

 

[redje]

mrb.
Yardımların için çok teşekkür ederim

msgbox ile yazdırmayı sevmiyorum yinede işimi gördü bir sütuna yazdırmayı uğraşarak sanırım hallederim

iyi çalışmalar..

 

[Nazmi YAZICI]

Sub Sıra_Ile_Ata() 
    If Range("A1") = "" Then 
        Range("A1") = Range("D10") 
    ElseIf Range("A1") = Range("D16") Then 
        Range("A1") = Range("D10") 
            If Range("A1") = "" Then Range("A5")= "D10 hücresi boş" 
    Else 
        Dim hucre As Range 
        For Each hucre In Range("D10:D16") 
            If hucre = Range("A1") Then 
                Range("A1") = hucre.Offset(1, 0) 
                    If Range("A1") = "" Then 
                        Range("A1") = hucre.Offset(2, 0) 
                        Range("A5")="D" & hucre + 1 & " hücresi boş !" 
                    End If 
                Exit Sub 
            End If 
        Next hucre 
    End If 

End Sub

 

[redje]

Sn nazmi yazıcı
Teşekkkür ederim yardımların için

ben genel olarak işlevleri satır ve sütun üzerinde yapıyorumki beraber çalıştığımız arkadaşlarda ve bende geliştirerek ilerletiyoruz
bu yazdığın işlevi birçok yere uyarlayıp kullanmaya başladım

burda yardımlar sayesinde epeyce ilerlettik umarım burdada yeni öğrenenler içinde yol gösterici olur

internet çalışma saatlerinde sürekli var ama işlerden artakalan zaman sınırlı yinede öğreniyoruz

yardımlar için tekrar teşekkürler
iyi çalışmalar