• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri Aktarma Hk.

V

valentino06

Katılım
19 Şubat 2007
Mesajlar
630
Excel Vers. ve Dili
Ofis 365 Tr- 64 Bit
merhaba;
Hayırlı geceler dilerim. Arkadaşlar yardımlarınızı bekliyorum. puantaj sayfasından maaş sayfasına veri aktarmak istiyorum. Asr35 arkadaşın yazmış olduğu makroları kendime uygulamaya çalıştım ama beceremedim. sayfayı G sütunundan itibaren hepsini siliyor. ben ise şartlı benim istediğim sütunları aktarmak istiyorum. vb sayfasındaki bu çalışma kitabındaki kodları lütfen düzenleyebilirmisiniz. çok teşekkür ederim.
 

Ekli dosyalar

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "PUANTAJ" Then
Dim c As Range, sat As Long, ilkadres As Variant, asi As String, Adet As Long
asi = MsgBox(ActiveSheet.Name & " Verileri Aktarılsınmı ? ", vbYesNo, " Veriler Aktarılsınmı ?")
If asi = vbNo Then Exit Sub
Range("G3:Z" & Rows.Count).ClearContents
sat = 3
Application.ScreenUpdating = False
With Sheets("PUANTAJ").Range("Z:Z")
Set c = .Find(ActiveSheet.Name, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Cells(sat, "G") = Sheets("PUANTAJ").Cells(c.Row, "AN")
Cells(sat, "P") = Sheets("PUANTAJ").Cells(c.Row, "AR")
Cells(sat, "R") = Sheets("PUANTAJ").Cells(c.Row, "AQ")
Cells(sat, "Q") = Sheets("PUANTAJ").Cells(c.Row, "AP")
Cells(sat, "K") = Sheets("PUANTAJ").Cells(c.Row, "AO")
Cells(sat, "V") = Sheets("PUANTAJ").Cells(c.Row, "AM")
Cells(sat, "J") = Sheets("PUANTAJ").Cells(c.Row, "AL")

sat = sat + 1
Adet = Adet + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
Application.ScreenUpdating = True
End If
End With
'////////////////////////////////////
If Adet = 0 Then
MsgBox " Bu Sayfaya Veri Aktarımı Yapılamaz ", vbInformation, " İyi Çalışmalar"
Else
MsgBox Adet & " Adet Veri Alınmıştır ", vbInformation, " İyi Çalışmalar"
End If
'////////////////////////////////////
'MsgBox ActiveSheet.Name & " Verileri Aktarıldı İyi Çalışmalar", vbInformation, " Veri Aktarma İşlemi Tamamlandı"
End If
End Sub



Arkadaşlar bu kodları asr35 arkadaş yazmıştı ben kendime uygulamaya çalıştım. fakat benim istediğim sütunlara akatarma yapmıyor hepsini siliyor. lütfen eki incelerseniz ne demek istediğimi anlarsınız. yardımlarınızı bekliyorum. Çok teşekkür ederim.
 
Merhaba,
Arkadaşlar 200 kişinin üzerinde görünteleyen var ama kimse bir cevap yazmamış. Allah rızası için bana yardım edecek kimse yokmu.
 
kardeş silinme işini hallettim.ama bu sefer sayfalar arasında geçişte makro hatası veriyor.onu çözemedim.belki siz çözersiniz.
 

Ekli dosyalar

Arkadaşlar hatayı bulamıyorum lütfen yardımlarınızı bekliyorum. Çok teşekkür ederim.
 
Hocalarım lütfen bakarmısınız. Hatayı bulamıyorum.
 
Merhaba Sayın
valentino06
İyi Çalışmalar
İstediğinizin Tam Olarak
Ne Olduğu Tam Açık Değil
benim istediğim sütunları aktarmak istiyorum
Diyorsunuz Ama Hangi Sutunlar OLduğu Belli Değil
Öyle Zannediyorum O Kodlar Sizin İstediğiniz İşe Uygun Değil
Siz Bırakın Kodları Ne İstediğinizi Açıkça
Kimler Nereden Alınacak Nereye Gidecek
Sonuç Ne OLmmalı Gibi Açıklamalı FArklı Bir Dosya Gönderirseniz
Umarım Bir Arkadaşımız Yardımcı Olacaktır.
 
Merhaba,
Hocalarım benim puantaj sayfasındaki AU sütununu maaş sayfasındaki G sütununa
puantaj sayfasındaki AR sütununu maaş sayfasındaki P sütununa
puantaj sayfasındaki AQ sütununu maaş sayfasındaki R sütununa
puantaj sayfasındaki AP sütununu maaş sayfasındaki Q sütununa
puantaj sayfasındaki AO sütununu maaş sayfasındaki K sütununa
puantaj sayfasındaki AM sütununuda maaş sayfasındaki N sütununa
puantaj sayfasındaki AL sütununuda maaş sayfasındaki j Sutununa aktarmak istiyorum. lütfen yardımlarınızı bekliyorum. Allah hepinizden kat kat razı olsun.
 

Ekli dosyalar

Son düzenleme:
Hayırlı geceler dilerim. Bana yardım edecek kimse yokmu
 
Günaydın,
Hocalarım lütfen yardımlarınızı bekliyorum. Kaç gündür uğraşıyorum işin içinden çıkamadım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst