Veri Almada Başlangıç satırı

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

Veri Almada Başlangıç satırı

İleti#1)  umit1907 » 13 May 2019 08:44

Merhabalar,
ekteki kodda 1. satırdan veri aratıp başka sayfaya getiriyoruz. Fakat ben bunu 2 veya 3. satır yapmak istiyorum kodun hangi alanını değişmem gerekir.

Sub KOD()

Dim T As Worksheet: Set T = Sheets("TÜMÜ")
ReDim dizi(b)
For b = 1 To T.Cells(1, Columns.Count).End(1).Column
ReDim Preserve dizi(b)
dizi(b) = T.Cells(1, b)
Next b
T.Cells(1, UBound(dizi) + 1) = "Sayfa İsmi"

For i = 1 To Sheets.Count
LastRow = Empty
sayfaismi = Sheets(i).Name

' VERİ ALMASINI İSTEMEDİĞİNİZ SAYFA İSİMLERİNİ TANIMLAYIN...
If sayfaismi <> T.Name And _
sayfaismi <> "güncel listes" And _
sayfaismi <> "HCMT37" Then
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
Sheets(sayfaismi).Select

tümüsonsatır = T.Cells.Find(What:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

On Error Resume Next
LastRow = Cells.Find(What:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
On Error GoTo 0
If LastRow = "" Then
GoTo sayfaboş
End If

For a = 1 To UBound(dizi)
For x = 1 To Cells(1, Columns.Count).End(1).Column

If UCase(Replace(Replace(dizi(a), "ı", "I"), "i", "İ")) = UCase(Replace(Replace(Cells(1, x), "ı", "I"), "i", "İ")) Then
Range(Cells(2, x), Cells(LastRow, x)).Copy T.Cells(tümüsonsatır + 1, a)
Exit For

End If

Next x
Next a
sayfaismiicin = T.Cells.Find(What:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
T.Range(Cells(tümüsonsatır + 1, UBound(dizi) + 1).Address, Cells(sayfaismiicin, UBound(dizi) + 1).Address) = sayfaismi


End If

sayfaboş:
Next i

T.Select
MsgBox " B i t t i "
End Sub
Kullanıcı avatarı
umit1907
Yeni Başlamış
 
Adı Soyadı:Ümit ASLAN
Kayıt: 26 Arl 2008 00:26
Konum: nevşehir
Meslek: muhasebe
Yaş: 33
İleti: 74
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: NEVŞEHİR

Cevap: Veri Almada Başlangıç satırı

İleti#2)  Ali ÖZ » 13 May 2019 12:12

Merhaba,
T.Cells(1, b) ' 1. satır

T.Cells(2, b) ' 2. satır

T.Cells(3, b) ' 3. satır

Bu gibi alanları değiştirmelisiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9814
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Veri Almada Başlangıç satırı

İleti#3)  umit1907 » 13 May 2019 12:29

Sağolasın Ali Abi eline sağlık birde buda başlığıda alıyor onu almaması için ne yapabiliriz :(
Kullanıcı avatarı
umit1907
Yeni Başlamış
 
Adı Soyadı:Ümit ASLAN
Kayıt: 26 Arl 2008 00:26
Konum: nevşehir
Meslek: muhasebe
Yaş: 33
İleti: 74
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: NEVŞEHİR

Cevap: Veri Almada Başlangıç satırı

İleti#4)  umit1907 » 13 May 2019 12:33

Birde 4. satır olarak belirlersem 4 satır boş getiriyor.
Kullanıcı avatarı
umit1907
Yeni Başlamış
 
Adı Soyadı:Ümit ASLAN
Kayıt: 26 Arl 2008 00:26
Konum: nevşehir
Meslek: muhasebe
Yaş: 33
İleti: 74
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: NEVŞEHİR

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Veri Almada Başlangıç satırı

İleti#5)  Ali ÖZ » 16 May 2019 07:52

Dosyanızı eklerseniz bakabilirim,kodlar üzerinden gitmek zor.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9814
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe