• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

form düzenleme

  • Konbuyu başlatan Konbuyu başlatan doxiumy
  • Başlangıç tarihi Başlangıç tarihi
Katılım
11 Kasım 2006
Mesajlar
15
Excel Vers. ve Dili
xp
Arkadaşlar kolay gelsin sizlerin yardımıyla excel bilgimi bir yerlere getirdim hepinize çok teşekkür ederim. Yeni birexcel sorusuyla karşınızdayım. Bir form yapmak istemekteyim bu form ile ekte görülen dosya tipinde çıktı ve kayıtlar almak istemekteyim. Yardımcı olursanız sevinirim.
 

Ekli dosyalar

Sub Aktar()
Dim i As Long, _
j As Integer, _
Son As Long, _
Tut As Double
Sheets("ANA SAYFA").Select

'Sayfalar Silindi
For j = 1 To 2
Sheets("DEĞER " & j).Range("A2:D50000").ClearContents
Next j

For i = 2 To Cells(Rows.Count, "A").End(3).Row

j = 0
If Cells(i, "C") <> "" Then
j = 1
Tut = Cells(i, "C")
ElseIf Cells(i, "D") <> "" Then
j = 2
Tut = Cells(i, "D")
End If
If j > 0 Then
Son = Sheets("DEĞER " & j).Cells(Rows.Count, "A").End(3).Row + 1
Sheets("DEĞER " & j).Cells(Son, "A") = Cells(i, "A")
Sheets("DEĞER " & j).Cells(Son, "B") = Cells(i, "B")
Sheets("DEĞER " & j).Cells(Son, "C") = Tut
Sheets("DEĞER " & j).Cells(Son, "D") = Cells(i, "E")
End If

Next i

'Adı Soyadına Göre Sayfalar Sıralanır
For j = 1 To 2
Son = Sheets("DEĞER " & j).Cells(Rows.Count, "A").End(3).Row + 1
Sheets("DEĞER " & j).Range("A2:D" & Son).Sort Key1:=Sheets("DEĞER " & j).[B2]
Next j

MsgBox "İşlem tamam...."
End Sub
 
arkadaşım saol ama ben bunu beceremedim yardımcı olurmusunuz lütfen
 
bu forum gittikçe enterasanlaşan bir hal almaya başladı yardım istiyorum ses yok bari yardım istenmeyecek bir konuysa söyleyinde bizde beklemeyelim bu yardımları öğrenmek için istemekteyim ama maalesef olumlu olumsuz yol gösteren bile yok ne acı.
 
selamlar üzerine birkaç ekleme yaparak işiniz hallolacaktır. birde çok sitemkarsınız arkadaşım. elbet uzman arkadaşlarımızın gözünden kaçmış olabilir. bu site gönüllülük esasına dayanarak yardımlaşma ile bu kadar büyüdü.
 

Ekli dosyalar

Geri
Üst