Diğer sayfaya veri aktarma

[sdegirmenci]

Merhaba;
Aktar düğmesini her tıkladığımızda
yazılı değerleri Onay sayfasındaki "C6" ve "C7" den başlayarak yana doğru ilk boş ilgili hücreye atmasını istiyorum. Bu konuda yardımcı olabilirseniz sevinirim
İlginize şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Private Sub CommandButton1_Click()
 
    Dim So As Worksheet, son As Integer
 
    Set So = Sheets("ONAY")
 
    son = So.Cells(6, Columns.Count).End(xlToLeft).Column + 1
 
    Range("C6:C7").Copy So.Cells(6, son)
 
End Sub

.

 

[sdegirmenci]

Değerli Ömer Hocam;
İlginize çok teşekkür ederim. Hemen kendi proğramımda uyguladım. Tekrar teşekkür ederim.

 

[Ömer]

Rica ederim, iyi çalışmalar...

 

[TAHİR ARSLAN]

Iyi çalışmalar dilerim.

 

[sdegirmenci]

Sayın Ömer ve Tahir Arslan Hocam,
Kodları kendi proğramıma uyguladığımda hata verdi yeniden dosya ekledim, tekrar bakabilirseniz çok sevinirim.

 

[Ömer]

Bu şekilde deneyiniz.

Private Sub CommandButton1_Click()
     
    Dim son As Integer
 
    With Sheets("Yolluk_Ön")
        If .Range("AO16") = "" Then
            son = 41
        Else
            son = .Cells(16, Columns.Count).End(xlToLeft).Column + 9
        End If
    
        .Cells(16, son) = Range("F7")
        .Cells(17, son) = Range("F8")
    End With
   
End Sub

.

 

[sdegirmenci]

Değerli Ömer Hocam,
Tekrar ilginize teşekkür ederim, bu sefer denemesinide yaptım, 3 .işlemden sonrasını aktarmıyor, Yazmış olduğunuz kodu ekleyerek 6 nolu dosyamı güncelledim.

 

[sdegirmenci]

Ömer Hocam , çok oldum biliyorum ancak 3. aktarmadan sonrasını yapmıyor

 

[Ömer]

İlk üç satırın atlaması 9 olduğu için +9 yapmıştım, sonrasıda aynıdır diye devamını kontrol etmedim. Birleştirmeyi her satırda farklı yaptınız demekki.

Yeniden düzenleme yapılabilir tabiki fakat anlamadığım dosyada neden birleştirilmiş hücre kullandınız. Bu yaptıklarınızın tümünü hücre birleştirmeden de yapabilirdiniz. Birleştirilmiş hücrelerde çalışmak görülüdğü gibi herzaman sorunlar la karşılaşmanıza yol açar.

Bu tablo düzeni olmazsa olmasınızsa kodları yeniden düzenleyeyim, fakat söylediğim gibi tablonuzu birleştirilmiş hücrelerden arındırarak yeniden düzenlemeniz bence çok mantıklı olacaktır. Bu tabloda birleştirme yapmanın bir mantığı yok gibi.

.

 

[sdegirmenci]

Ömer hocam mecburi olarak böyle bir yöntem seçtim, sayfadaki tablo bunu gerektiriyor. Sizin yazınızdan sonra tekrar düşündüm, acaba olabilirmi diye, birincisi uymuyor, ikincisi tüm yaptıklarımı yeniden elden geçirmem gerekiyor. yapmaya çalıştığım Programı mesajıma ekliyorum,

 

[Ömer]

Son dosyanız çok detaylı olduğu için incelemedim.

Bir önce eklediğiniz dosyaya göre. Buna göre siz ana dosyanıza uyarlarsınız.

Private Sub CommandButton1_Click()
 
    Dim Kolon As Integer
    Dim Adet  As Integer
 
    With Sheets("Yolluk_Ön")
        Kolon = .Range("DK16").End(xlToLeft).Column
        Adet = .Cells(16, Kolon).MergeArea.Count
        Kolon = Kolon + Adet
        .Cells(16, Kolon) = Range("F7")
        .Cells(17, Kolon) = Range("F8")
    End With
 
End Sub

.

 

[sdegirmenci]

Ömer Hocam bu sefer oldu , sizi çok yordum, hakkınızı helal ediniz. İyi geceler diliyorum.