Propiedades y Metodos VB
Propiedades y Metodos VB
Propiedades y Metodos VB
Descripcin
AfterUpdate
AttachmentCurren
t
BeforeUpdate
Change
Click
DblClick
Dirty
Enter
Exit
GotFocus
KeyDown
KeyPress
LostFocus
MouseDown
MouseMove
MouseUp
Mtodos
Nombre
Descripcin
Back
Forward
Move
Requery
SetFocus
SizeToFi
t
Propiedades
Nombre
Descripcin
AddColon
AfterUpdate
Application
AttachmentCount
AutoLabel
BackColor
BackShade
BackStyle
BackThemeColorIndex
BackTint
BeforeUpdate
BorderColor
BorderStyle
BorderThemeColorIndex
BorderTint
BorderWidth
BottomPadding
ColumnHidden
ColumnOrder
ColumnWidth
Controls
ControlSource
ControlTipText
ControlType
CurrentAttachment
DefaultPicture
DefaultPictureType
DisplayAs
DisplayWhen
Enabled
EventProcPrefix
FileName
FileType
FileURL
GridlineColor
GridlineShade
GridlineStyleBottom
GridlineStyleLeft
GridlineStyleRight
GridlineStyleTop
GridlineThemeColorInde
x
GridlineTint
GridlineWidthBottom
GridlineWidthLeft
GridlineWidthRight
GridlineWidthTop
Height
HelpContextId
HorizontalAnchor
InSelection
IsVisible
LabelAlign
LabelX
LabelY
Layout
LayoutID
Left
LeftPadding
Locked
Name
OldBorderStyle
OldValue
OnAttachmentCurrent
OnChange
OnClick
OnDblClick
OnDirty
OnEnter
OnExit
OnGotFocus
OnKeyPress
OnKeyUp
OnLostFocus
OnMouseDown
OnMouseMove
OnMouseUp
Parent
PictureAlignment
PictureSizeMode
PictureTiling
Propiedades
RightPadding
Section
ShortcutMenuBar
SpecialEffect
StatusBarText
TabIndex
TabStop
Tag
Top
TopPadding
VerticalAnchor
Width
Sub Crear_carpetas()
'Ocultamos el procedimiento
Application.ScreenUpdating = False
ruta = ActiveWorkbook.Path
Range("C4").Select
'Recorremos toda la columna, hasta que encuentre una fila vaca, y por cada
fila con texto, crearemos una carpeta con el nombre de ese mismo texto
End If
ActiveCell.Offset(1, 0).Select
Loop
'Limpiamos el objeto
'Mostramos el procedimiento
Application.ScreenUpdating = True
End Sub