Makro İle Çoklu Satır Taşıma - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Makro İle Çoklu Satır Taşıma (/konu-makro-ile-coklu-satir-tasima.html) Sayfalar:
1
2
|
Makro İle Çoklu Satır Taşıma - boraday - 20/08/2013 Merhabalar, Girilen tarihe göre (Özet Tablo!A2 ) diğer çalışma sayfasından ( Data ) aynı tarihi içeren satırları Özet tablo sayfasına aldırmak istiyorum. Alınacak sütunlar ( B-C-D-E-F-G-H-I-J-K-L ) sütunlarıdır. diğer sütunların taşınmasına gerek yoktur. Bu taşıma işlemini makro veya başka formüller yazarak almak istiyorum. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.. Cvp: Makro İle Çoklu Satır Taşıma - benremix - 21/08/2013 Örneğinizi inceleme fırsatım olmadı. Ancak macro kaydet yöntemiyle yapmayı denediniz mi? Saygılar... Cvp: Makro İle Çoklu Satır Taşıma - DUAYEN - 22/08/2013 Sorunuz tam anlaşılmıyor ney nereye taşınacak anlamadım. Cvp: Makro İle Çoklu Satır Taşıma - DUAYEN - 22/08/2013 Yinede şöyle bir örnek verebilim kendinize göre uyarlayınız. Aşağıdaki kodu boş bir modüle uygulayıp deneyiniz. Kod çalışırken ilk olarak size daha önce aktarım yaptığınız sayfaları silmek istiyormusunuz diye soracak evet derseniz önceki aktarım yapılan sayfalar silinecek. Hayır derseniz varolan sayfaların alt satırlarına devam ederek aktarım yapacaktır. Kod:
Option Explicit Cvp: Makro İle Çoklu Satır Taşıma - turankr - 05/01/2017 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, [G:G]) Is Nothing Then GoTo 10 On Error GoTo son ActiveSheet.Unprotect Cells.Locked = False If Target.Value = "MASRAF" Then Range("I:I").Locked = True ActiveSheet.Protect End If If Target.Value = "ÇIKAN" Then Range("I:I,H:H").Locked = True ActiveSheet.Protect End If If Target.Value = "SATIŞ" Then Range("I:I,H:H").Locked = True ActiveSheet.Protect End If If Target.Value = "ALC DEKONT" Then Range("I:I,H:H").Locked = True ActiveSheet.Protect End If If Target.Value = "GİREN" Then Range("J:J,H:H").Locked = True ActiveSheet.Protect End If If Target.Value = "ALIŞ" Then Range("J:J,H:H").Locked = True ActiveSheet.Protect End If If Target.Value = "BRÇ DEKONT" Then Range("J:J,H:H").Locked = True ActiveSheet.Protect End If If Target.Value = "KASA DEVRİ" Then Range("J:J,H:H").Locked = True ActiveSheet.Protect son: End If 10: If Intersect(Target, [F:F]) Is Nothing Then GoTo 20 If Target <> "" And Target = Cells(Target.Row, "M") Then Cells(Target.Row, "G") = "ÇIKAN" End If 20: If Intersect(Target, [M:M]) Is Nothing Then GoTo 30 If Target <> "" And Target = Cells(Target.Row, "F") Then Cells(Target.Row, "G") = "ÇIKAN" End If 30: For i = 1 To Sheets("KASA").Range("F5000").End(3).Row If (Cells(i, "F") = "") Then GoTo atla s = s + 1 For t = 1 To 13 If (Cells(t, "A") = "") Then GoTo atla Sheets("RAPOR_2").Cells(s, t).Value = Sheets("KASA").Cells(i, t).Value Next t atla: Next i End Sub Yukardaki makroyu, excel'i kasmadan çalışacak hale getirebilirmiyiz? Cvp: Makro İle Çoklu Satır Taşıma - turankr - 05/01/2017 Örnek dosya ve ne istediğim bu adreste. İlgilenirseniz çok sevinirim. http://s3.dosya.tc/server10/i7wpwl/n_sekli_SIFRE_SORARSA-_1001378.02.01.2017.rar.html |