yesimgurol
Altın Üye
- Katılım
- 8 Aralık 2011
- Mesajlar
- 950
- Excel Vers. ve Dili
- Excel 2016,32bit
- Altın Üyelik Bitiş Tarihi
- 18-11-2024
Merhabalar;
Hasta listemin olduğu sayfadan belirlediğim aralıktaki hasta bilgilerini ayrı bir listeye aktarmaktayım. Bu kodlar ile;
Bu kodlar excel sayfası içerisinde çalışıyor sorunsuz..Ben userform oluşturdum ve bu kodları oraya aktarmaya çalışıyorum fakat
sayfa adı bilgisinin (Sayfa150.Range("G12") buradan değilde textbox3 den almasını,
ilk aralık bilgisinin (Sayfa150.Range("G10") buradan değilde textbox1 den almasını,
ilk aralık bilgisinin (Sayfa150.Range("G10") buradan değilde textbox2 den almasını,istiyorum.Ben aşağıdaki gibi değiştirdim fakat olmadı:-(
Hasta listemin olduğu sayfadan belirlediğim aralıktaki hasta bilgilerini ayrı bir listeye aktarmaktayım. Bu kodlar ile;
Kod:
Sub hstalste()
Dim li As Worksheet, ilk As Range, son As Range, son2 As Long
Set li = ThisWorkbook.Worksheets("ICPMS")
sayfa_adı = CStr(Sayfa150.Range("G12").Value)
Sheets("HAFTA LİSTE FORMATI").Select
Sheets("HAFTA LİSTE FORMATI").Copy After:=Sheets(3)
With ActiveSheet
.Name = sayfa_adı
son2 = .Range("B" & Rows.Count).End(xlUp).Row + 1
Set ilk = li.Columns(1).Find(Sayfa150.Range("G10").Value)
Set son = li.Columns(1).Find(Sayfa150.Range("G11").Value)
li.Range("C" & ilk.Row & ":D" & son.Row).Copy
.Range("B65536").End(3)(2, 1).PasteSpecial xlPasteValues
li.Range("H" & ilk.Row & ":H" & son.Row).Copy
.Range("D" & son2).PasteSpecial xlPasteValues
li.Range("I" & ilk.Row & ":I" & son.Row).Copy
.Range("E" & son2).PasteSpecial xlPasteValues
li.Range("T" & ilk.Row & ":T" & son.Row).Copy
.Range("G" & son2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
Set son = Nothing: Set ilk = Nothing: Set li = Nothing
End Sub
Kod:
sayfa_adı = CStr(Sayfa150.Range("G12").Value)
Kod:
Set ilk = li.Columns(1).Find(Sayfa150.Range("G10").Value)
Kod:
Set ilk = li.Columns(1).Find(Sayfa150.Range("G11").Value)
Kod:
Set ilk = TextBox1.Value
Set son = TextBox2.Value