form düzenleme

[doxiumy]

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.

 

[doxiumy]

yardımcı olabilecek kimse yok mu

 

[doxiumy]

yardım lütfen

 

[excel_ance]

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("A250000").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" & Son).Sort Key1:=Sheets("DEĞER " & j).[B2]
Next j

MsgBox "İşlem tamam...."
End Sub

 

[doxiumy]

arkadaşım saol ama ben bunu beceremedim yardımcı olurmusunuz lütfen

 

[doxiumy]

yardım lütfen

 

[doxiumy]

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ı.

 

[excel_ance]

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ü.