2 farklı makroyu birleştirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

2 farklı makroyu birleştirme

İleti#1)  denizfatihi » 18 Kas 2020 15:22

Merhaba,

Aşağıdaki 2 farklı makroyu birleştirme imkanı olabilir mi ?
Yardımınız ve ilginiz için şimdiden teşekkür ederim.

iyi günler,

Kod: Tümünü seç
Sub filtre_ilk()
'Private Sub filtrelenen_ilk_deger()
Sayfa19.Range("a1").Value = _
Range("k15", Cells(Rows.Count, "k").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1)
   
Sayfa19.Range("B1").Value = _
Range("M15", Cells(Rows.Count, "M").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1)
   
End Sub


2. kod

Kod: Tümünü seç
Sub filter2()
Dim x As Range
Dim rng As Range
Dim rng1 As Range
Dim last As Long
Dim sht As String
Dim Workbk As Excel.Workbook
Dim ilk As Range, son As Range
yol = ThisWorkbook.Path
sayfa = ActiveSheet.Name
Set newBook = Workbooks.Add

'Sayfa19.Range("a1").Value = _
'Range("k15", Cells(Rows.Count, "k").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1)
   
'Sayfa19.Range("B1").Value = _
'Range("M15", Cells(Rows.Count, "M").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1)

'Application.Wait (Now + TimeValue("0:00:10"))


sht = "L"
Set Workbk = ThisWorkbook

'Set newBook = Workbooks.Add(xlWBATWorksheet)
'Workbk.Activate

last = Workbk.Sheets(sht).Cells(Rows.Count, "K").End(xlUp).Row

With Workbk.Sheets(sht)
Set rng = .Range("A14:T" & last)
End With

For Each x In Workbk.Sheets(sht).Range("A1")

With rng
.AutoFilter
.AutoFilter Field:=11, Criteria1:=x.Value
.AutoFilter Field:=4, Criteria1:=">0"

'Workbk.Sheets(sht).Cells.Copy
'Workbk.Sheets(sht).Range(Cells(1, 1), Cells(16, 100000)).Copy


'End Sub

Workbk.Sheets(sht).Range("A1:T100000").Copy
'Workbk.Sheets(sht).Range("A1:T100000").Copy

'Workbk.Sheets(sht).Range(Cells(1, 1), Cells(16, 100000)).Copy
'Range(Cells(1, 1), Cells(16, 100000)).Copy



newBook.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
isim = Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Workbk.Sheets(sht).Range("B1"), "/", "-"), "\", "-"), ":", "-"), "<", "-"), ">", "-"), "*", "-"), "?", "-"), "|", "-"), """", "-"), 10)
newBook.SaveAs Filename:=yol & "\" & Range("b1").Value & " " & Format(Date, "ddmmyy") & " " & Format(Time, "hhmmss") & ".xlsx"
newBook.Activate
End With
Next x

' Turn off filter
Workbk.Sheets(sht).AutoFilterMode = False

With Application
.CutCopyMode = False
.ScreenUpdating = True
End With

End Sub


Kullanıcı avatarı
denizfatihi
Yeni Başlamış
 
Adı Soyadı:ergin kocatürk
Kayıt: 24 Ağu 2008 21:44
Konum: istanbul
Meslek: muhasebeci
Yaş: 40
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: 2 farklı makroyu birleştirme

İleti#2)  Erkan Akayay » 19 Kas 2020 00:50

Filtrelenmiş verilerden yeni bir çalışma kitabını oluşturan bir kod. Kodlar çok karmaşık.
Değişkenleri ve adresleri ayrıştırmak bulmaca çözmek gibi bu kodda.
Bir örnek veri gönderin, daha derli toplu bir kod yazalım.
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 50
İleti: 4133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: 2 farklı makroyu birleştirme

İleti#3)  denizfatihi » 19 Kas 2020 12:28

Merhaba,

örnek dosya ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
denizfatihi
Yeni Başlamış
 
Adı Soyadı:ergin kocatürk
Kayıt: 24 Ağu 2008 21:44
Konum: istanbul
Meslek: muhasebeci
Yaş: 40
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 1 misafir

Bumerang - Yazarkafe