[Yardım]  Makro çalışması

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

Makro çalışması

İleti#1)  missdılek » 07 Kas 2018 16:52

İyi günler. Aşağıda yazdığım makro koduna eklemek istediğim bir şey için yardımınıza ihtiyacım var. Excel sayfamın birincisinde A sütununda karışık bir şekilde sıralanmış şehir adları ve bu adlara göre gerekli bilgiler var. İkinci sayfamda birinci sayfadaki her satır için ayrıca doldurmam gereken tablom var. Aşağıya yazdığım makro kodu birinci sayfadaki her satır için ikinci sayfadaki tabloyu doldurup yeni bir excel çalışma kitabı açıyor. Ben, örneğin ilk sayfadaki A sütununda bulunan şehirlerin aynı olanlarını aynı excel çalışma kitabında farklı sayfalara yazdırsın ve hangi şehirden veri çektiyse yeni açtığı excel çalışma kitabının adını o şehrin adı yapsın istiyorum.
Örnek veri dosyasını ve oluşturmak istediğim dosyayı ekledim.
Yardımlarınız için şimdiden teşekkür ederim.



Sub OTOMATİK_OSF_ATAMA()
Dim ThisSheet As Worksheet
Dim wb As Workbook
Dim RangeToCopy As Range
Dim yolfyon As String
Dim yolbilecik As String
Dim yoleskisehir As String
Dim yolkutahya As String
Dim yolusak As String
Dim ss As String
Dim bu As Workbook

yolafyon = ThisWorkbook.Path & "\AFYONKARAHİSAR\"
yolbilecik = ThisWorkbook.Path & "\BİLECİK\"
yoleskisehir = ThisWorkbook.Path & "\ESKİŞEHİR\"
yolkutahya = ThisWorkbook.Path & "\KÜTAHYA\"
yolusak = ThisWorkbook.Path & "\UŞAK\"
Application.DisplayAlerts = False
Dim SonSatir As Long
SonSatir = Sheets("LİSTE").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To SonSatir
Dim Dönem As Variant
Dim yıl As Variant
yıl = Format(ThisWorkbook.Sheets("LİSTE").Cells(i, "H"), "yyyy")
Dönem = Format(ThisWorkbook.Sheets("LİSTE").Cells(i, "H"), "m")

Dim IDAD As Variant
IDAD = ThisWorkbook.Sheets("LİSTE").Cells(i, "C")
Cells.Select
Selection.Copy
Set wb = Workbooks.Add
wb.Activate
Sheets(1).Cells(1, "A").Select
Selection.PasteSpecial
Application.CutCopyMode = False

wb.Sheets("sayfa1").Cells(7, "D") = ThisWorkbook.Sheets("LİSTE").Cells(i, "B")
wb.Sheets("sayfa1").Cells(13, "H") = ThisWorkbook.Sheets("LİSTE").Cells(i, "C")
wb.Sheets("sayfa1").Cells(9, "D") = ThisWorkbook.Sheets("LİSTE").Cells(i, "F")
wb.Sheets("sayfa1").Cells(17, "I") = ThisWorkbook.Sheets("LİSTE").Cells(i, "G")
wb.Sheets("sayfa1").Cells(17, "D") = Dönem & "-" & yıl

Next i
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
missdılek
 
Kayıt: 01 Oca 2017 21:56
Meslek: öğrenci
Yaş: 21
İleti: 4
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: samsun

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe